Lee Jenkins wrote: > Lee Jenkins wrote: >> >> Hi all, >> >> I'm having a problem with drawing text on an image using the DrawText >> function where the area around the text masked out. Please see the >> attached image. >> >> This same routine works perfectly in Delphi. Maybe the >> Canvas.Brush.Style := bsClear is not working? >> >> procedure TMyImage.DrawCaption; >> var >> lRect: TRect; >> begin >> // setup rect >> lRect.Left := 10; >> lRect.Top := 10; >> lRect.Right := Width -10; >> lRect.Bottom := Height -10; >> //Canvas.Pen.Style := psClear; // <-- tried this as well >> Canvas.Font.Assign(FButtonFont); >> Canvas.Brush.Style := bsClear; >> DrawText(Canvas.Handle, PChar(FCaption), -1, lRect, >> DT_WORDBREAK or DT_VCENTER or DT_CENTER or DT_END_ELLIPSIS); >> end; >> > > As a follow up, Canvas.TextRect() works, but the output is terrible. > See attached image. >
After some thought, maybe it would be better to just ask: Is there a workable way to draw centered text onto a TImage that has an image already assigned to it? I thought about drawing to the bitmap first, but wanted avoid having to create/destroy bitmap image so many times. Thanks, -- Warm Regards, Lee "When my company started out, we were really, really, really, really small. Now...we're just really small." _______________________________________________ Lazarus mailing list [email protected] http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
