SDK/Examples/ColorButtons/ColorButtons.dpr

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_CLIENT_COORDS + 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.