Support for post render changes added
This commit is contained in:
@ -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.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user