{ TBaseForm_WaitThread }
TBaseForm_WaitThread = class(TThread)
private
FIndex: integer;
FCanvas: TCanvas;
FOffsetX, FOffsetY: integer;
FWaitImageList: TImageList;
procedure BlankArea;
procedure ShowStatus;
protected
procedure Execute; override;
public
constructor Create(CreateSuspended: boolean);
procedure SetCanvas(ACanvas: TCanvas; x, y: integer);
property WaitImageList: TImageList read FWaitImageList write FWaitImageList;
end;