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

Lazreport, added TPixmap support

Browse Source 
git-svn-id: trunk@28413 -
This commit is contained in:
jesus 2010-11-22 17:18:53 +00:00
parent acc881191b
commit f76100ca6b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazreport/source/lr_class.pas
View File

@ -4182,6 +4182,7 @@ const
pkIcon = 3; pkIcon = 3;
pkJPEG = 4; pkJPEG = 4;
pkPNG = 5; pkPNG = 5;
pkXPM = 6;
procedure StreamToXML(XML: TLrXMLConfig; Path: String; Stream: TStream); procedure StreamToXML(XML: TLrXMLConfig; Path: String; Stream: TStream);
var var
@ -4417,7 +4418,9 @@ begin
else if Picture.Graphic is TIcon then else if Picture.Graphic is TIcon then
result := pkIcon result := pkIcon
else if Picture.Graphic is TBitmap then else if Picture.Graphic is TBitmap then
result := pkBitmap; result := pkBitmap
else if Picture.Graphic is TPixmap then
result := pkXPM;
end; end;
function TfrPictureView.PictureTypeToGraphic(b: Byte): TGraphic; function TfrPictureView.PictureTypeToGraphic(b: Byte): TGraphic;
@ -4428,6 +4431,7 @@ begin
pkIcon: result := TIcon.Create; pkIcon: result := TIcon.Create;
pkJPEG: result := TJPEGImage.Create; pkJPEG: result := TJPEGImage.Create;
pkPNG: result := TPortableNetworkGraphic.Create; pkPNG: result := TPortableNetworkGraphic.Create;
pkXPM: result := TPixmap.Create;
end; end;
end; end;