Drawing controls directly onto canvas

Return to index

Author

Message

Justin Turberville

Posted: 04/18/2002 18:11:42

I've created a TRVQuestionItemInfo derived from TRVControlItemInfo. The

control will be a panel containing other controls. The print method below

uses the control drawing routines in CtrlImg, but scaling needs to be added.

procedure TRVQuestionItemInfo.Print(Canvas: TCanvas; x, y, x2: Integer;

  Preview, Correction: Boolean; const sad: TRVScreenAndDevice;

  RichView: TRVScroller; dli: TRVDrawLineInfo; Part: Integer);

begin

  DrawPanel_(Control as TPanel, Canvas, x,y);

end;

I'd appereciate a pointer as how to handle the scaling in this case - surely

not SetMapMode, SetWindowExtEx, etc?!