Hallo,
Om een lange tekst netjes over verschillende regels te verdelen maak ik gebruik van de Delphi functie wraptext.
Ik weet de breedte van mijn textbox in pixels.
Omdat je bij WrapText ook het aantal characters moet opgeven bepaal ik op de volgende manier het aantal tekens te bepalen
Code:
c := TBitmap.Create;
c.Canvas.Font.Assign(FTextbox.Font);
TempText:='';
i:=1;
tempWidth:=0;
while tempWidth<FTextbox.Position.width do
begin
TempText:= TempText+FScribtureText[i];
Tempwidth:=c.Canvas.TextWidth(temptext);
i:=i+1
end;
Deze functie is echter veels te conservatief en het aantal tekens waarop ik moet afbreken is dan ook veels te klein.
Wat doe ik hier verkeerd?
Zowel de Font als de width van de textbox komen overeen met de instellingen die ik heb opgegeven
Bookmarks