summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/apps/uidesigner/vfdforms.pas1
-rw-r--r--examples/gui/alignment_resize/alignment_resize.lpi55
-rw-r--r--examples/gui/alignment_resize/alignment_resize.lpr240
-rw-r--r--examples/gui/alignment_resize/extrafpc.cfg5
4 files changed, 300 insertions, 1 deletions
diff --git a/examples/apps/uidesigner/vfdforms.pas b/examples/apps/uidesigner/vfdforms.pas
index c7407a84..d7fc4657 100644
--- a/examples/apps/uidesigner/vfdforms.pas
+++ b/examples/apps/uidesigner/vfdforms.pas
@@ -127,7 +127,6 @@ type
implementation
uses
- vfdmain,
fpgfx,
gui_iniutils,
gfx_constants;
diff --git a/examples/gui/alignment_resize/alignment_resize.lpi b/examples/gui/alignment_resize/alignment_resize.lpi
new file mode 100644
index 00000000..0da35584
--- /dev/null
+++ b/examples/gui/alignment_resize/alignment_resize.lpi
@@ -0,0 +1,55 @@
+<?xml version="1.0"?>
+<CONFIG>
+ <ProjectOptions>
+ <PathDelim Value="/"/>
+ <Version Value="6"/>
+ <General>
+ <Flags>
+ <SaveOnlyProjectUnits Value="True"/>
+ </Flags>
+ <SessionStorage Value="InProjectDir"/>
+ <MainUnit Value="0"/>
+ <IconPath Value="./"/>
+ <TargetFileExt Value=""/>
+ <Title Value="alignment_resize"/>
+ </General>
+ <VersionInfo>
+ <ProjectVersion 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"/>
+ <MinVersion Minor="6" Release="2" Valid="True"/>
+ </Item1>
+ </RequiredPackages>
+ <Units Count="1">
+ <Unit0>
+ <Filename Value="alignment_resize.lpr"/>
+ <IsPartOfProject Value="True"/>
+ <UnitName Value="alignment_resize"/>
+ </Unit0>
+ </Units>
+ </ProjectOptions>
+ <CompilerOptions>
+ <Version Value="5"/>
+ <CodeGeneration>
+ <Generate Value="Faster"/>
+ </CodeGeneration>
+ <Other>
+ <CustomOptions Value="-FUunits"/>
+ <CompilerPath Value="$(CompPath)"/>
+ </Other>
+ </CompilerOptions>
+</CONFIG>
diff --git a/examples/gui/alignment_resize/alignment_resize.lpr b/examples/gui/alignment_resize/alignment_resize.lpr
new file mode 100644
index 00000000..8c6b2b03
--- /dev/null
+++ b/examples/gui/alignment_resize/alignment_resize.lpr
@@ -0,0 +1,240 @@
+program alignment_resize;
+
+{$mode objfpc}{$H+}
+
+uses
+ {$IFDEF UNIX}{$IFDEF UseCThreads}
+ cthreads,
+ {$ENDIF}{$ENDIF}
+ Classes, SysUtils, fpgfx, gfxbase, gui_form, gui_button, gui_panel, gui_label,
+ gui_radiobutton, gui_memo;
+
+type
+
+ TMainForm = class(TfpgForm)
+ private
+ procedure btnGoClicked(Sender: TObject);
+ procedure btnResetClicked(Sender: TObject);
+ procedure PanelResized(Sender: TObject);
+ public
+ {@VFD_HEAD_BEGIN: MainForm}
+ btnName1: TfpgButton;
+ btnName2: TfpgButton;
+ pnlName1: TfpgPanel;
+ btnName3: TfpgButton;
+ btnName4: TfpgButton;
+ btnName5: TfpgButton;
+ btnName6: TfpgButton;
+ lblName1: TfpgLabel;
+ pnlName2: TfpgPanel;
+ rbName1: TfpgRadioButton;
+ rbName2: TfpgRadioButton;
+ rbName3: TfpgRadioButton;
+ memName1: TfpgMemo;
+ {@VFD_HEAD_END: MainForm}
+ procedure AfterCreate; override;
+ end;
+
+{@VFD_NEWFORM_DECL}
+
+
+
+{@VFD_NEWFORM_IMPL}
+
+procedure TMainForm.btnGoClicked(Sender: TObject);
+begin
+ if rbName1.Checked then
+ begin
+ pnlName1.SetPosition(4, 68, 240, 192);
+ end
+ else if rbName2.Checked then
+ begin
+ pnlName1.Width := 240;
+ pnlName1.Height := 192;
+ pnlName1.UpdateWindowPosition;
+ end
+ else if rbName3.Checked then
+ begin
+ pnlName1.MoveAndResizeBy(0, 0, 100, 100);
+ end;
+end;
+
+procedure TMainForm.btnResetClicked(Sender: TObject);
+begin
+ pnlName1.SetPosition(4, 68, 140, 92);
+end;
+
+procedure TMainForm.PanelResized(Sender: TObject);
+begin
+ memName1.Lines.Insert(0, FormatDateTime('HH:mm:ss', Time) + ' Panel.OnResize');
+end;
+
+procedure TMainForm.AfterCreate;
+begin
+ {@VFD_BODY_BEGIN: MainForm}
+ Name := 'MainForm';
+ SetPosition(316, 186, 467, 284);
+ WindowTitle := 'Runtime resize/alignment test';
+ WindowPosition := wpScreenCenter;
+ Sizeable := False;
+
+ btnName1 := TfpgButton.Create(self);
+ with btnName1 do
+ begin
+ Name := 'btnName1';
+ SetPosition(4, 4, 80, 24);
+ Text := 'Go';
+ FontDesc := '#Label1';
+ ImageName := '';
+ OnClick := @btnGoClicked;
+ end;
+
+ btnName2 := TfpgButton.Create(self);
+ with btnName2 do
+ begin
+ Name := 'btnName2';
+ SetPosition(4, 32, 80, 24);
+ Text := 'Reset';
+ FontDesc := '#Label1';
+ ImageName := '';
+ TabOrder := 1;
+ OnClick := @btnResetClicked;
+ end;
+
+ pnlName1 := TfpgPanel.Create(self);
+ with pnlName1 do
+ begin
+ Name := 'pnlName1';
+ SetPosition(4, 68, 140, 92);
+ Text := '';
+ BackgroundColor := clDarkKhaki;
+ OnResize := @PanelResized;
+ end;
+
+ btnName3 := TfpgButton.Create(pnlName1);
+ with btnName3 do
+ begin
+ Name := 'btnName3';
+ SetPosition(8, 8, 24, 24);
+ Text := '1';
+ FontDesc := '#Label1';
+ ImageName := '';
+ end;
+
+ btnName4 := TfpgButton.Create(pnlName1);
+ with btnName4 do
+ begin
+ Name := 'btnName4';
+ SetPosition(108, 8, 24, 24);
+ Anchors := [anRight,anTop];
+ Text := '2';
+ FontDesc := '#Label1';
+ ImageName := '';
+ TabOrder := 1;
+ end;
+
+ btnName5 := TfpgButton.Create(pnlName1);
+ with btnName5 do
+ begin
+ Name := 'btnName5';
+ SetPosition(8, 60, 24, 24);
+ Anchors := [anLeft,anBottom];
+ Text := '3';
+ FontDesc := '#Label1';
+ ImageName := '';
+ TabOrder := 2;
+ end;
+
+ btnName6 := TfpgButton.Create(pnlName1);
+ with btnName6 do
+ begin
+ Name := 'btnName6';
+ SetPosition(108, 60, 24, 24);
+ Anchors := [anRight,anBottom];
+ Text := '4';
+ FontDesc := '#Label1';
+ ImageName := '';
+ TabOrder := 3;
+ end;
+
+ lblName1 := TfpgLabel.Create(self);
+ with lblName1 do
+ begin
+ Name := 'lblName1';
+ SetPosition(272, 4, 116, 16);
+ FontDesc := '#Label2';
+ Text := 'Update method';
+ end;
+
+ pnlName2 := TfpgPanel.Create(self);
+ with pnlName2 do
+ begin
+ Name := 'pnlName2';
+ SetPosition(256, 12, 4, 264);
+ Style := bsLowered;
+ Text := '';
+ end;
+
+ rbName1 := TfpgRadioButton.Create(self);
+ with rbName1 do
+ begin
+ Name := 'rbName1';
+ SetPosition(288, 28, 172, 20);
+ Checked := True;
+ FontDesc := '#Label1';
+ TabOrder := 5;
+ Text := 'SetPosition()';
+ end;
+
+ rbName2 := TfpgRadioButton.Create(self);
+ with rbName2 do
+ begin
+ Name := 'rbName2';
+ SetPosition(288, 48, 172, 20);
+ FontDesc := '#Label1';
+ TabOrder := 6;
+ Text := 'UpdateWindowPosition()';
+ end;
+
+ rbName3 := TfpgRadioButton.Create(self);
+ with rbName3 do
+ begin
+ Name := 'rbName3';
+ SetPosition(288, 68, 172, 20);
+ FontDesc := '#Label1';
+ TabOrder := 7;
+ Text := 'MoveAndResizeBy()';
+ end;
+
+ memName1 := TfpgMemo.Create(self);
+ with memName1 do
+ begin
+ Name := 'memName1';
+ SetPosition(272, 104, 184, 164);
+ FontDesc := '#Edit1';
+ TabOrder := 8;
+ end;
+
+ {@VFD_BODY_END: MainForm}
+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.
+
+
diff --git a/examples/gui/alignment_resize/extrafpc.cfg b/examples/gui/alignment_resize/extrafpc.cfg
new file mode 100644
index 00000000..073dc4b6
--- /dev/null
+++ b/examples/gui/alignment_resize/extrafpc.cfg
@@ -0,0 +1,5 @@
+-FUunits
+-Fu../../../lib
+-Xs
+-XX
+-CX
generated by cgit v1.2.3-70-g09d2 (git 2.47.1) at 2024-12-27 12:12:56 +0000