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

* Fixed bug #9405, a wrong graphic type was forced

Browse Source 
git-svn-id: trunk@11918 -
This commit is contained in:
marc 2007-09-02 15:46:26 +00:00
parent c2645e0867
commit 7bec7f1be6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/picture.inc
View File

@ -389,13 +389,13 @@ end;
function TPicture.GetPNG: TPortableNetworkGraphic;
begin
ForceType(TPixmap);
ForceType(TPortableNetworkGraphic);
Result := TPortableNetworkGraphic(Graphic);
end;
function TPicture.GetPNM: TPortableAnyMapGraphic;
begin
ForceType(TPixmap);
ForceType(TPortableAnyMapGraphic);
Result := TPortableAnyMapGraphic(Graphic);
end;