0,0 → 1,98 |
|
{ FreePascal 2.2.0 ª®¤¨à®¢ª cp866 ¥ ॠ«¨§®¢ . } |
{-$codepage cp866} |
|
{$mode objfpc} |
{$smartlink on} |
{$apptype gui} |
|
program Example; |
|
{ ᥠäãªæ¨¨ ¨¬¥î騥 ¢ ᢮¥¬ ¨¬¥¨ ¯à¥ä¨ªá 'kos_' ïîâáï ¯« âä®à¬®§ ¢¨á¨¬ë¬¨ |
¨ ॠ«¨§®¢ ë ⮫쪮 ¤«ï KolibriOS. å ¨á¯®«ì§®¢ ¨¥ ¢ «î¡ëå ¯à®£à ¬¬ëå |
¯à¨«®¦¥¨ïå ª ⥣®à¨ç¥áª¨ ¥ ४®¬¥¤®¢ ®, ¢ë®á¨â¥ ¢á¥ ¬¥â®¤ë, ¨á¯®«ì§ãî騥 |
í⨠äãªæ¨¨, ¢ ®â¤¥«ìë¥ ¬®¤ã«¨ (¨ ¨á¯®«ì§ã©â¥ ¥®¡å®¤¨¬ë¥ ¡áâà ªæ¨¨). } |
|
|
procedure DoPaint; |
{ 뢮¤ ᮤ¥à¦¨¬®£® ®ª ¯à¨«®¦¥¨ï } |
begin |
kos_begindraw(); |
|
{ ®¯à¥¤¥«¥¨¥ ¯ à ¬¥â஢ ®ª } |
kos_definewindow(200, 200, 200, 50, $23AABBCC); |
|
{ kos_definewindow ¥ ¨¬¥¥â ¯ à ¬¥âà ¤«ï ¢ë¢®¤ § £®«®¢ª , |
¤¥« ¥¬ íâ® ®â¤¥«ì®© äãªæ¨¥© kos_setcaption } |
|
{ ®â®¡à ¦¥¨¥ § £®«®¢ª ®ª } |
kos_setcaption('
'); |
|
{ ¢ë¢®¤ á®®¡é¥¨ï } |
kos_drawtext(3, 8, ' ¦¬¨â¥ «î¡ãî ª« ¢¨èã...'); |
kos_enddraw(); |
end; |
|
|
procedure DoKey; |
{ ¡à ¡®âª ᮡëâ¨ï ¦ â¨ï ª« ¢¨è¨ } |
var |
Key: DWord; |
Notes: array[0..3] of Byte; |
begin |
Key := kos_getkey(); |
|
{ áâà ¨¢ ¥¬ ¡ãä¥à ¤«ï ®â } |
Notes[0] := $90; |
Notes[1] := Key shr 8; |
Notes[2] := $00; |
|
{ ¢®á¯à®¨§¢®¤¨¬ } |
kos_speaker(@Notes); |
end; |
|
|
function DoButton: Boolean; |
{ ¡à ¡®âª ᮡëâ¨ï ¦ â¨ï ª®¯ª¨ GUI } |
var |
Button: DWord; |
begin |
{ ¯®«ãç¨âì ª®¤ ¦ ⮩ ª«¨¢¨è¨ } |
Button := kos_getbutton(); |
|
{ ¥á«¨ [x], â® ¢¥àãâì «®¦ì, § ç¨â á¯à®¢®æ¨à®¢ âì § ªàë⨥ ¯à¨«®¦¥¨ï } |
Result := Button <> 1; |
end; |
|
|
function ProcessMessage: Boolean; |
{ ¦¨¤ ¨¥ ¨ ®¡à ¡®âª ᮡë⨩. |
|
@return: ®§¢à é ¥â False, ¥á«¨ ¡ë«® ᮡë⨥ ª § ¢¥àè¥¨î ¯à¨«®¦¥¨ï. |
@rtype : True ¨«¨ False } |
var |
Event: DWord; |
begin |
Result := True; |
|
{ ®¦¨¤ ¥¬ ᮡëâ¨ï ®â á¨á⥬ë } |
Event := kos_getevent(); |
case Event of |
SE_PAINT : DoPaint; { ¯¥à¥à¨á®¢ª ®ª } |
SE_KEYBOARD: DoKey; { ᮡë⨥ ®â ª« ¢¨ âãàë } |
SE_BUTTON : Result := DoButton; { ᮡë⨥ ®â ª®¯ª¨, ¬®¦¥â ®¯à¥¤¥«¨âì |
§ ¢¥à襨¥ ¯à¨«®¦¥¨ï, ¥á«¨ ¢¥à¥â False } |
end; |
end; |
|
|
{ « ¢ë© 横« ¯à¨«®¦¥¨ï } |
var |
ThreadSlot: TThreadSlot; |
begin |
{ áâà ¨¢ ¥¬ ᮡëâ¨ï, ª®â®àë¥ ¬ë £®â®¢ë ®¡à ¡ âë¢ âì } |
kos_maskevents(ME_PAINT or ME_KEYBOARD or ME_BUTTON); |
|
{ ®¡à ¡®âª ᮡë⨩ } |
while ProcessMessage do; |
end. |