paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 23:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn tests: adds TCDStaticText

Browse Source 
git-svn-id: trunk@33345 -
This commit is contained in:
sekelsenmat 2011-11-05 16:34:56 +00:00
parent 21ab9f3b6a
commit f7dc81a9d1
2 changed files with 43 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
test/customdrawn/mainform.lfm
View File

@ -27,6 +27,8 @@ object Form1: TForm1
'TCDComboBox' 'TCDComboBox'
'TCDScrollBar' 'TCDScrollBar'
'TCDGroupBox' 'TCDGroupBox'
'TCDPanel'
'TCDStaticText'
'TCDTrackBar' 'TCDTrackBar'
'TCDCustomTabControl' 'TCDCustomTabControl'
) )
@ -48,7 +50,7 @@ object Form1: TForm1
Height = 240 Height = 240
Top = 40 Top = 40
Width = 439 Width = 439
PageIndex = 7 PageIndex = 13
TabOrder = 2 TabOrder = 2
TabStop = True TabStop = True
object pageMenu: TPage object pageMenu: TPage
@ -56,8 +58,8 @@ object Form1: TForm1
object pagePopUp: TPage object pagePopUp: TPage
end end
object pageButtons: TPage object pageButtons: TPage
ClientWidth = 878 ClientWidth = 3512
ClientHeight = 480 ClientHeight = 1920
object CDButton1: TCDButton object CDButton1: TCDButton
Left = 119 Left = 119
Height = 25 Height = 25
@ -113,8 +115,8 @@ object Form1: TForm1
end end
end end
object pageEdits: TPage object pageEdits: TPage
ClientWidth = 1756 ClientWidth = 7024
ClientHeight = 960 ClientHeight = 3840
object CDEdit1: TCDEdit object CDEdit1: TCDEdit
Left = 119 Left = 119
Height = 24 Height = 24
@ -153,8 +155,8 @@ object Form1: TForm1
object Page1: TPage object Page1: TPage
end end
object pageCheckboxes: TPage object pageCheckboxes: TPage
ClientWidth = 7024 ClientWidth = 28096
ClientHeight = 3840 ClientHeight = 15360
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 20 Left = 20
Height = 17 Height = 17
@ -181,8 +183,8 @@ object Form1: TForm1
end end
end end
object pageRadioButton: TPage object pageRadioButton: TPage
ClientWidth = 439 ClientWidth = 1756
ClientHeight = 240 ClientHeight = 960
object RadioButton1: TRadioButton object RadioButton1: TRadioButton
Left = 16 Left = 16
Height = 17 Height = 17
@ -224,8 +226,8 @@ object Form1: TForm1
object Page7: TPage object Page7: TPage
end end
object pageGroupBoxes: TPage object pageGroupBoxes: TPage
ClientWidth = 3512 ClientWidth = 14048
ClientHeight = 1920 ClientHeight = 7680
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 7 Left = 7
Height = 100 Height = 100
@ -285,9 +287,31 @@ object Form1: TForm1
Caption = 'dsWinCE' Caption = 'dsWinCE'
end end
end end
object Page2: TPage
end
object pageStaticTexts: TPage
ClientWidth = 439
ClientHeight = 240
object StaticText6: TStaticText
Left = 18
Height = 17
Top = 31
Width = 65
Caption = 'StaticText6'
TabOrder = 0
end
object CDStaticText1: TCDStaticText
Left = 144
Height = 20
Top = 31
Width = 70
DrawStyle = dsCommon
Caption = 'dsCommon'
end
end
object pageTrackBars: TPage object pageTrackBars: TPage
ClientWidth = 28096 ClientWidth = 112384
ClientHeight = 15360 ClientHeight = 61440
object TrackBar1: TTrackBar object TrackBar1: TTrackBar
Left = 7 Left = 7
Height = 25 Height = 25
@ -345,8 +369,8 @@ object Form1: TForm1
Height = 88 Height = 88
Top = 32 Top = 32
Width = 192 Width = 192
ActivePage = TabSheet1 ActivePage = TabSheet2
TabIndex = 0 TabIndex = 1
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'TabSheet1' Caption = 'TabSheet1'

4
test/customdrawn/mainform.pas
View File

@ -25,6 +25,7 @@ type
CDEdit1: TCDEdit; CDEdit1: TCDEdit;
CDEdit2: TCDEdit; CDEdit2: TCDEdit;
CDRadioButton1: TCDRadioButton; CDRadioButton1: TCDRadioButton;
CDStaticText1: TCDStaticText;
editWinXP: TCDEdit; editWinXP: TCDEdit;
CDGroupBox1: TCDGroupBox; CDGroupBox1: TCDGroupBox;
CDGroupBox2: TCDGroupBox; CDGroupBox2: TCDGroupBox;
@ -44,6 +45,8 @@ type
memoLog: TMemo; memoLog: TMemo;
notebookControls: TNotebook; notebookControls: TNotebook;
Page1: TPage; Page1: TPage;
Page2: TPage;
pageStaticTexts: TPage;
pageMenu: TPage; pageMenu: TPage;
pagePopUp: TPage; pagePopUp: TPage;
pageEditMultiline: TPage; pageEditMultiline: TPage;
@ -68,6 +71,7 @@ type
StaticText3: TStaticText; StaticText3: TStaticText;
StaticText4: TStaticText; StaticText4: TStaticText;
StaticText5: TStaticText; StaticText5: TStaticText;
StaticText6: TStaticText;
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
TabSheet2: TTabSheet; TabSheet2: TTabSheet;
TabSheet3: TTabSheet; TabSheet3: TTabSheet;