mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 19:58:45 +02:00
advances the customdrawn test battery
git-svn-id: trunk@33255 -
This commit is contained in:
parent
6781e70e5f
commit
c0fd58624a
@ -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>
|
||||||
|
@ -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.
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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.
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user