BorlandTalk.com

Erick Hartanto · Guest

hi,

i have a drawing problem here please help,
here is the simple code
============================================
procedure CustomDraw(DC: HDC; R: TRect);
var
Canvas: TCanvas;
begin
Canvas := TCanvas.Create;
try
Canvas.Handle := DC;
Canvas.Brush.Color := clSkyBlue;
Canvas.FillRect(R);
finally
Canvas.Handle := 0;
Canvas.Free;
end;
end;

{pb is paint box}
procedure TForm1.pbPaint(Sender: TObject);
var
R: TRect;
begin
R := pb.ClientRect;
CustomDraw(pb.Canvas.Handle, R);
pb.Canvas.TextOut(0, 0, 'Hello');
end;
================================================
the problem is 'Hello' text is not properly drawed according to the font.
i think the problem lies on CustomDraw procedure that i miss something
but i don't know what i'm missing

thanks in advance

Peter Below (TeamB) · Guest

In article <4360f15c (AT) newsgroups (DOT) borland.com>, Erick Hartanto wrote:

Erick Hartanto · Guest

thanks Peter, that's the code i'm missing for :)

but the code should be to be working
OldDC := SaveDC(DC);

RestoreDC(DC, OldDC);

anyway thank you very much

hmm maybe the reason i pass the dc instead the canvas
is because in the customdraw method
i often change the brush mode and brush color etc

so i think better pass the handle then create the canvas
so the canvas color isn't affected after customdraw method