paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 17:17:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fixed postscriptcanvas AV issue #12173, and example

Browse Source 
git-svn-id: trunk@16637 -
This commit is contained in:
jesus 2008-09-18 21:24:09 +00:00
parent 7dcfdfde0f
commit 5ff328f3f1
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
examples/postscript/usamplepostscriptcanvas.pas
View File

@ -39,6 +39,7 @@ var
Pt1: Array[0..3] of TPoint;
Bmp : TBitMap;
Xpm : TPixMap;
png : TPortableNetworkGraphic;
begin
if Sender=nil then ;
With TPostscriptCanvas.Create do
@ -141,12 +142,20 @@ begin
xpm:=TPixMap.Create;
try
xpm.LoadFromFile(ExpandFileNameUTF8('../../images/lazarus.xpm'));
StretchDraw(Rect(10,500,110,600),xpm);
xpm.LoadFromFile(ExpandFileNameUTF8('../../images/vase_trans.xpm'));
StretchDraw(bounds(10, 590, round(xpm.Width*0.60),round(xpm.height*0.60)),xpm);
finally
xpm.Free;
end;
png := TPortableNetworkGraphic.Create;
try
png.LoadFromFile('../../images/splash_logo.png');
StretchDraw(bounds(190, 590, round(png.Width*0.60),round(png.height*0.60)),png);
finally
png.Free;
end;
NewPage;
Pen.Color:=clBlack;

9
lcl/postscriptcanvas.pas
View File

@ -556,7 +556,7 @@ end;
procedure TPostScriptPrinterCanvas.WriteOrientation;
begin
if Printer.Orientation=poLandscape then
if (Printer<>nil) and (Printer.Orientation=poLandscape) then
begin
Write(format('%d 0 translate 90 rotate',[PageHeight]));
end;
@ -783,12 +783,13 @@ var
CurColor : TFPColor;
St : String;
begin
if (SrcGraph is TBitMap) then
if (SrcGraph is TRasterImage) then
begin
SrcIntfImg:=TLazIntfImage.Create(0,0);
Lst.BeginUpdate;
Try
SrcIntfImg.LoadFromBitmap(TBitMap(SrcGraph).Handle,TBitMap(SrcGraph).MaskHandle);
SrcIntfImg.LoadFromBitmap(TRasterImage(SrcGraph).BitmapHandle,
TRasterImage(SrcGraph).MaskHandle);
St:='';
for py:=0 to SrcIntfImg.Height-1 do
begin
@ -941,7 +942,7 @@ begin
WriteHeader('%%'+Format('Creator: Lazarus PostScriptCanvas for %s',[Application.ExeName]));
WriteHeader('%%'+Format('Title: %s',[Title]));
WriteHeader('%%CreationDate: '+DateTimeToStr(Now));
if Printer.Orientation=poLandscape then
if (Printer<>nil) and (Printer.Orientation=poLandscape) then
WriteHeader('%%Orientation: Landscape');
WriteHeader('%%Pages: (atend)');
WriteHeader('%%PageResources: (atend)');