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

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

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