Subversion Repositories Kolibri OS

{-$codepage cp866}

{$smartlink on}

{$apptype console}

  �.�. ��४⨢� console ��易⥫쭠, ��������� �ணࠬ�� �� ������⢨� �⮩

  ��४⨢� �।��।����� �����. ��࠭�஢���� ����� �ᯮ�짮���� �㭪樨

  Write, WriteLn, Read, ReadLn �⭮�⥫쭮 �⠭���⭮� ���᮫� �����/�뢮��.

}

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

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

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

}

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

begin

  kos_begindraw();

  {��।������ ��ࠬ��஢ ����}

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

  {kos_definewindow �� ����� ��ࠬ��� ��� �뢮�� ���������,

   ������ �� �⤥�쭮� �㭪樥� 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();

  {�᫨ [x], � ������ ����, � ����� �஢��஢��� �����⨥ �ਫ������}

  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;

  WriteLn('Look for a new window, I''m just a konsole ;-)');

  MainLoop;

end.