Project tree simplified

Examples/ColorButtons/ColorButtons.dpr

@@ -0,0 +1,58 @@
+program ColorButtons;
+
+uses
+  KolibriOS;
+
+const
+  COLOR_BLUE    = $000000FF;
+  COLOR_RED     = $00FF0000;
+  COLOR_GREEN   = $0000FF00;
+  COLOR_BLACK   = $00000000;
+
+  BLACK_BUTTON  = 1000;
+  BLUE_BUTTON   = 2000;
+  GREEN_BUTTON  = 3000;
+  RED_BUTTON    = 4000;
+
+var
+  Left, Right, Top, Bottom: Integer;
+
+begin
+  with GetScreenSize do
+  begin
+    Right := Width div 4;
+    Bottom := Height div 4;
+    Left := (Width - Right) div 2;
+    Top := (Height - Bottom) div 2;
+  end;
+
+  while True do
+    case WaitEvent of
+      REDRAW_EVENT:
+        begin
+          BeginDraw;
+          DrawWindow(Left, Top, Right, Bottom, 'Color Buttons', $00FFFFFF,
+            WS_SKINNED_FIXED + WS_COORD_CLIENT + WS_CAPTION, CAPTION_MOVABLE);
+          DrawButton(10, 20, 50, 30, COLOR_RED, 0, RED_BUTTON);
+          DrawButton(70, 20, 50, 30, COLOR_GREEN, 0, GREEN_BUTTON);
+          DrawButton(10, 60, 50, 30, COLOR_BLUE, 0, BLUE_BUTTON);
+          DrawButton(70, 60, 50, 30, COLOR_BLACK, 0, BLACK_BUTTON);
+          EndDraw;
+        end;
+      KEY_EVENT:
+        GetKey;
+      BUTTON_EVENT:
+        case GetButton.ID of
+          BLUE_BUTTON:
+            SetWindowCaption('Blue');
+          GREEN_BUTTON:
+            SetWindowCaption('Green');
+          RED_BUTTON:
+            SetWindowCaption('Red');
+          BLACK_BUTTON:
+            SetWindowCaption('Black');
+          1:
+            TerminateThread;
+        end;
+    end;
+end.

Examples/ColorButtons/build.bat

@@ -0,0 +1 @@
+@call "%~dp0..\..\Lib\build.bat" "%~dp0ColorButtons"