Support for post render changes added

This commit is contained in:
ronaldhordijk
2005-05-01 08:01:31 +00:00
parent 3d97bf58d4
commit b472bd5f01
4 changed files with 53 additions and 12 deletions

View File

@ -69,6 +69,7 @@ type
procedure SetCP(CP: TControlPoint);
function GetImage: TBitmap; virtual; abstract;
procedure Render; virtual; abstract;
procedure UpdateImage(CP: TControlPoint); virtual;
procedure Stop;
property OnProgress: TOnProgress
@ -109,6 +110,7 @@ type
function GetImage: TBitmap;
procedure Render;
procedure RenderMaxMem(MaxMem: Int64);
procedure UpdateImage(CP: TControlPoint);
procedure Stop;
@ -248,6 +250,12 @@ begin
FCP := Cp.Clone;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TBaseRenderer.UpdateImage(CP: TControlPoint);
begin
end;
///////////////////////////////////////////////////////////////////////////////
procedure TBaseRenderer.Stop;
begin
@ -289,6 +297,12 @@ begin
Render;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TRenderer.UpdateImage(CP: TControlPoint);
begin
end;
///////////////////////////////////////////////////////////////////////////////
end.