diff options
Diffstat (limited to 'prototypes/miglayout/gui_miglayout.pas')
-rw-r--r-- | prototypes/miglayout/gui_miglayout.pas | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/prototypes/miglayout/gui_miglayout.pas b/prototypes/miglayout/gui_miglayout.pas new file mode 100644 index 00000000..ee626769 --- /dev/null +++ b/prototypes/miglayout/gui_miglayout.pas @@ -0,0 +1,48 @@ +unit gui_miglayout; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, gui_bevel, gfxbase; + +type + + { TfpgLayoutPanel } + + TfpgLayoutPanel = class(TfpgBevel) + protected + procedure HandleResize(awidth, aheight: TfpgCoord); override; + public + constructor Create(AOwner: TComponent); override; + procedure Add(AComponent: TComponent; AConstraint: string); + end; + +implementation + +uses + fpgfx; + +{ TfpgLayoutPanel } + +procedure TfpgLayoutPanel.HandleResize(awidth, aheight: TfpgCoord); +begin + writeln('HandleResize'); + inherited HandleResize(awidth, aheight); +end; + +constructor TfpgLayoutPanel.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + Align := alClient; + Shape := bsSpacer; +end; + +procedure TfpgLayoutPanel.Add(AComponent: TComponent; AConstraint: string); +begin + // +end; + +end. + |