pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

spktoolbar: Add icons at 150% and 200% to SpkToolbar EditWindow.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5973 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-07-07 16:53:20 +00:00
parent 0ec27d7d54
commit e2bb5a34d6
2 changed files with 2592 additions and 330 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

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

@ -19,6 +19,10 @@ type
TfrmEditWindow = class(TForm)
aAddCheckbox: TAction;
aAddRadioButton: TAction;
ilTreeImages_150: TImageList;
ilActionImages_150: TImageList;
ilActionImages_200: TImageList;
ilTreeImages_200: TImageList;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
@ -32,7 +36,7 @@ type
ToolButton3: TToolButton;
tbAddPane: TToolButton;
tbRemovePane: TToolButton;
ActionList1: TActionList;
ActionList: TActionList;
aAddTab: TAction;
aRemoveTab: TAction;
aAddPane: TAction;
@ -65,6 +69,7 @@ type
N3: TMenuItem;
Moveup1: TMenuItem;
Movedown1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure tvStructureChange(Sender: TObject; Node: TTreeNode);
procedure aAddTabExecute(Sender: TObject);
procedure aRemoveTabExecute(Sender: TObject);
@ -655,6 +660,26 @@ begin
BuildTreeData;
end;
procedure TfrmEditWindow.FormCreate(Sender: TObject);
begin
if Monitor.PixelsPerInch >= 180 then begin
ActionList.Images := ilActionImages_200;
tbToolbar.Images := ilActionImages_200;
tvStructure.Images := ilTreeImages_150;
end else
if Monitor.PixelsPerInch >= 135 then begin
ActionList.Images := ilActionImages_150;
tbToolbar.Images := ilActionImages_150;
tvStructure.Images := ilTreeImages_150;
end else begin
ActionList.Images := ilActionImages;
tbToolbar.Images := ilActionImages;
tvStructure.Images := ilTreeImages;
end;
tbToolbar.ButtonHeight := tbToolbar.Images.Height + 8;
tbToolbar.ButtonWidth := tbToolbar.Images.Width + 8;
end;
procedure TfrmEditWindow.FormDestroy(Sender: TObject);
begin
if FToolbar <> nil then