Text on a Shape Component
lazarus / 5-Lazarus Extra Components

----------------------------------------------------------------------
babax · 2008-10-28 03:34

Hello,

how can i write Text on a Shape Component. The following dosent work.

Code: [Select]  
   TButton1.Canvas.Font.Name  := 'Arial';
   TButton1.Canvas.Font.Size  := 10;
   TButton1.Canvas.Font.Color := clBlack;

   TButton1.Canvas.TextOut(0, 0, 'Hello');

----------------------------------------------------------------------
theo · 2008-10-28 09:58

In the OnPaint event of the TShape:

procedure TForm1.Shape1Paint(Sender: TObject);
begin
 TShape(Sender).Canvas.TextOut(0,0,'test');
end;