* Added my MiG Layout Manager code to the prototypes diretory while I continue working on the port from Java.

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.
+