Subversion Repositories Kolibri OS

{-$codepage cp866}

{$smartlink on}

{$apptype gui}

  � ॠ�������� ⮫쪮 ��� KolibriOS. �� �ᯮ�짮����� � ���� �ணࠬ����

  �ਫ������� ��⥣���᪨ �� ४����������, �뭮�� �� ��⮤�, �ᯮ����騥

  �� �㭪樨, � �⤥��� ���㫨 (� �ᯮ���� ����室��� ����ࠪ樨). }

{ �뢮� ᮤ�ন���� ���� �ਫ������ }

begin

  kos_begindraw();

  kos_definewindow(200, 200, 200, 50, $23AABBCC);

    ������ �� �⤥�쭮� �㭪樥� kos_setcaption }

  kos_setcaption('������ ���������');

  kos_drawtext(3, 8, '������ ���� �������...');

  kos_enddraw();

end;

{ ��ࠡ�⪠ ᮡ��� ������ ������ }

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;

{ ��ࠡ�⪠ ᮡ��� ������ ������ GUI }

var

 Button: DWord;

begin

  { ������� ��� ����⮩ ������ }

  Button := kos_getbutton();

  Result := Button <> 1;

end;

{ �������� � ��ࠡ�⪠ ᮡ�⨩.

  @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.