1 files changed, 132 insertions, 0 deletions
diff --git a/examples/gui/concepttest/frmCompilerOpt.pas b/examples/gui/concepttest/frmCompilerOpt.pas
new file mode 100644
index 00000000..b2f84a6f
--- /dev/null
+++ b/examples/gui/concepttest/frmCompilerOpt.pas
@@ -0,0 +1,132 @@
+unit frmCompilerOpt;
+
+{$mode objfpc}{$H+}
+
+interface
+uses
+  Classes, SysUtils, fpgui;
+  
+
+type
+
+  { TCompilerOptForm }
+
+  TCompilerOptForm = Class(TForm)
+  private
+    FGroupBoxStyle: TStyle;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure CompOptFormOnActivate(Sender: TObject);
+    procedure SmartLinkClick(Sender: TObject);
+  published
+    procedure btnCloseClick(Sender: TObject);
+    Box1: TBoxLayout;
+    Box2: TBoxLayout;
+    Box3: TBoxLayout;
+    Box4: TBoxLayout;
+    Box5: TBoxLayout;
+    Box6: TBoxLayout;
+    btnOK, btnCancel, btnShowOp, btnTest, btnLoadSave : TButton;
+    grpBox1: TGroupBox;
+      grpBox1VBox1: TBoxLayout;
+        cbSmartLink: TCheckbox;
+    grpBox2: TGroupBox;
+      grpBox2VBox1: TBoxLayout;
+        rbIO: TRadioButton;
+        rbOverflow: TRadioButton;
+        rbRange: TRadioButton;
+        rbStack: TRadioButton;
+    grpBox3: TGroupBox;
+      grpBox3VBox1: TBoxLayout;
+        edHeapSize: TEdit;
+    grpBox4: TGroupBox;
+      grpBox4VBox1: TBoxLayout;
+        rbNormal: TRadioButton;
+        rbFaster: TRadioButton;
+        rbSmaller: TRadioButton;
+    grpBox5: TGroupBox;
+      grpBox5VBox1: TBoxLayout;
+        lblTarget1: TLabel;
+        lblTarget2: TLabel;
+        lblTarget3: TLabel;
+    grpBox6: TGroupBox;
+      grpBox6VBox1: TBoxLayout;
+        rbLevel0: TRadioButton;
+        rbLevel1: TRadioButton;
+        rbLevel2: TRadioButton;
+        rbLevel3: TRadioButton;
+        rbKeepVarReg: TCheckbox;
+        rbUncOpt: TCheckbox;
+  end;
+
+var
+  CompOpt: TCompilerOptForm;
+
+implementation
+uses
+  OpenSoftStyle;
+
+{ TCompilerOptForm }
+
+
+
+constructor TCompilerOptForm.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+//  FGroupBoxStyle := TOpenSoftStyle.Create(Application.Display);
+//  Style := FGroupBoxStyle;
+//  Style := FOpenSoftStyle;
+  OnActivate := @CompOptFormOnActivate;
+end;
+
+
+destructor TCompilerOptForm.Destroy;
+begin
+  FGroupBoxStyle.Free;
+  inherited Destroy;
+end;
+
+
+procedure TCompilerOptForm.CompOptFormOnActivate(Sender: TObject);
+begin
+  cbSmartLink.OnClick := @SmartLinkClick;
+
+{
+  grpBox1.CanExpandHeight := True;
+  grpBox1VBox1.CanExpandHeight := True;
+  grpBox1.CanExpandWidth := True;
+  grpBox2.CanExpandWidth := True;
+  grpBox3.CanExpandWidth := True;
+  grpBox4.CanExpandWidth := True;
+  grpBox5.CanExpandWidth := True;
+  grpBox6.CanExpandWidth := True;
+  
+  grpBox6VBox1.CanExpandWidth := True;
+}
+  grpBox5VBox1.VertAlign := vertFill;
+//  grpBox1.Style := FGroupBoxStyle;
+//  grpBox6.Style := FGroupBoxStyle;
+end;
+
+
+procedure TCompilerOptForm.SmartLinkClick(Sender: TObject);
+begin
+  grpBox1.Style := nil;
+  self.Redraw;
+//  grpBox1.Redraw;
+end;
+
+
+procedure TCompilerOptForm.btnCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+
+initialization
+finalization
+  CompOpt.Free;
+
+end.
+