Tests: Add a test project that tests the .Visible property.

In the test project is a memo with more details about how the test
functions and what to look for.

3 files changed, 366 insertions, 0 deletions

diff --git a/unittests/manual_tests/test_visible.lpi b/unittests/manual_tests/test_visible.lpi
new file mode 100644
index 00000000..2c18ebde
--- /dev/null
+++ b/unittests/manual_tests/test_visible.lpi
@@ -0,0 +1,74 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="7"/>
+    <General>
+      <Flags>
+        <SaveOnlyProjectUnits Value="True"/>
+      </Flags>
+      <SessionStorage Value="None"/>
+      <MainUnit Value="0"/>
+      <TargetFileExt Value=""/>
+      <Title Value="test_visible"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <VersionInfo>
+      <ProjectVersion Value=""/>
+      <Language Value=""/>
+      <CharSet Value=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="1">
+      <Item1>
+        <PackageName Value="fpgui_toolkit"/>
+      </Item1>
+    </RequiredPackages>
+    <Units Count="1">
+      <Unit0>
+        <Filename Value="test_visible.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="test_visible"/>
+      </Unit0>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="8"/>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)/"/>
+      <UnitOutputDirectory Value="units"/>
+    </SearchPaths>
+    <Parsing>
+      <SyntaxOptions>
+        <UseAnsiStrings Value="True"/>
+      </SyntaxOptions>
+    </Parsing>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
diff --git a/unittests/manual_tests/test_visible.lpr b/unittests/manual_tests/test_visible.lpr
new file mode 100644
index 00000000..6beb20d9
--- /dev/null
+++ b/unittests/manual_tests/test_visible.lpr
@@ -0,0 +1,291 @@
+{

+  Project to test the .Visible property of components.

+}

+program test_visible;

+

+{$mode objfpc}{$H+}

+

+uses

+  {$IFDEF UNIX}{$IFDEF UseCThreads}

+  cthreads,

+  {$ENDIF}{$ENDIF}

+  Classes, SysUtils, fpg_main, fpg_form, fpg_edit, fpg_button, fpg_label,

+  fpg_memo, fpg_checkbox, fpg_radiobutton, fpg_widget, fpg_panel, fpg_menu;

+

+type

+

+  TMainForm = class(TfpgForm)

+  private

+    {@VFD_HEAD_BEGIN: MainForm}

+    Edit1: TfpgEdit;

+    Label1: TfpgLabel;

+    Button1: TfpgButton;

+    Memo1: TfpgMemo;

+    CheckBox1: TfpgCheckBox;

+    RadioButton1: TfpgRadioButton;

+    Panel1: TfpgPanel;

+    Edit2: TfpgEdit;

+    Label2: TfpgLabel;

+    CheckBox2: TfpgCheckBox;

+    Memo2: TfpgMemo;

+    MainMenu: TfpgMenuBar;

+    pmFile: TfpgPopupMenu;

+    {@VFD_HEAD_END: MainForm}

+    procedure FormShow(Sender: TObject);

+    procedure CheckboxChanged(Sender: TObject);

+    procedure miFileQuitClicked(Sender: TObject);

+  public

+    constructor Create(AOwner: TComponent); override;

+    procedure AfterCreate; override;

+  end;

+

+{@VFD_NEWFORM_DECL}

+

+

+

+{@VFD_NEWFORM_IMPL}

+

+var

+  { manage indentation level }

+  indent: integer = 0;

+

+{ Output component hierarchy and status of each component's Visible property }

+procedure PrintVisibleState(AComponent: TfpgWidget);

+var

+  i: integer;

+  { Create string equal to indentation level }

+  function Spaces: string;

+  var

+    j: integer;

+  begin

+    if indent = 0 then

+      exit;

+    for j := 1 to indent do

+      Result := Result + ' ';

+  end;

+

+begin

+  writeln(Spaces + AComponent.ClassName + ' - [parent]: ' + BoolToStr(AComponent.Visible, True));

+  Inc(indent, 2);

+  for i := 0 to AComponent.ComponentCount-1 do

+  begin

+    if AComponent.Components[i].ComponentCount > 0 then

+      PrintVisibleState(TfpgWidget(AComponent.Components[i]))

+    else

+      writeln(Spaces + AComponent.Components[i].ClassName + ': ' + BoolToStr(TfpgWidget(AComponent.Components[i]).Visible, True));

+  end;

+  dec(indent, 2);

+end;

+

+procedure TMainForm.FormShow(Sender: TObject);

+begin

+  writeln('DEBUG:  TMainForm.FormShow >>');

+  PrintVisibleState(self);

+  writeln('DEBUG:  TMainForm.FormShow <<');

+end;

+

+procedure TMainForm.CheckboxChanged(Sender: TObject);

+begin

+  writeln('Checkbox clicked...');

+  Edit1.Visible := CheckBox1.Checked;

+  Panel1.Visible := CheckBox1.Checked;

+  PrintVisibleState(self);

+end;

+

+procedure TMainForm.miFileQuitClicked(Sender: TObject);

+begin

+  Close;

+end;

+

+constructor TMainForm.Create(AOwner: TComponent);

+begin

+  writeln('DEBUG:  TMainForm.Create >>');

+  inherited Create(AOwner);

+  OnShow  := @FormShow;

+  writeln('DEBUG:  TMainForm.Create <<');

+end;

+

+procedure TMainForm.AfterCreate;

+begin

+  {%region 'Auto-generated GUI code' -fold}

+  {@VFD_BODY_BEGIN: MainForm}

+  Name := 'MainForm';

+  SetPosition(316, 186, 591, 250);

+  WindowTitle := 'Test Visible property';

+  Hint := '';

+

+  Edit1 := TfpgEdit.Create(self);

+  with Edit1 do

+  begin

+    Name := 'Edit1';

+    SetPosition(8, 28, 120, 24);

+    Hint := '';

+    TabOrder := 0;

+    Text := '';

+    FontDesc := '#Edit1';

+    Visible := False;

+  end;

+

+  Label1 := TfpgLabel.Create(self);

+  with Label1 do

+  begin

+    Name := 'Label1';

+    SetPosition(140, 152, 80, 16);

+    FontDesc := '#Label1';

+    Hint := '';

+    Text := 'Label';

+  end;

+

+  Button1 := TfpgButton.Create(self);

+  with Button1 do

+  begin

+    Name := 'Button1';

+    SetPosition(140, 28, 80, 24);

+    Text := 'Button';

+    FontDesc := '#Label1';

+    Hint := '';

+    ImageName := '';

+    TabOrder := 2;

+  end;

+

+  Memo1 := TfpgMemo.Create(self);

+  with Memo1 do

+  begin

+    Name := 'Memo1';

+    SetPosition(8, 60, 120, 52);

+    Hint := '';

+    Lines.Add('');

+    FontDesc := '#Edit1';

+    TabOrder := 3;

+  end;

+

+  CheckBox1 := TfpgCheckBox.Create(self);

+  with CheckBox1 do

+  begin

+    Name := 'CheckBox1';

+    SetPosition(144, 64, 84, 20);

+    FontDesc := '#Label1';

+    Hint := '';

+    TabOrder := 4;

+    Text := 'Is Visible';

+    OnChange  := @CheckboxChanged;

+  end;

+

+  RadioButton1 := TfpgRadioButton.Create(self);

+  with RadioButton1 do

+  begin

+    Name := 'RadioButton1';

+    SetPosition(8, 120, 120, 20);

+    FontDesc := '#Label1';

+    GroupIndex := 0;

+    Hint := '';

+    TabOrder := 5;

+    Text := 'RadioButton';

+  end;

+

+  Panel1 := TfpgPanel.Create(self);

+  with Panel1 do

+  begin

+    Name := 'Panel1';

+    SetPosition(8, 148, 116, 72);

+    FontDesc := '#Label1';

+    Hint := '';

+    Text := '';

+  end;

+

+  Edit2 := TfpgEdit.Create(Panel1);

+  with Edit2 do

+  begin

+    Name := 'Edit2';

+    SetPosition(8, 8, 96, 24);

+    Hint := '';

+    TabOrder := 0;

+    Text := '';

+    FontDesc := '#Edit1';

+    Visible := False;

+  end;

+

+  Label2 := TfpgLabel.Create(Panel1);

+  with Label2 do

+  begin

+    Name := 'Label2';

+    SetPosition(8, 36, 64, 16);

+    FontDesc := '#Label1';

+    Hint := '';

+    Text := 'Label';

+  end;

+

+  CheckBox2 := TfpgCheckBox.Create(Panel1);

+  with CheckBox2 do

+  begin

+    Name := 'CheckBox2';

+    SetPosition(8, 50, 101, 20);

+    FontDesc := '#Label1';

+    Hint := '';

+    TabOrder := 2;

+    Text := 'CheckBox';

+  end;

+

+  Memo2 := TfpgMemo.Create(self);

+  with Memo2 do

+  begin

+    Name := 'Memo2';

+    SetPosition(248, 4, 320, 232);

+    Hint := '';

+    Lines.Add('This apps tests the .Visible property of components.');

+    Lines.Add('At startup, all TEdit componts should be invisible.');

+    Lines.Add('When you click the "Is Visible" checkbox for the first');

+    Lines.Add('time, then the Edit1 (top left) should become visible.');

+    Lines.Add('');

+    Lines.Add('All sub-sequent clicks of the "Is Visble" checkbox will');

+    Lines.Add('toggle the Edit1 and Panel1 visibility. Not other');

+    Lines.Add('components like Lable or Checbox inside Panel1');

+    Lines.Add('should always stay Visible = True.');

+    Lines.Add('');

+    Lines.Add('Console output at runtime will show .Visible status of');

+    Lines.Add('each component.');

+    FontDesc := '#Edit1';

+    TabOrder := 7;

+  end;

+

+  MainMenu := TfpgMenuBar.Create(self);

+  with MainMenu do

+  begin

+    Name := 'MainMenu';

+    SetPosition(0, 0, 144, 24);

+  end;

+

+  pmFile := TfpgPopupMenu.Create(self);

+  with pmFile do

+  begin

+    Name := 'pmFile';

+    SetPosition(108, 88, 120, 20);

+    AddMenuItem('Quit', '', @miFileQuitClicked);

+  end;

+

+  {@VFD_BODY_END: MainForm}

+

+  // hook up any sub-menus

+  MainMenu.AddMenuItem('File', nil).SubMenu := pmFile;

+  {%endregion}

+end;

+

+

+procedure MainProc;

+var

+  frm: TMainForm;

+begin

+  fpgApplication.Initialize;

+  frm := TMainForm.Create(nil);

+  try

+    frm.Show;

+    fpgApplication.Run;

+  finally

+    frm.Free;

+  end;

+end;

+

+begin

+  MainProc;

+end.

+
\ No newline at end of file
diff --git a/unittests/manual_tests/units/.gitignore b/unittests/manual_tests/units/.gitignore
new file mode 100644
index 00000000..f59ec20a
--- /dev/null
+++ b/unittests/manual_tests/units/.gitignore
@@ -0,0 +1 @@
+*
\ No newline at end of file