odd большое спасибо. Еще вопрос: как мне реализовать смену шрифтов при нажатии клавиши 0? Если одиночную, т.е. с одного FOnt(0) на второй Font(1) и обратно я сделал вот так: всё работает)
f1: boolean;
-----------------------------------------
Font(0); f1:=false;
-------------------------------------------
if (f1) then
begin font(1); DrawTextWindow; repaint;
if getkeyclicked= KE_KEY0 then f1:=false; end;
if f1 =false then
begin Font(0); DrawTextWindow; repaint; end;
-------------------------------------------------------
if getkeyclicked = KE_KEY0 then begin f1:=NOT f1; end;
|
А как сделать так:
например, нажимаю на 0 шрифт меняется. Потом, уже во врмея нового шрифта если нажимаю на 0, то опять меняется на Font(2), а если еще, 3 раз нажимаю, то тогда уже меняется вновь на 1. (FOnt(0)).
Я пытался сделать так:
-------------------------
f1,f2:boolean;
------------------------
f1:=false; f2:=false;
-------------------------
if (f1) then
begin f2:=false; font(1); DrawTextWindow; repaint; if getkeyclicked= KE_KEY0 then f1:=false; f2:=NOT f2; end;
if f1 =false then begin f:=0; Font(0); DrawTextWindow; repaint; end;
if (f2) then
begin
font(2); f1:=false; DrawTextWindow; repaint;
if getkeyclicked= KE_KEY0 then f2:=false; f1:=false; drawtextwindow; repaint;
end;
if f2 =false then
begin ; Font(0); DrawTextWindow; repaint; end;
-----------------------------------------------------------
if getkeyclicked = KE_KEY0 then begin f1:=NOT f1; end;
-----------------------------------------------------
|
то не выходит ничего
подскажите плиз . Я хочу сделать чтоб разного цвета шрифты могли быть, т.е например так
Font(0); LoadFont('Arial10'); color(255, 0, 0, 0);
Font(1); LoadFont('Arial10'); color(255, 255, 0, 0);
Font(2); LoadFont('Arial10'); color(255, 0, 0, 255);
И чтоб они менялись, как я писал выше.