1 files changed, 334 insertions, 0 deletions
diff --git a/examples/gui/concepttest/hello.lpr b/examples/gui/concepttest/hello.lpr
new file mode 100644
index 00000000..0ac8138a
--- /dev/null
+++ b/examples/gui/concepttest/hello.lpr
@@ -0,0 +1,334 @@
+program hello;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Classes,
+  fpgui, gfxbase, frmCompilerOpt, OpenSoftStyle;
+
+type
+
+  { TMainForm }
+
+  TMainForm = class(TForm)
+    procedure Button3Clicked(Sender: TObject);
+  private
+    procedure btnCloseClick(Sender: TObject);
+    procedure btnGridFormClick(Sender: TObject);
+    procedure btnCompOptClick(Sender: TObject);
+    procedure btnTopClick(Sender: TObject);
+    procedure MainFormActivate(Sender: TObject);
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    HBox: TBoxLayout;
+    VBox: TBoxLayout;
+    TextLabel: TLabel;
+    Button: TButton;
+    btnGridForm: TButton;
+    btnCompOpt: TButton;
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
+  end;
+  
+  
+  { TGridForm }
+
+  TGridForm = Class(TForm)
+    Layout : TGridLayout;
+    Button1,Button2,Button3,Button4,Button5 : TButton;
+  public
+    constructor Create(AOwner: TComponent); override;
+  end;
+  
+  
+  { TFindDialog }
+
+  TFindDialog = class(TForm)
+  private
+    procedure btnCloseClick(Sender: TObject);
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    lblFind: TLabel;
+    btnFindNext, btnClose: TButton;
+    edFind: TEdit;
+    GroupBox1: TGroupBox;
+    grpBox1Layout: TBoxLayout;
+    Radio1, Radio2: TRadioButton;
+    cbCase: TCheckBox;
+    leftLayout, rightLayout: TBoxLayout;
+    topLeftLayout: TBoxLayout;
+    mainLayout: TBoxLayout;
+  end;
+
+
+{ TFindDialog }
+
+procedure TFindDialog.btnCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+
+constructor TFindDialog.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  Text := 'Find Dialog';
+  BorderWidth := 8;
+  WindowType := wtWindow;
+
+  topLeftLayout := TBoxLayout.Create(self);
+  lblFind := TLabel.Create(self);
+  lblFind.Text := 'Find what';
+  edFind := TEdit.Create(self);
+  topLeftLayout.InsertChild(lblFind);
+  topLeftLayout.InsertChild(edFind);
+  
+  leftLayout := TBoxLayout.Create(self);
+  leftLayout.Orientation := Vertical;
+  leftLayout.CanExpandHeight := True;
+  GroupBox1 := TGroupBox.Create(self);
+  GroupBox1.Text := 'Direction';
+  grpBox1Layout := TBoxLayout.Create(self);
+//  grpBox1Layout.Orientation := Vertical;
+  GroupBox1.InsertChild(grpBox1Layout);
+  Radio1 := TRadioButton.Create(self);
+  Radio1.Text := 'Up';
+  Radio2 := TRadioButton.Create(self);
+  Radio2.Text := 'Down';
+  grpBox1Layout.InsertChild(Radio1);
+  grpBox1Layout.InsertChild(Radio2);
+
+  cbCase := TCheckBox.Create(self);
+  cbCase.Text := 'Case sensitive';
+  leftLayout.InsertChild(topLeftLayout);
+  leftLayout.InsertChild(GroupBox1);
+  leftLayout.InsertChild(cbCase);
+  
+  rightLayout := TBoxLayout.Create(self);
+  rightLayout.Orientation := Vertical;
+  rightLayout.VertAlign := vertTop;
+  btnFindNext := TButton.Create(self);
+  btnFindNext.Text := 'Find Next';
+  btnClose := TButton.Create(self);
+  btnClose.Text := 'Close';
+  btnClose.CanExpandWidth := True;
+  btnClose.OnClick := @btnCloseClick;
+  rightLayout.InsertChild(btnFindNext);
+  rightLayout.InsertChild(btnClose);
+  
+  mainLayout := TBoxLayout.Create(self);
+  mainLayout.InsertChild(leftLayout);
+  mainLayout.InsertChild(rightLayout);
+  
+  Child := mainLayout;
+end;
+  
+{
+QHBoxLayout *topLeftLayout = new QHBoxLayout;
+topLeftLayout->addWidget(label);
+topLeftLayout->addWidget(lineEdit);
+
+QVBoxLayout *leftLayout = new QVBoxLayout;
+leftLayout->addLayout(topLeftLayout);
+leftLayout->addWidget(buttonGroup);
+leftLayout->addWidget(caseCheckBox);
+
+QVBoxLayout *rightLayout = new QVBoxLayout;
+rightLayout->addWidget(findNextButton);
+rightLayout->addWidget(closeButton);
+rightLayout->addStretch(1);
+
+QHBoxLayout *mainLayout = new QHBoxLayout(this);
+mainLayout->setMargin(11);
+mainLayout->setSpacing(6);
+mainLayout->addLayout(leftLayout);
+mainLayout->addLayout(rightLayout);
+}
+
+
+var
+  GridForm: TGridForm;
+  FindDialog: TFindDialog;
+
+{ TGridForm }
+
+constructor TGridForm.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+
+  Text := 'Grid Layout';
+  BorderWidth := 8;
+  self.BorderWidth := 11;
+
+  Layout := TGridLayout.Create(Self);
+    Layout.Name := 'Layout';
+    Layout.RowCount := 3;
+    Layout.ColCount := 3;
+
+    Button1 := TButton.Create(Self);
+      Button1.Name := 'TopLeft';
+      Button1.Text := 'Top Left';
+    Layout.AddWidget(Button1, 0, 0, 1, 1);
+    Button2 := TButton.Create(Self);
+      Button2.Name := 'TopRight';
+      Button2.Text := 'Top Right';
+    Layout.AddWidget(Button2, 2,0,1,1);
+    Button3 := TButton.Create(Self);
+      Button3.Name := 'CenterCenter';
+      Button3.Text := 'Center Center';
+      // Button3.CanExpandWidth := False;
+      // Button3.CanExpandHeight := False;
+    Layout.AddWidget(Button3, 1,1,1,1);
+    Button4 := TButton.Create(Self);
+      Button4.Name := 'BottomLeft';
+      Button4.Text := 'Bottom Left';
+    Layout.AddWidget(Button4,0,2,1,1);
+    Button5 := TButton.Create(Self);
+      Button5.Name := 'BottomRight';
+      Button5.Text := 'Bottom Right';
+    Layout.AddWidget(Button5, 2,2,1,1);
+  Child := Layout;
+end;
+
+
+{ TMainForm }
+
+procedure TMainForm.Button3Clicked(Sender: TObject);
+begin
+  Button.SetBounds(100, 50, 100, 45);
+  Redraw;
+end;
+
+procedure TMainForm.btnCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+
+procedure TMainForm.btnGridFormClick(Sender: TObject);
+begin
+  if not Assigned(GridForm) then
+  begin
+    GridForm := TGridForm.Create(self);
+//    Application.AddForm(GridForm);
+  end;
+
+    GridForm.Show;
+end;
+
+
+procedure TMainForm.btnCompOptClick(Sender: TObject);
+begin
+  if not Assigned(CompOpt) then
+    Application.CreateForm(TCompilerOptForm, CompOpt)
+  else
+    CompOpt.Show;
+end;
+
+
+procedure TMainForm.btnTopClick(Sender: TObject);
+begin
+  if not Assigned(FindDialog) then
+    FindDialog := TFindDialog.Create(self);
+  FindDialog.Show;
+end;
+
+
+procedure TMainForm.MainFormActivate(Sender: TObject);
+var
+  max: TSize;
+begin
+  max.cx := 600;
+  max.cy := 400;
+  self.Wnd.SetMinMaxClientSize(MinSize, max);
+end;
+
+
+constructor TMainForm.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  Name := 'frmMain';
+  BorderWidth := 8;
+  WindowType := wtWindow;
+  OnActivate := @MainFormActivate;
+
+  HBox := TBoxLayout.Create(self);
+  HBox.Name := 'HBox';
+  HBox.Parent := self;
+  HBox.Spacing := 3;
+  HBox.Orientation := Horizontal;
+
+  TextLabel := TLabel.Create(self);
+  TextLabel.Name := 'TextLabel';
+  TextLabel.Text := 'Hello';
+  TextLabel.Parent := HBox;
+
+  Button := TButton.Create(self);
+  Button.Parent := HBox;
+  Button.Text := 'Close';
+  Button.OnClick := @btnCloseClick;
+
+  btnGridForm := TButton.Create(self);
+  btnGridForm.Parent := HBox;
+  btnGridForm.Text := 'Grid Form';
+  btnGridForm.OnClick := @btnGridFormClick;
+  
+  btnCompOpt := TButton.Create(Self);
+    btnCompOpt.Parent := HBox;
+    btnCompOpt.Name := 'btnCompOpt';
+    btnCompOpt.Text := 'Compiler Options';
+    btnCompOpt.OnClick := @btnCompOptClick;
+//    btnCompOpt.FCanExpandWidth := True;  // if not used, button is smaller than others
+
+  VBox := TBoxLayout.Create(self);
+  VBox.Orientation := Vertical;
+    Button1 := TButton.Create(Self);
+      Button1.Name := 'Top';
+      Button1.Text := 'Top';
+      Button1.CanExpandWidth := True;  // if not used, button is smaller than others
+      Button1.OnClick := @btnTopClick;
+    VBox.InsertChild(Button1);
+    Button2 := TButton.Create(Self);
+      Button2.Name := 'Centre';
+      Button2.Text := 'Centre';
+      Button2.CanExpandWidth := True;
+    VBox.InsertChild(Button2);
+    Button3 := TButton.Create(Self);
+      Button3.Name := 'Bottom';
+      Button3.Text := 'Bottom (SetBounds)';
+      Button3.OnClick :=@Button3Clicked;
+    VBox.InsertChild(Button3);
+
+  HBox.InsertChild(VBox);
+
+
+  Child := HBox;
+end;
+
+
+var
+  MainForm: TMainForm;
+
+begin
+  MainForm := nil;
+  { set application wide style }
+
+  Application.SetStyle(FOpenSoftStyle);
+
+  MainForm := TMainForm.Create(Application);
+//  MainForm.SetBounds(Point(100, 300), Size(300,200));
+  try
+    MainForm.Show;
+    Application.Run;
+  finally
+    MainForm.Free;
+  end;
+
+end.
+