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

LCL; TCustomImage: comment

Browse Source 
git-svn-id: trunk@24892 -
This commit is contained in:
mattias 2010-04-24 19:38:59 +00:00
parent 785ebd8f90
commit 84d4e6bf32
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/extctrls.pp
View File

@ -601,7 +601,7 @@ type
FProportional: Boolean;
FTransparent: Boolean;
FStretch: Boolean;
FUseParentCanvas: boolean;
FUseAncestorCanvas: boolean;
function GetCanvas: TCanvas;
procedure SetPicture(const AValue: TPicture);
procedure SetCenter(const AValue : Boolean);

14
lcl/include/customimage.inc
View File

@ -27,7 +27,7 @@ begin
FTransparent := False;
FPicture := TPicture.Create;
FPicture.OnChange := @PictureChanged;
FUseParentCanvas := False;
FUseAncestorCanvas := False;
SetInitialBounds(0, 0, GetControlClassDefaultSize.X, GetControlClassDefaultSize.Y);
end;
@ -44,7 +44,7 @@ var
TempBitmap: TBitmap;
begin
//debugln('TCustomImage.GetCanvas A ',DbgSName(Self),' ',DbgSName(FPicture.Graphic));
if not FUseParentCanvas and (FPicture.Graphic = nil) then
if not FUseAncestorCanvas and (FPicture.Graphic = nil) then
begin
// make a new bitmap to draw on
TempBitmap := TBitmap.Create;
@ -56,9 +56,9 @@ begin
TempBitmap.Free;
end;
end;
//debugln('TCustomImage.GetCanvas B ',DbgSName(Self),' ',DbgSName(FPicture.Graphic));
//debugln(['TCustomImage.GetCanvas B ',DbgSName(Self),' ',DbgSName(FPicture.Graphic),' FUseParentCanvas=',FUseAncestorCanvas]);
// try draw on the bitmap, not on the form's canvas
if not FUseParentCanvas and (FPicture.Graphic is TBitmap) then
if not FUseAncestorCanvas and (FPicture.Graphic is TBitmap) then
Result := TBitmap(FPicture.Graphic).Canvas
else
Result := inherited Canvas;
@ -195,7 +195,7 @@ var
C: TCanvas;
begin
// detect loop
if FUseParentCanvas then exit;
if FUseAncestorCanvas then exit;
if csDesigning in ComponentState
then DrawFrame;
@ -207,11 +207,11 @@ begin
R := DestRect;
C.StretchDraw(R, Picture.Graphic);
FUseAncestorCanvas := True;
try
FUseParentCanvas := True;
inherited Paint;
finally
FUseParentCanvas := False;
FUseAncestorCanvas := False;
end;
end;