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

customdrawn: More tests

Browse Source 
git-svn-id: trunk@33258 -
This commit is contained in:
sekelsenmat 2011-11-03 12:36:45 +00:00
parent 3a4ec76f82
commit 809aa055d4
2 changed files with 42 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
test/customdrawn/mainform.lfm
View File

@ -8,17 +8,18 @@ object Form1: TForm1
ClientWidth = 458
LCLVersion = '0.9.31'
object comboControls: TComboBox
Left = 72
Height = 27
Left = 80
Height = 21
Top = 12
Width = 172
ItemHeight = 0
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'TCDButton'
'TCDEdit'
'TCDTrackBar'
'TCDCheckBox'
'TCDGroupBox'
'TCDTrackBar'
'TCDCustomTabControl'
)
OnChange = comboControlsChange
@ -38,10 +39,10 @@ object Form1: TForm1
Height = 240
Top = 40
Width = 439
PageIndex = 1
PageIndex = 4
TabOrder = 2
TabStop = True
object Page1: TPage
object pageButtons: TPage
ClientWidth = 439
ClientHeight = 240
object CDButton1: TCDButton
@ -75,9 +76,9 @@ object Form1: TForm1
TabOrder = 2
end
end
object Page2: TPage
ClientWidth = 439
ClientHeight = 240
object pageEdits: TPage
ClientWidth = 878
ClientHeight = 480
object CDEdit1: TCDEdit
Left = 103
Height = 30
@ -86,20 +87,38 @@ object Form1: TForm1
end
object Edit1: TEdit
Left = 8
Height = 25
Height = 21
Top = 28
Width = 80
TabOrder = 1
Text = 'Edit1'
end
end
object Page3: TPage
object pageCheckboxes: TPage
end
object Page4: TPage
object pageGroupBoxes: TPage
end
object Page5: TPage
object pageTrackBars: TPage
ClientWidth = 439
ClientHeight = 240
object TrackBar1: TTrackBar
Left = 7
Height = 25
Top = 16
Width = 100
Position = 0
TabOrder = 0
end
object CDTrackBar1: TCDTrackBar
Left = 151
Height = 25
Top = 16
Width = 100
Color = clBtnFace
Position = 0
end
end
object Page6: TPage
object pagePageControls: TPage
end
object Page7: TPage
end

16
test/customdrawn/mainform.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, customdrawncontrols, Forms, Controls, Graphics,
Dialogs, StdCtrls, ExtCtrls;
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
@ -21,15 +21,17 @@ type
Edit1: TEdit;
Memo1: TMemo;
notebookControls: TNotebook;
Page1: TPage;
Page2: TPage;
Page3: TPage;
Page4: TPage;
Page5: TPage;
Page6: TPage;
pageButtons: TPage;
pageEdits: TPage;
pageCheckboxes: TPage;
pageGroupBoxes: TPage;
pageTrackBars: TPage;
pagePageControls: TPage;
Page7: TPage;
StaticText1: TStaticText;
StaticText2: TStaticText;
TrackBar1: TTrackBar;
CDTrackBar1: TCDTrackBar;
procedure comboControlsChange(Sender: TObject);
private
{ private declarations }