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

spktoolbar: Fix incorrect dropdown button width in Contents Editor at high dpi.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6198 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-12 11:10:53 +00:00
parent 474d9556dd
commit a6420aeb05
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/spktoolbar/designtime/SpkToolbarEditor.pas
View File

@ -268,12 +268,13 @@ begin
if not(Component is TSpkToolbar) then
exit;
if EditWindow = nil then
EditWindow := TfrmEditWindow.Create(nil);
EditWindow.SetData(TSpkToolbar(Component),Self.GetDesigner);
EditWindow.Show;
end;
procedure TSpkToolbarEditor.Edit;
begin
DoOpenContentsEditor;
end;
@ -371,11 +372,9 @@ begin
end;
initialization
EditWindow:=TfrmEditWindow.create(nil);
//EditWindow:=TfrmEditWindow.create(nil);
finalization
EditWindow.Free;
EditWindow.Free;
end.

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

@ -127,6 +127,9 @@ implementation
{$R *.lfm}
uses
IDEWindowIntf;
resourcestring
RSCannotMoveAboveFirstElement = 'You can not move above the top of the first element!';
RSCannotMoveBeyondLastElement = 'You can not move beyond the last element!';
@ -1173,6 +1176,7 @@ begin
end;
tbToolbar.ButtonHeight := tbToolbar.Images.Height + 8;
// tbToolbar.ButtonWidth := tbToolbar.Images.Width + 8;
IDEDialogLayoutList.ApplyLayout(self);
end;
end.