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

customdrawn: Adds toolbar to test case

Browse Source 
git-svn-id: trunk@52769 -
This commit is contained in:
sekelsenmat 2016-08-01 20:00:50 +00:00
parent 51d733e571
commit fa97d8430e
3 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
test/customdrawn/cd_test_all.res
View File

Binary file not shown.

8
test/customdrawn/mainform.lfm
View File

@ -7,13 +7,13 @@ object Form1: TForm1
ClientHeight = 500
ClientWidth = 463
OnCreate = FormCreate
LCLVersion = '1.1'
LCLVersion = '1.7'
object comboControls: TComboBox
Left = 80
Height = 23
Height = 21
Top = 12
Width = 136
ItemHeight = 15
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'TCDMenu'
@ -61,7 +61,7 @@ object Form1: TForm1
Height = 240
Top = 40
Width = 463
PageIndex = 2
PageIndex = 0
Anchors = [akTop, akLeft, akRight]
TabOrder = 2
TabStop = True

10
test/customdrawn/mainform.pas
View File

@ -183,6 +183,7 @@ end;
procedure TForm1.FormCreate(Sender: TObject);
var
lItem: TCDListItems;
lToolbar: TCDToolbar;
begin
// We still dont have a property editor for this
lItem := listviewCommon.Items.Add('First', -1, -1);
@ -196,6 +197,15 @@ begin
lItem := listviewCommon.Items.Add('Fourth', -1, -1);
lItem.Add('4thSub1', -1, -1);
lItem.Add('4thSub2', -1, -1);
// Toolbar has no design time control right now
lToolbar := TCDToolbar.Create(Self);
lToolbar.Parent := pageToolbars;
lToolbar.AddItem(tikButton);
lToolbar.AddItem(tikCheckButton);
lToolbar.AddItem(tikDropDownButton);
lToolbar.AddItem(tikSeparator);
lToolbar.AddItem(tikDivider);
end;
procedure TForm1.HandleClick(Sender: TObject);