Board.KolibriOS.org

"../peload/run.bat" "/hd1/2/DelphiKOS/test2/project1.exe"

Set KIW="C:/Path/To/KlbrInWin/KlbrInWin.exe"
Set PEL="C:/Path/To/PELoad/peload.kex"
Set EXE=%1
%KIW% %PEL% %EXE%

 i := 1;
 While i <= 10 Do Begin
   DrawText( i Shl 1 + 10, i * 12, 'Test DrawText', COLOR_RED, COLOR_GREEN,
                                 DT_CP866_6X9 + DT_FILL_OPAQUE + DT_ZSTRING, 0);
   Inc(i);
 End;
 i := 1;
 While i <= 10 Do Begin
   DrawText( -i Shl 1 + 128, i * 12, 'DrawText test', COLOR_GREEN, COLOR_BLUE,
                                DT_CP866_8X16 + DT_FILL_OPAQUE + DT_ZSTRING, 0);
   Inc(i);
 End;

(* -------------------------------------------------------- *)
Procedure DrawStr(X, Y: Integer; Text: PChar; ForeColor, BackColor, Flags: Cardinal); Overload;
Begin
  DrawText(X, Y, Text, ForeColor, BackColor, Flags Or DT_ZSTRING, 0);
End;
(* -------------------------------------------------------- *)
Procedure DrawStr(X, Y: Integer; Text: ShortString; ForeColor, BackColor, Flags: Cardinal); Overload;
Begin
  DrawText(X, Y, @Text[1], ForeColor, BackColor, Flags And Not DT_ZSTRING, Cardinal(Text[0]));
End;
(* -------------------------------------------------------- *)

...................................................................  
  If CreateFile('/sys/NewFile.txt') = 0 Then
    strCreateResult := 'File created.'
  Else
    strCreateResult := 'CreateFile Error!';

  If RunFile('/sys/develop/cobj', '/sys/lib/box_lib.obj') > 0 Then
    strRunResult := 'Program started successfully.'
  Else
    strRunResult := 'RunFile Error!';
...................................................................  
 If ReadFile('/sys/file managers/KFM_KEYS.TXT', @Buffer, 60, 0, 0) = 0 Then
    DrawStr(20, 110, @Buffer, COLOR_RED, COLOR_GREEN, DT_CP866_8X16)
 Else
    DrawStr(20, 110, 'ReadFile Error!', COLOR_RED, COLOR_GREEN, DT_CP866_8X16);

 DrawStr(20, 127, strCreateResult, COLOR_RED, COLOR_GREEN, DT_CP866_8X16);
 DrawStr(20, 144, strRunResult, COLOR_RED, COLOR_GREEN, DT_CP866_8X16);
...................................................................   

 DrawButton(10, 20, 50, 30, COLOR_BLUE, 0, BLUE_BUTTON);
 DrawButton(70, 20, 50, 30, COLOR_GREEN, 0, GREEN_BUTTON);
 DrawButton(10, 60, 50, 30, COLOR_RED, 0, RED_BUTTON);
 DrawButton(70, 60, 50, 30, COLOR_BLACK, 0, BLACK_BUTTON);
 ....................................................................................
  Case GetButton() Shr 8 Of
  1:            ThreadTerminate;
  BLUE_BUTTON:  SetWindowCaption('Blue Button Pressed.');
  GREEN_BUTTON: SetWindowCaption('Green Button Pressed.');
  RED_BUTTON:   SetWindowCaption('Red Button Pressed.');
  BLACK_BUTTON: SetWindowCaption('Black Button Pressed.');
  End;

  hBoxLib := LoadLibrary('/sys/lib/box_lib.obj');
  HScrollbarDraw  := GetProcAddress(hBoxLib, 'scrollbar_h_draw');
  HScrollbarMouse := GetProcAddress(hBoxLib, 'scrollbar_h_mouse');

  With Scrollbar1 Do Begin
    ar_offset  := 1;
    all_redraw := 1;
    size_x     := 200;
    btn_high   := 16;
    bckg_col   := COLOR_GREEN;
    frnt_col   := COLOR_GREEN Or COLOR_BLUE;
    line_col   := COLOR_BLUE;
    start_y    := 40;
    size_y     := 16;
    start_x    := 35;
    max_area   := 160;
    cur_area   := 40;
    mode       := 1;
  End;

  SetEventMask(EM_REDRAW + EM_KEY + EM_BUTTON + EM_MOUSE);
......................................................................
 Scrollbar1.all_redraw := 1;
 HScrollbarDraw(@Scrollbar1); 
...................................................................... 
Procedure On_Mouse();
Begin
  HScrollbarMouse(@Scrollbar1);;
End;