paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-21 01:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

cleanup

Browse Source 
git-svn-id: trunk@57888 -
This commit is contained in:
ondrej 2018-05-10 20:44:57 +00:00
parent 9b83cf68f7
commit 71715916dc
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/qt/qtwscomctrls.pp
View File

@ -1289,7 +1289,6 @@ begin
Bmp := TBitmap.Create;
try
ImgListRes.GetBitmap(AImageIndex, Bmp);
Application.MainForm.Caption := Format('%d:%d', [Bmp.Width, Bmp.Height]);
if LWI <> nil then
QListWidgetItem_setIcon(LWI, TQtImage(Bmp.Handle).AsIcon)
else

1
lcl/interfaces/qt5/qtwscomctrls.pp
View File

@ -1288,7 +1288,6 @@ begin
Bmp := TBitmap.Create;
try
ImgListRes.GetBitmap(AImageIndex, Bmp);
Application.MainForm.Caption := Format('%d:%d', [Bmp.Width, Bmp.Height]);
if LWI <> nil then
QListWidgetItem_setIcon(LWI, TQtImage(Bmp.Handle).AsIcon)
else