paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 00:37:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

ide: don't treat xpm as TBitmap anymore

Browse Source 
git-svn-id: trunk@15504 -
This commit is contained in:
paul 2008-06-21 14:30:10 +00:00
parent ad0c55e479
commit 470aee3c44
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/graphpropedits.pas
View File

@ -206,7 +206,7 @@ begin
// Paul: can it be not TBitmap at all?
if (ABitmap is TBitmap) then
begin
if ((CompareText(Ext, '.xpm') = 0) or (CompareText(Ext, '.bmp') = 0)) then
if (CompareText(Ext, '.bmp') = 0) then
ABitmap.LoadFromFile(TheDialog.FileName)
else
ABitmap.Assign(TheDialog.Preview.Picture.Graphic);