paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 16:38:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: High-DPI: ComponentPalette: Size of component pages speedbutton.

Browse Source 
git-svn-id: trunk@55500 -
This commit is contained in:
michl 2017-07-13 20:25:49 +00:00
parent 1571e2c9a0
commit 3257287083
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/componentpalette.pas
View File

@ -347,9 +347,9 @@ begin
Align := alRight;
Caption := '';
BevelOuter := bvNone;
Width := OVERVIEW_PANEL_WIDTH;
Visible := True; // EnvironmentOptions.IDESpeedButtonsVisible;
Parent := PageComponent;
Width := Scale96ToForm(OVERVIEW_PANEL_WIDTH);
OnMouseWheel := @Pal.OnPageMouseWheel;
end;
BtnRight:=TSpeedButton.Create(PageComponent);
@ -357,13 +357,13 @@ begin
begin
TIDEImages.AssignImage(Glyph, 'SelCompPage');
Flat := True;
SetBounds(2,1,16,16);
Hint := lisClickToSelectPalettePage;
ShowHint := True;
OnMouseDown := @MainIDE.SelComponentPageButtonMouseDown;
OnClick := @MainIDE.SelComponentPageButtonClick;
OnMouseWheel := @Pal.OnPageMouseWheel;
Parent := PanelRight;
SetBounds(Scale96ToForm(2), Scale96ToForm(1), Scale96ToForm(16), Scale96ToForm(16));
end;
end
else begin