paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 00:20:13 +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'
object comboControls: TComboBox
Left = 80
Height = 27
Height = 21
Top = 12
Width = 136
ItemHeight = 0
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'TCDMenu'
'TCDPopUp'
@ -32,9 +33,9 @@ object Form1: TForm1
'TCDTrackBar'
'TCDProgressBar'
'TCDListView'
'TCDStatusBar'
'TCDToolBar'
'TCDPageControl'
'TCDTabControl'
'TCDUpDown'
'TCDPageControl'
'TCDTabControl'
)
@ -58,7 +59,7 @@ object Form1: TForm1
Height = 240
Top = 40
Width = 463
PageIndex = 0
PageIndex = 16
Anchors = [akTop, akLeft, akRight]
TabOrder = 2
TabStop = True
@ -168,6 +169,14 @@ object Form1: TForm1
end
end
object pageToggleBoxes: TPage
object ToggleBox1: TToggleBox
Left = 16
Height = 23
Top = 8
Width = 90
Caption = 'Native'
TabOrder = 0
end
end
object pageCheckboxes: TPage
object CheckBox1: TCheckBox
@ -474,14 +483,74 @@ object Form1: TForm1
end
end
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
object Page3: TPage
object pageListViews: TPage
end
object Page4: TPage
object pageStatusBars: TPage
end
object Page1: TPage
object pageToolBars: TPage
end
object Page2: TPage
object pageUpDowns: TPage
end
object pagePageControls: TPage
object CDPageControl1: TCDPageControl
@ -497,16 +566,16 @@ object Form1: TForm1
TabIndex = 1
object CDTabSheet2: TCDTabSheet
Left = 2
Height = 73
Top = 29
Height = 77
Top = 25
Width = 196
Caption = 'CDTabSheet2'
TabVisible = False
end
object CDTabSheet1: TCDTabSheet
Left = 2
Height = 73
Top = 29
Height = 77
Top = 25
Width = 196
Caption = 'CDTabSheet1'
TabVisible = False
@ -559,24 +628,24 @@ object Form1: TForm1
TabIndex = 2
object CDTabSheet3: TCDTabSheet
Left = 2
Height = 65
Top = 29
Height = 69
Top = 25
Width = 188
Caption = 'CDTabSheet3'
TabVisible = False
end
object CDTabSheet4: TCDTabSheet
Left = 2
Height = 65
Top = 29
Height = 69
Top = 25
Width = 188
Caption = 'CDTabSheet4'
TabVisible = False
end
object CDTabSheet5: TCDTabSheet
Left = 2
Height = 65
Top = 29
Height = 69
Top = 25
Width = 188
Caption = 'CDTabSheet5'
TabVisible = False

16
test/customdrawn/mainform.pas
View File

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