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

spktoolbar: Fix compilation under Laz <1.8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5980 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-07-08 11:59:47 +00:00
parent d2f7f2f376
commit 3b2bc7db66
4 changed files with 6 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1373,11 +1373,11 @@ var
w, h: Integer;
begin
// Use correct size of color picker icon
if Monitor.PixelsPerInch >= 180 then begin
if ScreenInfo.PixelsPerInchY >= 180 then begin
imglist := Images_200;
m := 2.0;
end
else if Monitor.PixelsPerInch >= 135 then begin
else if ScreenInfo.PixelsPerInchY >= 135 then begin
imglist := Images_150;
m := 1.5;
end

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

@ -1158,12 +1158,12 @@ end;
procedure TfrmEditWindow.UpdatePPI;
begin
tbToolbar.Images := nil;
if Monitor.PixelsPerInch >= 180 then begin
if ScreenInfo.PixelsPerInchY >= 180 then begin
ActionList.Images := ilActionImages_200;
tbToolbar.Images := ilActionImages_200;
tvStructure.Images := ilTreeImages_200;
end else
if Monitor.PixelsPerInch >= 135 then begin
if ScreenInfo.PixelsPerInchY >= 135 then begin
ActionList.Images := ilActionImages_150;
tbToolbar.Images := ilActionImages_150;
tvStructure.Images := ilTreeImages_150;
@ -1172,7 +1172,7 @@ begin
tbToolbar.Images := ilActionImages;
tvStructure.Images := ilTreeImages;
end;
// tbToolbar.ButtonHeight := tbToolbar.Images.Height + 8;
tbToolbar.ButtonHeight := tbToolbar.Images.Height + 8;
// tbToolbar.ButtonWidth := tbToolbar.Images.Width + 8;
end;