paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:39:15 +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; Align := alRight;
Caption := ''; Caption := '';
BevelOuter := bvNone; BevelOuter := bvNone;
Width := OVERVIEW_PANEL_WIDTH;
Visible := True; // EnvironmentOptions.IDESpeedButtonsVisible; Visible := True; // EnvironmentOptions.IDESpeedButtonsVisible;
Parent := PageComponent; Parent := PageComponent;
Width := Scale96ToForm(OVERVIEW_PANEL_WIDTH);
OnMouseWheel := @Pal.OnPageMouseWheel; OnMouseWheel := @Pal.OnPageMouseWheel;
end; end;
BtnRight:=TSpeedButton.Create(PageComponent); BtnRight:=TSpeedButton.Create(PageComponent);
@ -357,13 +357,13 @@ begin
begin begin
TIDEImages.AssignImage(Glyph, 'SelCompPage'); TIDEImages.AssignImage(Glyph, 'SelCompPage');
Flat := True; Flat := True;
SetBounds(2,1,16,16);
Hint := lisClickToSelectPalettePage; Hint := lisClickToSelectPalettePage;
ShowHint := True; ShowHint := True;
OnMouseDown := @MainIDE.SelComponentPageButtonMouseDown; OnMouseDown := @MainIDE.SelComponentPageButtonMouseDown;
OnClick := @MainIDE.SelComponentPageButtonClick; OnClick := @MainIDE.SelComponentPageButtonClick;
OnMouseWheel := @Pal.OnPageMouseWheel; OnMouseWheel := @Pal.OnPageMouseWheel;
Parent := PanelRight; Parent := PanelRight;
SetBounds(Scale96ToForm(2), Scale96ToForm(1), Scale96ToForm(16), Scale96ToForm(16));
end; end;
end end
else begin else begin