Hi,
I am redefining the paint procedure in an extended WPRichTextLabel Component
here is the code within the paint procedure
procedure WPLabelEx.Paint;
var
FWidth,FHeight : Integer;
begin
// inherited;
TextColor:=clred;
FWidth := DeskWidth;//round(Width*(resizing/100));
FHeight := DeskHeight;//round(Height*(resizing/100));
PaintRTFPage(PageNumber, -1, -1, FWidth, FHeight, Canvas, [wppShowHotStyles, wppNoPageBackground],
0, 0, -1, -1, [wpUseProvidedWidthHeight]);
PaintRTFPage(PageNumber, +1, +1, FWidth, FHeight, Canvas, [wppShowHotStyles, wppNoPageBackground],
0, 0, -1, -1, [wpUseProvidedWidthHeight]);
PaintRTFPage(PageNumber, +1, -1, FWidth, FHeight, Canvas, [wppShowHotStyles, wppNoPageBackground],
0, 0, -1, -1, [wpUseProvidedWidthHeight]);
PaintRTFPage(PageNumber, -1, +1, FWidth, FHeight, Canvas, [wppShowHotStyles, wppNoPageBackground],
0, 0, -1, -1, [wpUseProvidedWidthHeight]);
TextColor:=clLime;
PaintRTFPage(PageNumber, -0, -0, FWidth, FHeight, Canvas, [wppShowHotStyles, wppNoPageBackground],
0, 0, -1, -1, [wpUseProvidedWidthHeight]);
end;
I am drawing 4 versions of it in red offset to make a larger images of the text then placing a different color font right in the center of the other 4. This works great and looks nice however it doesn't scale the same as the text drawn in the original paint procedure.
Thankyou