1 files changed, 226 insertions, 0 deletions
diff --git a/examples/apps/uidesigner/tests/tabtest.pas b/examples/apps/uidesigner/tests/tabtest.pas
new file mode 100644
index 00000000..9355a6d2
--- /dev/null
+++ b/examples/apps/uidesigner/tests/tabtest.pas
@@ -0,0 +1,226 @@
+unit tabtest;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  SysUtils, Classes, gfxbase, fpgfx, gui_edit, 
+  gfx_widget, gui_form, gui_label, gui_button,
+  gui_listbox, gui_memo, gui_combobox, gui_grid, 
+  gui_dialogs, gui_checkbox, gui_tree, gui_trackbar, 
+  gui_progressbar, gui_radiobutton, gui_tab, gui_menu,
+  gui_bevel;
+
+type
+
+  TfraGeneral = class(TfpgForm)
+  public
+    {@VFD_HEAD_BEGIN: fraGeneral}
+    lblName1: TfpgLabel;
+    edtName1: TfpgEdit;
+    memName1: TfpgMemo;
+    btnName1: TfpgButton;
+    {@VFD_HEAD_END: fraGeneral}
+    procedure AfterCreate; override;
+  end;
+
+
+  TfraAddress = class(TfpgForm)
+  public
+    {@VFD_HEAD_BEGIN: fraAddress}
+    edtName1: TfpgEdit;
+    lblName1: TfpgLabel;
+    lblName2: TfpgLabel;
+    lblName3: TfpgLabel;
+    cbName1: TfpgComboBox;
+    {@VFD_HEAD_END: fraAddress}
+    procedure AfterCreate; override;
+  end;
+
+
+  TfrmTabTest = class(TfpgForm)
+  private
+    procedure btnCloseClicked(Sender: TObject);
+  public
+    {@VFD_HEAD_BEGIN: frmTabTest}
+    pcName1: TfpgPageControl;
+    btnClose: TfpgButton;
+    {@VFD_HEAD_END: frmTabTest}
+    
+    // these must be added manually for now, until the GUI Designer is improved.
+    tsGeneral: TfpgTabSheet;
+    tsAddress: TfpgTabSheet;
+    tsAccounts: TfpgTabSheet;
+    fraGeneral: TfraGeneral;
+    fraAddress: TfraAddress;
+    procedure AfterCreate; override;
+  end;
+
+
+{@VFD_NEWFORM_DECL}
+
+implementation
+
+{@VFD_NEWFORM_IMPL}
+
+procedure TfraAddress.AfterCreate;
+begin
+  {@VFD_BODY_BEGIN: fraAddress}
+  Name := 'fraAddress';
+  SetPosition(602, 485, 208, 127);
+  WindowTitle := 'fraAddress';
+
+  edtName1 := TfpgEdit.Create(self);
+  with edtName1 do
+  begin
+    Name := 'edtName1';
+    SetPosition(64, 32, 120, 22);
+    Text := '';
+    FontDesc := '#Edit1';
+  end;
+
+  lblName1 := TfpgLabel.Create(self);
+  with lblName1 do
+  begin
+    Name := 'lblName1';
+    SetPosition(4, 4, 156, 16);
+    Text := 'TabSheet - Address';
+    FontDesc := '#Label2';
+  end;
+
+  lblName2 := TfpgLabel.Create(self);
+  with lblName2 do
+  begin
+    Name := 'lblName2';
+    SetPosition(8, 36, 44, 16);
+    Text := 'Street';
+    FontDesc := '#Label1';
+  end;
+
+  lblName3 := TfpgLabel.Create(self);
+  with lblName3 do
+  begin
+    Name := 'lblName3';
+    SetPosition(8, 60, 48, 16);
+    Text := 'City';
+    FontDesc := '#Label1';
+  end;
+
+  cbName1 := TfpgComboBox.Create(self);
+  with cbName1 do
+  begin
+    Name := 'cbName1';
+    SetPosition(64, 56, 120, 23);
+    Items.Add('Somerset West');
+    Items.Add('Cape Town');
+    Items.Add('Durban');
+    Items.Add('Jo''burg');
+    Items.Add('Pretoria');
+    FontDesc := '#List';
+    FocusItem := 1;
+  end;
+
+  {@VFD_BODY_END: fraAddress}
+end;
+
+
+procedure TfraGeneral.AfterCreate;
+begin
+  {@VFD_BODY_BEGIN: fraGeneral}
+  Name := 'fraGeneral';
+  SetPosition(611, 290, 197, 165);
+  WindowTitle := 'fraGeneral';
+
+  lblName1 := TfpgLabel.Create(self);
+  with lblName1 do
+  begin
+    Name := 'lblName1';
+    SetPosition(4, 4, 212, 16);
+    Text := 'TabSheet - General';
+    FontDesc := '#Label2';
+  end;
+
+  edtName1 := TfpgEdit.Create(self);
+  with edtName1 do
+  begin
+    Name := 'edtName1';
+    SetPosition(12, 28, 144, 22);
+    Anchors := [anLeft,anRight,anTop];
+    Text := '';
+    FontDesc := '#Edit1';
+  end;
+
+  memName1 := TfpgMemo.Create(self);
+  with memName1 do
+  begin
+    Name := 'memName1';
+    SetPosition(12, 56, 172, 96);
+    Anchors := [anLeft,anRight,anTop,anBottom];
+    FontDesc := '#Edit1';
+  end;
+
+  btnName1 := TfpgButton.Create(self);
+  with btnName1 do
+  begin
+    Name := 'btnName1';
+    SetPosition(160, 28, 19, 20);
+    Anchors := [anRight,anTop];
+    Text := '...';
+    FontDesc := '#Label1';
+    ImageName := '';
+    ModalResult := 0;
+  end;
+
+  {@VFD_BODY_END: fraGeneral}
+end;
+
+procedure TfrmTabTest.btnCloseClicked(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmTabTest.AfterCreate;
+begin
+  {@VFD_BODY_BEGIN: frmTabTest}
+  Name := 'frmTabTest';
+  SetPosition(293, 290, 275, 198);
+  WindowTitle := 'Tab Design Test';
+
+  pcName1 := TfpgPageControl.Create(self);
+  with pcName1 do
+  begin
+    Name := 'pcName1';
+    SetPosition(8, 12, 258, 148);
+    Anchors := [anLeft,anRight,anTop,anBottom];
+    FixedTabWidth := 0;
+    Style := tsTabs;
+    TabPosition := tpTop;
+    tsGeneral   := AppendTabSheet('General');
+    tsAddress   := AppendTabSheet('Address');
+    tsAccounts  := AppendTabSheet('EAddress');
+    ActivePage  := tsGeneral;
+  end;
+
+  btnClose := TfpgButton.Create(self);
+  with btnClose do
+  begin
+    Name := 'btnClose';
+    SetPosition(192, 168, 75, 24);
+    Anchors := [anRight,anBottom];
+    Text := 'Close';
+    FontDesc := '#Label1';
+    ImageName := '';
+    ModalResult := 0;
+    OnClick := @btnCloseClicked;
+  end;
+
+  {@VFD_BODY_END: frmTabTest}
+
+  fraGeneral := TfraGeneral.Create(tsGeneral);
+  fraGeneral.Align := alClient;
+  fraAddress := TfraAddress.Create(tsAddress);
+  fraAddress.Align := alClient;
+end;
+
+end.