paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 02:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn tests: Adds radiobutton

Browse Source 
git-svn-id: trunk@33341 -
This commit is contained in:
sekelsenmat 2011-11-05 14:54:37 +00:00
parent 929119be32
commit 84fd8c7545
2 changed files with 85 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
test/customdrawn/mainform.lfm
View File

@ -15,16 +15,24 @@ object Form1: TForm1
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'TCDMenu'
'TCDPopUp'
'TCDButton'
'TCDEdit'
'TCDEdit Multiline'
'TCDToggleBox'
'TCDCheckBox'
'TCDRadioButton'
'TCDListBox'
'TCDComboBox'
'TCDScrollBar'
'TCDGroupBox'
'TCDTrackBar'
'TCDCustomTabControl'
)
OnChange = comboControlsChange
TabOrder = 0
Text = 'TCDButton'
Text = 'TCDMenu'
end
object StaticText1: TStaticText
Left = 9
@ -40,12 +48,16 @@ object Form1: TForm1
Height = 240
Top = 40
Width = 439
PageIndex = 5
PageIndex = 7
TabOrder = 2
TabStop = True
object pageMenu: TPage
end
object pagePopUp: TPage
end
object pageButtons: TPage
ClientWidth = 439
ClientHeight = 240
ClientWidth = 878
ClientHeight = 480
object CDButton1: TCDButton
Left = 119
Height = 25
@ -101,8 +113,8 @@ object Form1: TForm1
end
end
object pageEdits: TPage
ClientWidth = 878
ClientHeight = 480
ClientWidth = 1756
ClientHeight = 960
object CDEdit1: TCDEdit
Left = 119
Height = 24
@ -136,9 +148,13 @@ object Form1: TForm1
Text = 'editWinXP'
end
end
object pageEditMultiline: TPage
end
object Page1: TPage
end
object pageCheckboxes: TPage
ClientWidth = 878
ClientHeight = 480
ClientWidth = 7024
ClientHeight = 3840
object CheckBox1: TCheckBox
Left = 20
Height = 17
@ -164,9 +180,52 @@ object Form1: TForm1
Caption = 'dsWinCE'
end
end
object pageGroupBoxes: TPage
object pageRadioButton: TPage
ClientWidth = 439
ClientHeight = 240
object RadioButton1: TRadioButton
Left = 16
Height = 17
Top = 30
Width = 83
Caption = 'RadioButton1'
TabOrder = 0
end
object RadioButton2: TRadioButton
Left = 16
Height = 17
Top = 48
Width = 83
Caption = 'RadioButton2'
TabOrder = 1
end
object RadioButton3: TRadioButton
Left = 16
Height = 17
Top = 64
Width = 83
Caption = 'RadioButton3'
TabOrder = 2
end
object CDRadioButton1: TCDRadioButton
Left = 136
Height = 16
Top = 32
Width = 101
DrawStyle = dsCommon
Caption = 'dsCommon'
TabStop = False
end
end
object Page5: TPage
end
object Page6: TPage
end
object Page7: TPage
end
object pageGroupBoxes: TPage
ClientWidth = 3512
ClientHeight = 1920
object GroupBox1: TGroupBox
Left = 7
Height = 100
@ -227,8 +286,8 @@ object Form1: TForm1
end
end
object pageTrackBars: TPage
ClientWidth = 3512
ClientHeight = 1920
ClientWidth = 28096
ClientHeight = 15360
object TrackBar1: TTrackBar
Left = 7
Height = 25
@ -248,6 +307,8 @@ object Form1: TForm1
Position = 0
end
end
object Page8: TPage
end
object pagePageControls: TPage
ClientWidth = 439
ClientHeight = 240

13
test/customdrawn/mainform.pas
View File

@ -24,6 +24,7 @@ type
CDCheckBox2: TCDCheckBox;
CDEdit1: TCDEdit;
CDEdit2: TCDEdit;
CDRadioButton1: TCDRadioButton;
editWinXP: TCDEdit;
CDGroupBox1: TCDGroupBox;
CDGroupBox2: TCDGroupBox;
@ -42,6 +43,15 @@ type
Label2: TLabel;
memoLog: TMemo;
notebookControls: TNotebook;
Page1: TPage;
pageMenu: TPage;
pagePopUp: TPage;
pageEditMultiline: TPage;
pageRadioButton: TPage;
Page5: TPage;
Page6: TPage;
Page7: TPage;
Page8: TPage;
pageButtons: TPage;
PageControl1: TPageControl;
pageEdits: TPage;
@ -50,6 +60,9 @@ type
pageTrackBars: TPage;
pagePageControls: TPage;
pageTabControls: TPage;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;