Hallo,
In Delphi kan je gebruik maken van :
SetTextAlign(Canvas.Handle, TA_BASELINE);Hiermee bereik je dat bij het wisselen van de font.size de letters op de basislijn worden weergegeven.
Is dit in Lazarus ook mogelijk, en hoe los je dat dan op?Code:Begin Label1.Canvas.Font.Size := 10; Label. Canvas.TextOut(0,0,'HHHHH'); Label1.Canvas.Font.Size := 30; Label. Canvas.TextOut(50,0,'HHHHH'); Label1.Canvas.Font.Size := 10; Label. Canvas.TextOut(100,0,'HHHHH'); end;
HG. Frans
Bookmarks