advances the customdrawn test battery

git-svn-id: trunk@33255 -
This commit is contained in:
sekelsenmat 2011-11-03 10:36:14 +00:00
parent 6781e70e5f
commit c0fd58624a
4 changed files with 92 additions and 16 deletions

View File

@ -26,6 +26,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
@ -52,7 +53,7 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="11"/>
<Target> <Target>
<Filename Value="cd_test_all"/> <Filename Value="cd_test_all"/>
</Target> </Target>
@ -61,10 +62,6 @@
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>
@ -72,6 +69,9 @@
</Options> </Options>
</Linking> </Linking>
<Other> <Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>

View File

@ -16,6 +16,7 @@ uses
begin begin
RequireDerivedFormResource := True; RequireDerivedFormResource := True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run; Application.Run;
end. end.

View File

@ -9,7 +9,7 @@ object Form1: TForm1
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object comboControls: TComboBox object comboControls: TComboBox
Left = 72 Left = 72
Height = 21 Height = 27
Top = 12 Top = 12
Width = 172 Width = 172
ItemHeight = 0 ItemHeight = 0
@ -21,6 +21,7 @@ object Form1: TForm1
'TCDGroupBox' 'TCDGroupBox'
'TCDCustomTabControl' 'TCDCustomTabControl'
) )
OnChange = comboControlsChange
TabOrder = 0 TabOrder = 0
Text = 'TCDButton' Text = 'TCDButton'
end end
@ -37,16 +38,71 @@ object Form1: TForm1
Height = 240 Height = 240
Top = 40 Top = 40
Width = 439 Width = 439
PageIndex = 1
TabOrder = 2 TabOrder = 2
TabStop = True TabStop = True
object Page1: TPage
ClientWidth = 439
ClientHeight = 240
object CDButton1: TCDButton
Left = 119
Height = 25
Top = 16
Width = 75
Caption = 'CDButton1'
Color = 15857141
DrawStyle = dsDefault
TabOrder = 0
TabStop = True
end
object CDButton2: TCDButton
Left = 119
Height = 25
Top = 50
Width = 75
Caption = 'CDButton2'
Color = 15857141
DrawStyle = dsDefault
TabOrder = 1
TabStop = True
end end
object Button1: TButton object Button1: TButton
Left = 24 Left = 7
Height = 25 Height = 25
Top = 55 Top = 16
Width = 75 Width = 75
Caption = 'TButton' Caption = 'TButton'
TabOrder = 3 TabOrder = 2
end
end
object Page2: TPage
ClientWidth = 439
ClientHeight = 240
object CDEdit1: TCDEdit
Left = 103
Height = 30
Top = 24
Width = 100
end
object Edit1: TEdit
Left = 8
Height = 25
Top = 28
Width = 80
TabOrder = 1
Text = 'Edit1'
end
end
object Page3: TPage
end
object Page4: TPage
end
object Page5: TPage
end
object Page6: TPage
end
object Page7: TPage
end
end end
object Memo1: TMemo object Memo1: TMemo
Left = 9 Left = 9
@ -56,7 +112,7 @@ object Form1: TForm1
Lines.Strings = ( Lines.Strings = (
'Memo1' 'Memo1'
) )
TabOrder = 4 TabOrder = 3
end end
object StaticText2: TStaticText object StaticText2: TStaticText
Left = 7 Left = 7
@ -64,6 +120,6 @@ object Form1: TForm1
Top = 281 Top = 281
Width = 65 Width = 65
Caption = 'Events:' Caption = 'Events:'
TabOrder = 5 TabOrder = 4
end end
end end

View File

@ -14,11 +14,23 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
Button1: TButton; Button1: TButton;
CDButton1: TCDButton;
CDButton2: TCDButton;
CDEdit1: TCDEdit;
comboControls: TComboBox; comboControls: TComboBox;
Edit1: TEdit;
Memo1: TMemo; Memo1: TMemo;
notebookControls: TNotebook; notebookControls: TNotebook;
Page1: TPage;
Page2: TPage;
Page3: TPage;
Page4: TPage;
Page5: TPage;
Page6: TPage;
Page7: TPage;
StaticText1: TStaticText; StaticText1: TStaticText;
StaticText2: TStaticText; StaticText2: TStaticText;
procedure comboControlsChange(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
@ -32,5 +44,12 @@ implementation
{$R *.lfm} {$R *.lfm}
{ TForm1 }
procedure TForm1.comboControlsChange(Sender: TObject);
begin
notebookControls.PageIndex := comboControls.ItemIndex;
end;
end. end.