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

customdrawn tests: Adds tests for the progressbar and listview

Browse Source 
git-svn-id: trunk@33426 -
This commit is contained in:
sekelsenmat 2011-11-09 08:24:46 +00:00
parent a5ebb12839
commit 8227b20654
2 changed files with 67 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
test/customdrawn/mainform.lfm
View File

@ -59,7 +59,7 @@ object Form1: TForm1
Height = 240
Top = 40
Width = 463
PageIndex = 16
PageIndex = 17
Anchors = [akTop, akLeft, akRight]
TabOrder = 2
TabStop = True
@ -290,7 +290,7 @@ object Form1: TForm1
Top = 13
Width = 129
Caption = 'GroupBox1'
ClientHeight = 81
ClientHeight = 82
ClientWidth = 125
TabOrder = 0
object Label1: TLabel
@ -318,22 +318,6 @@ object Form1: TForm1
AutoSize = True
DrawStyle = dsCommon
Caption = 'dsCommon'
object Label2: TLabel
Left = 13
Height = 14
Top = 21
Width = 32
Caption = 'Label2'
ParentColor = False
end
object Button3: TButton
Left = 8
Height = 25
Top = 43
Width = 75
Caption = 'Button3'
TabOrder = 0
end
end
object CDGroupBox2: TCDGroupBox
Left = 279
@ -543,8 +527,68 @@ object Form1: TForm1
Style = pbstMarquee
TabOrder = 5
end
object CDProgressBar1: TCDProgressBar
Left = 152
Height = 20
Top = 16
Width = 100
DrawStyle = dsDefault
Max = 0
Orientation = pbHorizontal
Position = 0
end
object Label11: TLabel
Left = 171
Height = 14
Top = 1
Width = 53
Caption = 'dsCommon'
ParentColor = False
end
end
object pageListViews: TPage
object ListView1: TListView
Left = 11
Height = 119
Top = 25
Width = 149
Columns = <
item
end
item
end>
Items.LazData = {
8000000002000000FFFFFFFFFFFFFFFFFFFFFFFF03000000050000004974656D
31060000004974656D3131060000004974656D3132060000004974656D3133FF
FFFFFFFFFFFFFFFFFFFFFF02000000050000004974656D32060000004974656D
3231060000004974656D3232FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
TabOrder = 0
ViewStyle = vsReport
end
object Label2: TLabel
Left = 64
Height = 14
Top = 9
Width = 32
Caption = 'Native'
ParentColor = False
end
object CDListView1: TCDListView
Left = 208
Height = 121
Top = 25
Width = 146
Columns = <>
end
object Label12: TLabel
Left = 258
Height = 14
Top = 10
Width = 57
Caption = 'dsCommon:'
ParentColor = False
end
end
object pageStatusBars: TPage
end

6
test/customdrawn/mainform.pas
View File

@ -15,7 +15,6 @@ type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
CDButton1: TCDButton;
CDButton2: TCDButton;
CDButton3: TCDButton;
@ -24,6 +23,8 @@ type
CDCheckBox2: TCDCheckBox;
CDEdit1: TCDEdit;
CDEdit2: TCDEdit;
CDListView1: TCDListView;
CDProgressBar1: TCDProgressBar;
CDRadioButton1: TCDRadioButton;
CDRadioButton2: TCDRadioButton;
CDRadioButton3: TCDRadioButton;
@ -48,6 +49,8 @@ type
GroupBox3: TGroupBox;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
@ -56,6 +59,7 @@ type
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
ListView1: TListView;
Memo1: TMemo;
memoLog: TMemo;
notebookControls: TNotebook;