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