paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 13:56:00 +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 ClientHeight = 500
ClientWidth = 463 ClientWidth = 463
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.1' LCLVersion = '1.7'
object comboControls: TComboBox object comboControls: TComboBox
Left = 80 Left = 80
Height = 23 Height = 21
Top = 12 Top = 12
Width = 136 Width = 136
ItemHeight = 15 ItemHeight = 0
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'TCDMenu' 'TCDMenu'
@ -61,7 +61,7 @@ object Form1: TForm1
Height = 240 Height = 240
Top = 40 Top = 40
Width = 463 Width = 463
PageIndex = 2 PageIndex = 0
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 2 TabOrder = 2
TabStop = True TabStop = True

10
test/customdrawn/mainform.pas
View File

@ -183,6 +183,7 @@ end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
var var
lItem: TCDListItems; lItem: TCDListItems;
lToolbar: TCDToolbar;
begin begin
// We still dont have a property editor for this // We still dont have a property editor for this
lItem := listviewCommon.Items.Add('First', -1, -1); lItem := listviewCommon.Items.Add('First', -1, -1);
@ -196,6 +197,15 @@ begin
lItem := listviewCommon.Items.Add('Fourth', -1, -1); lItem := listviewCommon.Items.Add('Fourth', -1, -1);
lItem.Add('4thSub1', -1, -1); lItem.Add('4thSub1', -1, -1);
lItem.Add('4thSub2', -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; end;
procedure TForm1.HandleClick(Sender: TObject); procedure TForm1.HandleClick(Sender: TObject);