From 5720b4c6f5fd3c3e55ea2f531b9a0d6cdce662fe Mon Sep 17 00:00:00 2001 From: Felipe Menteiro de Carvalho Date: Mon, 9 Apr 2007 09:01:13 +0000 Subject: Started appending F to classes on fpgui, to make its namespace more unique --- examples/gui/concepttest/OpenSoftStyle.pas | 4 +- examples/gui/concepttest/compileroptform.frm | 274 +++++++++++++-------------- examples/gui/concepttest/frmCompilerOpt.pas | 38 ++-- 3 files changed, 158 insertions(+), 158 deletions(-) (limited to 'examples/gui/concepttest') diff --git a/examples/gui/concepttest/OpenSoftStyle.pas b/examples/gui/concepttest/OpenSoftStyle.pas index 6d2b65f8..60a25f8d 100644 --- a/examples/gui/concepttest/OpenSoftStyle.pas +++ b/examples/gui/concepttest/OpenSoftStyle.pas @@ -20,7 +20,7 @@ type // Colors function GetGUIColor(Color: TColor): TGfxColor; override; // Buttons (todo) - procedure DrawButtonFace(Canvas: TGfxCanvas; const ARect: TRect; Flags: TButtonFlags); override; + procedure DrawButtonFace(Canvas: TGfxCanvas; const ARect: TRect; Flags: TFButtonFlags); override; // GroupBox procedure DrawGroupBox(Canvas: TGfxCanvas; const ARect: TRect; const ALabel: String; WidgetState: TWidgetState); override; end; @@ -180,7 +180,7 @@ end; procedure TOpenSoftStyle.DrawButtonFace(Canvas: TGfxCanvas; const ARect: TRect; - Flags: TButtonFlags); + Flags: TFButtonFlags); begin // inherited DrawButtonFace(Canvas, ARect, Flags); PaintGradient(Canvas, ARect, Flags); diff --git a/examples/gui/concepttest/compileroptform.frm b/examples/gui/concepttest/compileroptform.frm index 1aae5daa..054601db 100644 --- a/examples/gui/concepttest/compileroptform.frm +++ b/examples/gui/concepttest/compileroptform.frm @@ -1,137 +1,137 @@ -object CompilerOptForm: TCompilerOptForm - Text = 'Compiler Options - Code' - BorderWidth = 5 - object Box1: TBoxLayout - Spacing = 8 - Orientation = Vertical - object Box2: TBoxLayout - Orientation = Vertical - Spacing = 4 - object Box4: TBoxLayout - object grpBox1: TGroupBox - Text = 'Unit Style:' - object grpBox1VBox1: TBoxLayout - Orientation = Vertical - object cbSmartLink: TCheckbox - Checked = True - Text = 'Smart Linkable (-CX)' - end - end - end - object grpBox2: TGroupBox - Text = 'Checks:' - object grpBox2VBox1: TBoxLayout - Orientation = Vertical - object rbIO: TRadioButton - Checked = True - Text = 'I/O (-Ci)' - end - object rbOverflow: TRadioButton - Checked = True - Text = 'Overflow (-Co)' - end - object rbRange: TRadioButton - Checked = True - Text = 'Range (-Cr)' - end - object rbStack: TRadioButton - Checked = True - Text = 'Stack (-Ct)' - end - end - end - object grpBox3: TGroupBox - Text = 'Heap Size (-Ch):' - object grpBox3VBox1: TBoxLayout - Orientation = Vertical - object edHeapSize: TEdit - Text = '0' - CanExpandWidth = False - end - end - end - end - object Box5: TBoxLayout - object grpBox4: TGroupBox - Text = 'Generate:' - object grpBox4VBox1: TBoxLayout - Orientation = Vertical - object rbNormal: TRadioButton - Text = 'Normal Code (none)' - end - object rbFaster: TRadioButton - Checked = True - Text = 'Faster Code (-OG)' - end - object rbSmaller: TRadioButton - Text = 'Smaller Code (-Og)' - end - end - end - object grpBox5: TGroupBox - Text = 'Target Platform:' - CanExpandHeight = True - object grpBox5VBox1: TBoxLayout - Orientation = Vertical - VertAlign = vertTop - object lblTarget1: TLabel - Text = 'Target OS (-T)' - end - object lblTarget2: TLabel - Text = 'Target CPU (-P)' - end - object lblTarget3: TLabel - Text = 'Target i386' - end - end - end - end - object Box6: TBoxLayout - object grpBox6: TGroupBox - Text = 'Optimizations:' - object grpBox6VBox1: TBoxLayout - Orientation = Vertical - CanExpandWidth = True - object rbLevel0: TRadioButton - Text = 'Level 0 (no extra Optimizations) (none)' - end - object rbLevel1: TRadioButton - Checked = True - Text = 'Level 1 (Quick Optimizations) (-O1)' - end - object rbLevel2: TRadioButton - Text = 'Level 2 (Level 1 + Slower Optimizations) (-O2)' - end - object rbLevel3: TRadioButton - Text = 'Level 3 (Level 2 + Uncertain) (-O3)' - end - object rbKeepVarReg: TCheckbox - Text = 'Keep certain variables in registers (-Or)' - end - object rbUncOpt: TCheckbox - Text = 'Uncertain Optimizations (-Ou)' - end - end - end - end - end - object Box3: TBoxLayout - object btnOK: TButton - Text = 'OK' - OnClick = btnCloseClick - end - object btnCancel: TButton - Text = 'Cancel' - end - object btnShowOpt: TButton - Text = 'Show Options' - end - object btnTest: TButton - Text = 'Test' - end - object btnLoadSave: TButton - Text = 'Load/Save' - end - end - end -end +object CompilerOptForm: TCompilerOptForm + Text = 'Compiler Options - Code' + BorderWidth = 5 + object Box1: TFBoxLayout + Spacing = 8 + Orientation = Vertical + object Box2: TFBoxLayout + Orientation = Vertical + Spacing = 4 + object Box4: TFBoxLayout + object grpBox1: TGroupBox + Text = 'Unit Style:' + object grpBox1VBox1: TFBoxLayout + Orientation = Vertical + object cbSmartLink: TCheckbox + Checked = True + Text = 'Smart Linkable (-CX)' + end + end + end + object grpBox2: TGroupBox + Text = 'Checks:' + object grpBox2VBox1: TFBoxLayout + Orientation = Vertical + object rbIO: TRadioButton + Checked = True + Text = 'I/O (-Ci)' + end + object rbOverflow: TRadioButton + Checked = True + Text = 'Overflow (-Co)' + end + object rbRange: TRadioButton + Checked = True + Text = 'Range (-Cr)' + end + object rbStack: TRadioButton + Checked = True + Text = 'Stack (-Ct)' + end + end + end + object grpBox3: TGroupBox + Text = 'Heap Size (-Ch):' + object grpBox3VBox1: TFBoxLayout + Orientation = Vertical + object edHeapSize: TEdit + Text = '0' + CanExpandWidth = False + end + end + end + end + object Box5: TFBoxLayout + object grpBox4: TGroupBox + Text = 'Generate:' + object grpBox4VBox1: TFBoxLayout + Orientation = Vertical + object rbNormal: TRadioButton + Text = 'Normal Code (none)' + end + object rbFaster: TRadioButton + Checked = True + Text = 'Faster Code (-OG)' + end + object rbSmaller: TRadioButton + Text = 'Smaller Code (-Og)' + end + end + end + object grpBox5: TGroupBox + Text = 'Target Platform:' + CanExpandHeight = True + object grpBox5VBox1: TFBoxLayout + Orientation = Vertical + VertAlign = vertTop + object lblTarget1: TFLabel + Text = 'Target OS (-T)' + end + object lblTarget2: TFLabel + Text = 'Target CPU (-P)' + end + object lblTarget3: TFLabel + Text = 'Target i386' + end + end + end + end + object Box6: TFBoxLayout + object grpBox6: TGroupBox + Text = 'Optimizations:' + object grpBox6VBox1: TFBoxLayout + Orientation = Vertical + CanExpandWidth = True + object rbLevel0: TRadioButton + Text = 'Level 0 (no extra Optimizations) (none)' + end + object rbLevel1: TRadioButton + Checked = True + Text = 'Level 1 (Quick Optimizations) (-O1)' + end + object rbLevel2: TRadioButton + Text = 'Level 2 (Level 1 + Slower Optimizations) (-O2)' + end + object rbLevel3: TRadioButton + Text = 'Level 3 (Level 2 + Uncertain) (-O3)' + end + object rbKeepVarReg: TCheckbox + Text = 'Keep certain variables in registers (-Or)' + end + object rbUncOpt: TCheckbox + Text = 'Uncertain Optimizations (-Ou)' + end + end + end + end + end + object Box3: TFBoxLayout + object btnOK: TFButton + Text = 'OK' + OnClick = btnCloseClick + end + object btnCancel: TFButton + Text = 'Cancel' + end + object btnShowOpt: TFButton + Text = 'Show Options' + end + object btnTest: TFButton + Text = 'Test' + end + object btnLoadSave: TFButton + Text = 'Load/Save' + end + end + end +end diff --git a/examples/gui/concepttest/frmCompilerOpt.pas b/examples/gui/concepttest/frmCompilerOpt.pas index b2f84a6f..b472e2ab 100644 --- a/examples/gui/concepttest/frmCompilerOpt.pas +++ b/examples/gui/concepttest/frmCompilerOpt.pas @@ -21,43 +21,43 @@ type 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; + Box1: TFBoxLayout; + Box2: TFBoxLayout; + Box3: TFBoxLayout; + Box4: TFBoxLayout; + Box5: TFBoxLayout; + Box6: TFBoxLayout; + btnOK, btnCancel, btnShowOp, btnTest, btnLoadSave : TFButton; grpBox1: TGroupBox; - grpBox1VBox1: TBoxLayout; - cbSmartLink: TCheckbox; + grpBox1VBox1: TFBoxLayout; + cbSmartLink: TFCheckbox; grpBox2: TGroupBox; - grpBox2VBox1: TBoxLayout; + grpBox2VBox1: TFBoxLayout; rbIO: TRadioButton; rbOverflow: TRadioButton; rbRange: TRadioButton; rbStack: TRadioButton; grpBox3: TGroupBox; - grpBox3VBox1: TBoxLayout; + grpBox3VBox1: TFBoxLayout; edHeapSize: TEdit; grpBox4: TGroupBox; - grpBox4VBox1: TBoxLayout; + grpBox4VBox1: TFBoxLayout; rbNormal: TRadioButton; rbFaster: TRadioButton; rbSmaller: TRadioButton; grpBox5: TGroupBox; - grpBox5VBox1: TBoxLayout; - lblTarget1: TLabel; - lblTarget2: TLabel; - lblTarget3: TLabel; + grpBox5VBox1: TFBoxLayout; + lblTarget1: TFLabel; + lblTarget2: TFLabel; + lblTarget3: TFLabel; grpBox6: TGroupBox; - grpBox6VBox1: TBoxLayout; + grpBox6VBox1: TFBoxLayout; rbLevel0: TRadioButton; rbLevel1: TRadioButton; rbLevel2: TRadioButton; rbLevel3: TRadioButton; - rbKeepVarReg: TCheckbox; - rbUncOpt: TCheckbox; + rbKeepVarReg: TFCheckbox; + rbUncOpt: TFCheckbox; end; var -- cgit v1.2.3-70-g09d2