paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 18:20:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fix image loading after r57716 #136d996374

Browse Source 
git-svn-id: trunk@57720 -
This commit is contained in:
ondrej 2018-04-26 09:08:41 +00:00
parent d97dbf63c9
commit 685e707752
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/ideimagesintf.pas
View File

@ -320,7 +320,7 @@ begin
raise Exception.CreateFmt('TIDEImages.LoadImage: %s not found.', [ImageName]);
if Grp is TCustomBitmap then
begin
Rc := Rect(0, 0, List.Width-1, List.Height-1);
Rc := Rect(0, 0, List.Width, List.Height);
OffsetRect(Rc, (Grp.Width-List.Width) div 2, (Grp.Height-List.Height) div 2);
Result := List.AddSlice(TCustomBitmap(Grp), Rc);
end else