PDF - Xakep Online

60
Êîäèíã
UNDER CONTROL
Horrific aka Ôëåíîâ Ìèõàèë (smirnandr@mail.ru)
www.cydsoft.com/vr-online
Êàê îïðåäåëÿåòñÿ äëèíà ìàññèâà Î÷åíü ïðîñòî, ýòî äàæå ïîõîæå íà ãåîìåòðè÷åñêîå
îïðåäåëåíèå. Íàïðèìåð, òåáå íóæåí ìàññèâ èç 12 çíà÷åíèé. Äëèíà òàêîãî
ìàññèâà ìîæåò áûòü [0..11] èëè [1..12]. Â êâàäðàòíûõ ñêîáêàõ òû äîëæåí ïîñòàâèòü
íà÷àëüíîå çíà÷åíèå ìàññèâà è êîíå÷íîå, à ìåæäó íèìè äâå òî÷êè.
×òîáû ïîëó÷èòü äîñòóï ê îòäåëüíîìó ýëåìåíòó ìàññèâà íóæíî íàïèñàòü ñëåäóþùèé
êîä:
r[4]:=Çíà÷åíèå;
Âîò òàê ìîæíî ïðèñâîèòü 4-ìó ýëåìåíòó ìàññèâà êàêîå-íèáóäü çíà÷åíèå.
Ïåðâûé ìàññèâ SySColorArray - ýòî ìàññèâ èç 13 (õîðîøåå ÷èñëî) öåëûõ ÷èñåë.
Òàê êàê ýòî ó ìåíÿ êîíñòàíòà, òî ÿ äîëæåí ïîñòàâèòü â êîíöå çíàê “ðàâíî” è â ñêîáêàõ
ïåðå÷èñëèòü âñå çíà÷åíèÿ ìàññèâà.  êà÷åñòâå êîíñòàíò ÿ ïåðå÷èñëÿþ çíà÷åíèÿ
ñèñòåìíûõ öâåòîâ, êîòîðûå áóäóò ìåíÿòüñÿ (COLOR_ACTIVEBORDER,
COLOR_ACTIVECAPTION è ò. ä.). ß áóäó ñëó÷àéíûì îáðàçîì âûáèðàòü èç ýòîãî
ìàññèâà èìÿ ñèñòåìíîãî öâåòà è ìåíÿòü åãî çíà÷åíèå.
×òî òàêîå COLOR_ACTIVEBORDER, COLOR_ACTIVECAPTION... Ýòî òîæå êîíñòàíòû.
Ïîä êàæäîé èç íèõ ñïðÿòàíî ïðîñòîå ÷èñëî. Íàïðèìåð, COLOR_ACTIVEBORDER -
ýòî ïðîñòîå ÷èñëî 10. Êàæäîå òàêîå ÷èñëî îçíà÷àåò íîìåð ñèñòåìíîãî öâåòà. ß
ìîã áû èñïîëüçîâàòü âìåñòî êîíñòàíò ÷èñëà, íî ýòî áóäåò íåóäîáíî, è ÷èòàòü òàêîé
êîä ïðîñòî ïðîòèâíî.
Âòîðàÿ êîíñòàíòà ColorArray - ìàññèâ èç 10 öâåòîâ. Èç íåãî ìû áóäåì âûáèðàòü
ñëó÷àéíûì îáðàçîì ëþáîé öâåò è óñòàíàâëèâàòü åãî â ñèñòåìó.
Ñàì êîä ïðîöåäóðû î÷åíü ïðîñò è ñîñòîèò òîëüêî èç âûçîâà ôóíêöèè SetSysColors.
 êà÷åñòâå ïàðàìåòðà ÿ óêàçûâàþ ñëåäóþùèå çíà÷åíèÿ:
1. Åäèíèöà - ÿ áóäó ìåíÿòü îäèí ñèñòåìíûé öâåò.
2. SySColorArray[random(13)]
- âûáèðàþ èç
ìàññèâà SySColorArray
ñëó÷àéíîå èìÿ öâåòà îò 0
äî 13 ñ ïîìîùüþ âûçîâà
random(13). Ýòîò ñèñòåìíûé
öâåò áóäåò èçìåíåí.
3. ColorArray[random(10)]
- âûáèðàþ èç ìàññèâà
ColorArray ñëó÷àéíîå çíà-
÷åíèå öâåòà îò 0 äî 10 ñ
ïîìîùüþ âûçîâà random(10).
Ýòîò öâåò áóäåò
óñòàíîâëåí â êà÷åñòâå ñèñòåìíîãî.
Ðèñ 3. Ïàëèòðà “Êðîâàâûé äåíü”
ÀÍÈÌÀÖÈß ÊÍÎÏÎÊ
Ò
ËÈÑÒÈÍÃ 1
procedure TForm1.Timer1Timer(Sender: TObject);
const
SySColorArray: array [0..13] of Integer = (COLOR_ACTIVEBORDER,
COLOR_ACTIVECAPTION, COLOR_APPWORKSPACE, COLOR_BACK-
GROUND, COLOR_BTNFACE, COLOR_BTNTEXT, COLOR_CAPTIONTEXT,
COLOR_INACTIVEBORDER, COLOR_INFOTEXT, COLOR_MENU,
COLOR_MENUTEXT, COLOR_WINDOW, COLOR_WINDOWFRAME,
COLOR_WINDOWTEXT);
ColorArray:array [0..10] of TColor = (clAqua, clBlack, clBlue, clYellow,
clFuchsia, clGreen, clNavy, clRed, clSilver, clWhite, clSkyBlue);
begin
SetSysColors(1, SySColorArray[random(13)], ColorArray[random(10)]);
end;
åïåðü ïðîàíèìèðóåì êíîïêè íà êëàâå. Äëÿ ýòîãî ïî íàæàòèþ âòîðîé êíîïêè
çàïóñòè âòîðîé òàéìåð:
procedure TForm2.Button1Click(Sender: TObject);
begin
Timer2.Enabled:=true;
end;
Òåïåðü ñîçäàé îáðàáîò÷èê ñîáûòèÿ äëÿ âòîðîãî òàéìåðà è â íåì íàïèøè ñîäåðæèìîå
ëèñòèíãà 2. Òóò â îñíîâíîì ïðîñòàÿ ìàòåìàòèêà, äëÿ âû÷èñëåíèÿ, êàêóþ
êíîïêó ñåé÷àñ çàæå÷ü, à êàêóþ ïîòóøèòü. Ñàìûì èíòåðåñíûì ÿâëÿåòñÿ âûçîâ ïðîöåäóðû
SetState. Îíà äîëæíà ìåíÿòü ñîñòîÿíèå êëàâèø. Íî ýòîé ïðîöåäóðû íåò
ñðåäè ñòàíäàðòíûõ áèáëèîòåê â Delphi, åå íóæíî íàïèñàòü. Ïåðåïèøè ëèñòèíã 3
êóäà-íèáóäü â ñâîé ìîäóëü. Ãëàâíîå - âûøå, ÷åì îáðàáîò÷èê ñîáûòèÿ äëÿ âòîðîãî
òàéìåðà.
 ïðîöåäóðå SetState âñåãî òðè ñòðî÷êè êîäà.  ïåðâîé ÿ ïîëó÷àþ òåêóùåå ñîñòîÿíèå
êëàâèàòóðû ñ ïîìîùüþ WinAPI ôóíêöèè GetKeyboardState. Ðåçóëüòàòîì áóäåò
ïåðåìåííàÿ-ìàññèâ KeyState. Âî âòîðîé ñòðî÷êå ÿ èçìåíÿþ ñîñòîÿíèå íóæíîé
êëàâèøè. È â ïîñëåäíåé ñòðîêå ïðîèñõîäèò óñòàíîâêà èçìåíåííîãî ñîñòîÿíèÿ êëàâû
ñ ïîìîùüþ SetKeyboardState.
ÏÐÅËÞÁÎÄÅÉÑÒÂÓÉ!
Ï
ËÈÑÒÈÍÃ 2
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Timer2.Tag := (Timer2.Tag + 1) mod 4;
SetState(VK_NUMLOCK, Timer2.Tag = 1);
SetState(VK_SCROLL, Timer2.Tag = 2);
SetState(VK_CAPITAL, Timer2.Tag = 3);
end;
ðèìåð çàêîí÷åí. Ìîæåøü çàïóñòèòü åãî è ïðåëþáîäåéñòâîâàòü ñ ðåçóëüòàòîì.
Ñêðèíû ïîëó÷èâøèõñÿ ó ìåíÿ ïàëèòð ðàçáðîñàíû ïî âñåé ñòàòüå, è òû
ñðàçó ìîæåøü ïðî÷óâñòâîâàòü âñå ïðåëåñòè àíèìàöèè. Õî÷ó ñðàçó ïðåäóïðåäèòü,
÷òî ñèñòåìíàÿ ïàëèòðà õîðîøî ìåíÿåòñÿ â ëþáûõ âåðñèÿõ îêîøåê. À âîò
ëàìïî÷êè íà êëàâå çàìîðãàþò òîëüêî â Win9x.  Windows 2000 ëàìïî÷êè íå ìîðãàþò,
õîòÿ ñîñòîÿíèå êëàâèø ðåàëüíî ìåíÿåòñÿ.
Äîïîëíèòåëüíóþ èíôó,
êàê âñåãäà, ìîæíî íàéòè
íà ìîåì ñàéòå www.cydsoft.com/vr-online.
Åñëè
òû ðåãóëÿðíî ÷èòàåøü Õ
è èñïîëüçóåøü ìîè íàñòàâëåíèÿ
äëÿ ïðèêîëîâ
íàä ñâîèìè äðóçüÿìè, òî
òâîè æåðòâû óæå äîëæíû
áûëè ïåðåëîìàòü òåáå
ðóêè :). Åñëè ýòî òàê, òî
òû íå ñìîæåøü íàïèñàòü
ïðèìåð. Ïîýòîìó ê ìîìåíòó
âûõîäà æóðíàëà â
Ðèñ 4. Ïàëèòðà “ß ó ìàìû ...”
ñâåò ÿ, êàê âñåãäà, âûëîæó
èñõîäíèêè ïðèìåðà
íà ñâîåì ñàéòå, è òû áåç ïðîáëåì ñìîæåøü èõ çàáðàòü è îòîìñòèòü. Àìèíü!!!
P.S. Ó ìåíÿ ê òåáå ïðîñüáà, íà ñòî áàêñîâ :). Íå ïèøè ìíå áîëüøèå ïèñüìà. Ïîñëå
ïîÿâëåíèÿ ðóáðèêè “êîäèíã” ìåíÿ êàæäûé äåíü âàëÿò âîïðîñàìè. ß íå â ñîñòîÿíèè
âñåì ðàññêàçûâàòü òî, î ÷åì ïèøóò êíèãè. ß ìîãó ÷òî-òî ïîäñêàçàòü, ãäåòî
ïîìî÷ü, íî íå áîëüøå. À ïðîñüáû òèïà ïîìîãè íàïèñàòü ïðîãó - âîîáùå íåðåàëüíû.
ß îòâå÷àþ òîëüêî íà òå âîïðîñû, ãäå îòâåò çàéìåò íåñêîëüêî ñòðî÷åê. Öåëûå
ëåêöèè ïî ìûëó ÿ ðàçâîäèòü íå ìîãó. ß áû ñ óäîâîëüñòâèåì ïîìîã âñåì, íî
ýòî ÍÅÂÎÇÌÎÆÍÎ. Âàñ ñëèøêîì ìíîãî, à ÿ îäèí :(((. Ïîýòîìó ëó÷øå ðàçáåé ñâîé
âîïðîñ íà íåñêîëüêî ìàëåíüêèõ è ñïðàøèâàé ïîñòåïåííî, à íå âñå ñðàçó.
ËÞÁÈØÜ ÊÎÄÈÒÜ
ËÈÑÒÈÍÃ 3
procedure SetState(key: Integer; Value: Boolean);
var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
KeyState[key] := Integer(Value);
SetKeyboardState(KeyState);
end;
ÍÀÐÎÄÍÀß ÌÓÄÐÎÑÒÜ
ËÞÁÈ È ÁÀÃÈ ÏÐÀÂÈÒÜ