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

custom drawn tests: Improves the scrollbar tests

Browse Source 
git-svn-id: trunk@33447 -
This commit is contained in:
sekelsenmat 2011-11-09 21:05:38 +00:00
parent c797b994e7
commit ed15dd0eb4
1 changed files with 44 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
test/customdrawn/mainform.lfm
View File

@ -60,7 +60,7 @@ object Form1: TForm1
Height = 240
Top = 40
Width = 463
PageIndex = 6
PageIndex = 10
Anchors = [akTop, akLeft, akRight]
TabOrder = 2
TabStop = True
@ -221,10 +221,10 @@ object Form1: TForm1
Left = 119
Height = 19
Top = 48
Width = 93
Width = 132
AllowGrayed = True
DrawStyle = dsCommon
Caption = 'dsCommon'
Caption = 'dsCommon+Gray'
end
end
object pageRadioButton: TPage
@ -324,17 +324,17 @@ object Form1: TForm1
end
object Label14: TLabel
Left = 48
Height = 14
Height = 17
Top = 8
Width = 36
Width = 44
Caption = 'Native:'
ParentColor = False
end
object Label15: TLabel
Left = 176
Height = 14
Height = 17
Top = 8
Width = 53
Width = 73
Caption = 'dsCommon'
ParentColor = False
end
@ -343,10 +343,11 @@ object Form1: TForm1
Height = 17
Top = 24
Width = 121
DrawStyle = dsDefault
Max = 0
Max = 100
Min = 0
Position = 0
DrawStyle = dsDefault
Kind = sbHorizontal
TabStop = False
end
object CDScrollBar2: TCDScrollBar
@ -354,10 +355,11 @@ object Form1: TForm1
Height = 121
Top = 48
Width = 17
DrawStyle = dsDefault
Max = 0
Max = 100
Min = 0
Position = 0
DrawStyle = dsDefault
Kind = sbVertical
TabStop = False
end
end
@ -452,23 +454,27 @@ object Form1: TForm1
Height = 33
Top = 80
Width = 100
Max = 10
Min = 0
Position = 0
Color = clBtnFace
DrawStyle = dsExtra1
Position = 0
end
object CDTrackBar2: TCDTrackBar
Left = 151
Height = 33
Top = 32
Width = 100
DrawStyle = dsCommon
Max = 10
Min = 0
Position = 0
DrawStyle = dsCommon
end
object Label3: TLabel
Left = 96
Height = 14
Height = 17
Top = 0
Width = 59
Width = 71
Caption = 'Horizontal'
Font.Style = [fsBold]
ParentColor = False
@ -476,33 +482,33 @@ object Form1: TForm1
end
object Label4: TLabel
Left = 48
Height = 14
Height = 17
Top = 16
Width = 32
Width = 40
Caption = 'Native'
ParentColor = False
end
object Label5: TLabel
Left = 176
Height = 14
Height = 17
Top = 16
Width = 53
Width = 73
Caption = 'dsCommon'
ParentColor = False
end
object Label6: TLabel
Left = 176
Height = 14
Height = 17
Top = 66
Width = 44
Width = 56
Caption = 'dsExtra1'
ParentColor = False
end
object Label7: TLabel
Left = 97
Height = 14
Height = 17
Top = 112
Width = 44
Width = 52
Caption = 'Vertical'
Font.Style = [fsBold]
ParentColor = False
@ -510,17 +516,17 @@ object Form1: TForm1
end
object Label8: TLabel
Left = 49
Height = 14
Height = 17
Top = 128
Width = 32
Width = 40
Caption = 'Native'
ParentColor = False
end
object Label9: TLabel
Left = 104
Height = 14
Height = 17
Top = 128
Width = 53
Width = 73
Caption = 'dsCommon'
ParentColor = False
end
@ -529,9 +535,11 @@ object Form1: TForm1
Height = 100
Top = 144
Width = 33
Max = 10
Min = 0
Position = 0
DrawStyle = dsCommon
Orientation = trVertical
Position = 0
end
object TrackBar2: TTrackBar
Left = 49
@ -564,9 +572,9 @@ object Form1: TForm1
end
object Label10: TLabel
Left = 32
Height = 14
Height = 17
Top = 2
Width = 32
Width = 40
Caption = 'Native'
ParentColor = False
end
@ -585,9 +593,9 @@ object Form1: TForm1
end
object Label11: TLabel
Left = 139
Height = 14
Height = 17
Top = 1
Width = 53
Width = 73
Caption = 'dsCommon'
ParentColor = False
end
@ -596,16 +604,17 @@ object Form1: TForm1
Height = 25
Top = 168
Width = 128
DrawStyle = dsDefault
Max = 100
Min = 0
OnChange = trackChangeProgressChange
Position = 20
DrawStyle = dsDefault
end
object Label13: TLabel
Left = 10
Height = 14
Height = 17
Top = 172
Width = 87
Width = 114
Caption = 'Progress Position:'
ParentColor = False
end