program MiniGUIDemo;

{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF FPC}

uses Windows, Classes, ceMiniGUI;

type
   TMyApp = class (TMiniAppWindow)
   private
      labelDemo: TMiniAppLabel;
      buttonDemo: TMiniAppButton;
      procedure OnLabelDemoClick();
      procedure OnButtonDemoClick();
   public
      constructor Create;
   end;

{ TMyApp }

{$R MiniGUIDemo.res} // needs a background BITMAP

procedure TMyApp.OnLabelDemoClick();
begin
   buttonDemo.Text := 'Click me instead!';
end;

procedure TMyApp.OnButtonDemoClick();
begin
   labelDemo.Text := 'click @ button!';
end;

constructor TMyApp.Create;
begin
   inherited;
   WindowTitle := 'Mini GUI sample application';
   BackgroundResource := 'BACKGROUND';
   Initialize('pkMiniGUIApp');
   labelDemo := TMiniAppLabel.Create(Self, 'Hello World', 4, 4, ClientWidth-8);
   labelDemo.OnClick := @OnLabelDemoClick;
   labelDemo.Align := [malLeft, malTop, malRight];
   labelDemo.Transparent := true;
   buttonDemo := TMiniAppButton.Create(Self, 'Click me now!', 24, 4, Clientwidth-8);
   buttonDemo.Align := [malLeft, malTop, malRight];
   buttonDemo.OnClick := @OnButtonDemoClick;
   Run;
end;

{ Main }

var MyApp: TMyApp;

begin
   MyApp := TMyApp.Create;
   MyApp.Free;
end.