Вот в этой теме KolibriOS.lib и KEm уже было начато обсуждение одной идеи.

Я не утверждаю, что оно именно так и должно быть, как у меня.
Но это рабочий пример, который можно скомпилировать и под Windows, и под KolibriOS.
Исходный код при этом остаётся без изменений.

Использовался код из KEm и KolibriOS.Lib.

Test.dpr — исходник
make(For KolibriOS).bat — для сборки под KolibriOS
make(For Windows).bat — для сборки под Windows

После успешной сборки в папке рядом с Test.dpr должен появиться файл собранного приложения(kex или exe).

https://my-files.ru/Save/svovnc/Test_De … Windows.7z

Исходный код примера:

Свернутый текст
Код:
Program Test;
(* -------------------------------------------------------- *)
Uses KolibriOS;
(* -------------------------------------------------------- *)
Procedure On_Redraw;
Begin
  BeginDraw;
  DrawWindow(100, 50, 200, 150, 'Hello!', $00FFFFFF, WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE);
  DrawText(10, 5, 'My text', $000F0F00, $0000F0F0, DT_ZSTRING + DT_FILL_OPAQUE + DT_CP866_8X16, 0);
  DrawLine(20, 30, 50, 30, $0000AFAF);
  DrawRectangle(25, 35, 40, 20, $00FF0FAF);
  EndDraw;
End;
(* -------------------------------------------------------- *)
Procedure On_Key;
Begin
  GetKey;
End;
(* -------------------------------------------------------- *)
Procedure On_Button;
Begin
  Case GetButton().ID Of
    1: ThreadTerminate;
  End;
End;
(* -------------------------------------------------------- *)
Begin
  While TRUE Do Begin
    Case WaitEvent() Of
      REDRAW_EVENT: On_Redraw;
      KEY_EVENT:    On_Key;
      BUTTON_EVENT: On_Button;
    End;
  End;
End.

Файл скина default.skn используется в exe под Windows и подгружается во время запуска из папки с приложением, не удаляйте его оттуда.
Хотя можно при желании использовать другой путь к скину.
Если хочется добавить недостающие функции, то их можно скопировать из KEm.

Отредактировано 0CodErr (2019-06-30 09:04:15)