paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 21:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn tests: Adds progressbar tests

Browse Source 
git-svn-id: trunk@33419 -
This commit is contained in:
sekelsenmat 2011-11-08 16:06:17 +00:00
parent d1b32f9a27
commit 5db4db8822
2 changed files with 100 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
test/customdrawn/mainform.lfm
View File

@ -9,10 +9,11 @@ object Form1: TForm1
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object comboControls: TComboBox object comboControls: TComboBox
Left = 80 Left = 80
Height = 27 Height = 21
Top = 12 Top = 12
Width = 136 Width = 136
ItemHeight = 0 ItemHeight = 13
ItemIndex = 0
Items.Strings = ( Items.Strings = (
'TCDMenu' 'TCDMenu'
'TCDPopUp' 'TCDPopUp'
@ -32,9 +33,9 @@ object Form1: TForm1
'TCDTrackBar' 'TCDTrackBar'
'TCDProgressBar' 'TCDProgressBar'
'TCDListView' 'TCDListView'
'TCDStatusBar'
'TCDToolBar' 'TCDToolBar'
'TCDPageControl' 'TCDUpDown'
'TCDTabControl'
'TCDPageControl' 'TCDPageControl'
'TCDTabControl' 'TCDTabControl'
) )
@ -58,7 +59,7 @@ object Form1: TForm1
Height = 240 Height = 240
Top = 40 Top = 40
Width = 463 Width = 463
PageIndex = 0 PageIndex = 16
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 2 TabOrder = 2
TabStop = True TabStop = True
@ -168,6 +169,14 @@ object Form1: TForm1
end end
end end
object pageToggleBoxes: TPage object pageToggleBoxes: TPage
object ToggleBox1: TToggleBox
Left = 16
Height = 23
Top = 8
Width = 90
Caption = 'Native'
TabOrder = 0
end
end end
object pageCheckboxes: TPage object pageCheckboxes: TPage
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
@ -474,14 +483,74 @@ object Form1: TForm1
end end
end end
object pageProgressBars: TPage object pageProgressBars: TPage
object ProgressBar1: TProgressBar
Left = 8
Height = 20
Top = 16
Width = 100
Position = 30
TabOrder = 0
end
object ProgressBar2: TProgressBar
Left = 24
Height = 84
Top = 120
Width = 20
Orientation = pbVertical
Position = 30
TabOrder = 1
end
object ProgressBar3: TProgressBar
Left = 9
Height = 20
Top = 40
Width = 100
Orientation = pbRightToLeft
Position = 30
TabOrder = 2
end
object ProgressBar4: TProgressBar
Left = 52
Height = 84
Top = 120
Width = 20
Orientation = pbTopDown
Position = 30
TabOrder = 3
end
object Label10: TLabel
Left = 32
Height = 14
Top = 2
Width = 32
Caption = 'Native'
ParentColor = False
end
object ProgressBar5: TProgressBar
Left = 8
Height = 20
Top = 64
Width = 100
Position = 30
Smooth = True
TabOrder = 4
end
object ProgressBar6: TProgressBar
Left = 8
Height = 20
Top = 91
Width = 100
Style = pbstMarquee
TabOrder = 5
end
end end
object Page3: TPage object pageListViews: TPage
end end
object Page4: TPage object pageStatusBars: TPage
end end
object Page1: TPage object pageToolBars: TPage
end end
object Page2: TPage object pageUpDowns: TPage
end end
object pagePageControls: TPage object pagePageControls: TPage
object CDPageControl1: TCDPageControl object CDPageControl1: TCDPageControl
@ -497,16 +566,16 @@ object Form1: TForm1
TabIndex = 1 TabIndex = 1
object CDTabSheet2: TCDTabSheet object CDTabSheet2: TCDTabSheet
Left = 2 Left = 2
Height = 73 Height = 77
Top = 29 Top = 25
Width = 196 Width = 196
Caption = 'CDTabSheet2' Caption = 'CDTabSheet2'
TabVisible = False TabVisible = False
end end
object CDTabSheet1: TCDTabSheet object CDTabSheet1: TCDTabSheet
Left = 2 Left = 2
Height = 73 Height = 77
Top = 29 Top = 25
Width = 196 Width = 196
Caption = 'CDTabSheet1' Caption = 'CDTabSheet1'
TabVisible = False TabVisible = False
@ -559,24 +628,24 @@ object Form1: TForm1
TabIndex = 2 TabIndex = 2
object CDTabSheet3: TCDTabSheet object CDTabSheet3: TCDTabSheet
Left = 2 Left = 2
Height = 65 Height = 69
Top = 29 Top = 25
Width = 188 Width = 188
Caption = 'CDTabSheet3' Caption = 'CDTabSheet3'
TabVisible = False TabVisible = False
end end
object CDTabSheet4: TCDTabSheet object CDTabSheet4: TCDTabSheet
Left = 2 Left = 2
Height = 65 Height = 69
Top = 29 Top = 25
Width = 188 Width = 188
Caption = 'CDTabSheet4' Caption = 'CDTabSheet4'
TabVisible = False TabVisible = False
end end
object CDTabSheet5: TCDTabSheet object CDTabSheet5: TCDTabSheet
Left = 2 Left = 2
Height = 65 Height = 69
Top = 29 Top = 25
Width = 188 Width = 188
Caption = 'CDTabSheet5' Caption = 'CDTabSheet5'
TabVisible = False TabVisible = False

16
test/customdrawn/mainform.pas
View File

@ -47,6 +47,7 @@ type
GroupBox2: TGroupBox; GroupBox2: TGroupBox;
GroupBox3: TGroupBox; GroupBox3: TGroupBox;
Label1: TLabel; Label1: TLabel;
Label10: TLabel;
Label2: TLabel; Label2: TLabel;
Label3: TLabel; Label3: TLabel;
Label4: TLabel; Label4: TLabel;
@ -58,10 +59,10 @@ type
Memo1: TMemo; Memo1: TMemo;
memoLog: TMemo; memoLog: TMemo;
notebookControls: TNotebook; notebookControls: TNotebook;
Page1: TPage; pageToolBars: TPage;
Page2: TPage; pageUpDowns: TPage;
Page3: TPage; pageListViews: TPage;
Page4: TPage; pageStatusBars: TPage;
pageScrollBars: TPage; pageScrollBars: TPage;
pageToggleBoxes: TPage; pageToggleBoxes: TPage;
pageComboBoxes: TPage; pageComboBoxes: TPage;
@ -83,6 +84,12 @@ type
pagePageControls: TPage; pagePageControls: TPage;
pageTabControls: TPage; pageTabControls: TPage;
Panel1: TPanel; Panel1: TPanel;
ProgressBar1: TProgressBar;
ProgressBar2: TProgressBar;
ProgressBar3: TProgressBar;
ProgressBar4: TProgressBar;
ProgressBar5: TProgressBar;
ProgressBar6: TProgressBar;
RadioButton1: TRadioButton; RadioButton1: TRadioButton;
RadioButton2: TRadioButton; RadioButton2: TRadioButton;
RadioButton3: TRadioButton; RadioButton3: TRadioButton;
@ -95,6 +102,7 @@ type
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
TabSheet2: TTabSheet; TabSheet2: TTabSheet;
TabSheet3: TTabSheet; TabSheet3: TTabSheet;
ToggleBox1: TToggleBox;
TrackBar1: TTrackBar; TrackBar1: TTrackBar;
CDTrackBar1: TCDTrackBar; CDTrackBar1: TCDTrackBar;
TrackBar2: TTrackBar; TrackBar2: TTrackBar;