paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

spktoolbar: More icons for Content Editor.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6200 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2018-02-12 16:06:11 +00:00
parent 81e637a3af
commit 06df189e29
2 changed files with 1524 additions and 113 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1613
components/spktoolbar/designtime/spkte_EditWindow.lfm
View File

File diff suppressed because it is too large Load Diff

24
components/spktoolbar/designtime/spkte_EditWindow.pas
View File

@ -287,8 +287,6 @@ begin
s := GetItemCaption(Item);
NewNode := tvStructure.Items.AddChild(Node, s);
NewNode.Data := Item;
NewNode.ImageIndex := 2;
NewNode.SelectedIndex := 2;
NewNode.Selected := true;
CheckActionsAvailability;
end else
@ -304,12 +302,24 @@ begin
s := GetItemCaption(Item);
NewNode := tvStructure.Items.AddChild(Node.Parent, s);
NewNode.Data := Item;
NewNode.ImageIndex := 2;
NewNode.SelectedIndex := 2;
NewNode.Selected := true;
CheckActionsAvailability;
end else
raise Exception.Create('TfrmEditWindow.AddItem: ' + RSIncorrectObjectInTree);
if ItemClass = TSpkLargeButton then
NewNode.ImageIndex := 2
else
if ItemClass = TSpkSmallButton then
NewNode.ImageIndex := 3
else
if ItemClass = TSpkCheckbox then
NewNode.ImageIndex := 4
else
if ItemClass = TSpkRadioButton then
NewNode.ImageIndex := 5
else
raise Exception.Create('Item class not supported');
NewNode.SelectedIndex := NewNode.ImageIndex;
FDesigner.PropertyEditorHook.PersistentAdded(Item,True);
FDesigner.Modified;
end;
@ -1161,15 +1171,21 @@ begin
ActionList.Images := ilActionImages_200;
tbToolbar.Images := ilActionImages_200;
tvStructure.Images := ilTreeImages_200;
pmAddItem.Images := ilActionImages_200;
pmStructure.Images := ilActionImages_200;
end else
if ScreenInfo.PixelsPerInchY >= 135 then begin
ActionList.Images := ilActionImages_150;
tbToolbar.Images := ilActionImages_150;
tvStructure.Images := ilTreeImages_150;
pmAddItem.Images := ilActionImages_150;
pmStructure.Images := ilActionImages_150;
end else begin
ActionList.Images := ilActionImages;
tbToolbar.Images := ilActionImages;
tvStructure.Images := ilTreeImages;
pmAddItem.Images := ilActionImages;
pmStructure.Images := ilActionImages;
end;
tbToolbar.ButtonHeight := tbToolbar.Images.Height + 8;
end;