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

Forgotten part of the last commit

Browse Source 
git-svn-id: trunk@33888 -
This commit is contained in:
sekelsenmat 2011-12-01 14:09:16 +00:00
parent 3c36dc6925
commit 65c761d560
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lazcanvas.pas
View File

@ -82,6 +82,7 @@ type
// Routines which don't work with out extended clipping in TFPImageCanvas
procedure DoLine (x1,y1,x2,y2:integer); override;
public
HasNoImage: Boolean;
constructor create (AnImage : TFPCustomImage);
destructor destroy; override;
procedure SetLazClipRegion(ARegion: TLazRegion);
@ -252,6 +253,7 @@ constructor TLazCanvas.create(AnImage: TFPCustomImage);
begin
inherited Create(AnImage);
GraphicStateStack := TObjectStack.Create;
HasNoImage := AnImage = nil;
end;
destructor TLazCanvas.destroy;