PASCAL - BLRPLT.ZIP - PROCS.DAT

 
Output of file : PROCS.DAT contained in archive : BLRPLT.ZIP

*SetupWindow
procedure SetupWindow; virtual;
begin
@XX02.SetupWindow;
end;
*Done
destructor Done; virtual;
begin
@XX02.Done;
end;
*DefWndProc
procedure DefWndProc(var Msg : TMessage); virtual;
begin
@XX02.DefWndProc(Msg);
end;
*DefChildProc
procedure DefChildProc(var Msg : TMessage); virtual;
begin
@XX02.DefChildProc(Msg);
end;
*DefCommandProc
procedure DefCommandProc(var Msg : TMessage); virtual;
begin
@XX02.DefCommandProc(Msg);
end;
*Paint
procedure Paint(PaintDC : HDC; var PaintInfo : TPaintStruct); virtual;
begin
end;
*CanClose
function CanClose : boolean; virtual;
var
Result : Boolean;
begin
Result := @XX02.CanClose;
if Result then
begin
end;
CanClose := Result;
end;