diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-03 19:23:40 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-03-03 19:23:40 +0000 |
commit | cfbb1096706f6234cf8ac8fb0feefaae8b881ba9 (patch) | |
tree | f86d7fb67c7568cdd8284743f07a47cf457851ca /prototypes/miglayout/gui_miglayout.pas | |
parent | cec78aca668fb7b5eba7f60852854697619573ca (diff) | |
download | fpGUI-cfbb1096706f6234cf8ac8fb0feefaae8b881ba9.tar.xz |
* Added my MiG Layout Manager code to the prototypes diretory while I continue working on the port from Java.
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. + |