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

custom drawn tests: Improves the trackbar tests

Browse Source 
git-svn-id: trunk@33407 -
This commit is contained in:
sekelsenmat 2011-11-08 07:56:32 +00:00
parent ac422ad68d
commit 3e0f825405
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
test/customdrawn/mainform.lfm
View File

@ -50,7 +50,7 @@ object Form1: TForm1
Height = 240
Top = 40
Width = 439
PageIndex = 4
PageIndex = 14
TabOrder = 2
TabStop = True
object pageMenu: TPage
@ -312,7 +312,7 @@ object Form1: TForm1
object pageTrackBars: TPage
object TrackBar1: TTrackBar
Left = 7
Height = 25
Height = 33
Top = 16
Width = 100
Position = 0
@ -321,13 +321,21 @@ object Form1: TForm1
end
object CDTrackBar1: TCDTrackBar
Left = 151
Height = 25
Top = 16
Height = 33
Top = 64
Width = 100
Color = clBtnFace
DrawStyle = dsExtra1
Position = 0
end
object CDTrackBar2: TCDTrackBar
Left = 151
Height = 33
Top = 16
Width = 100
DrawStyle = dsCommon
Position = 0
end
end
object Page8: TPage
end

1
test/customdrawn/mainform.pas
View File

@ -26,6 +26,7 @@ type
CDEdit2: TCDEdit;
CDRadioButton1: TCDRadioButton;
CDStaticText1: TCDStaticText;
CDTrackBar2: TCDTrackBar;
editWinXP: TCDEdit;
CDGroupBox1: TCDGroupBox;
CDGroupBox2: TCDGroupBox;