Tags:
delphi
Jeg har en tekst stående i en memodata, og vil have at teksten ændrer størrelse, når størrelsen på memodata'en ændres (når projektet kører).
Hvordan laver man det?
TSat
2 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
0
Note: teksten skal ændre størrelse, når memodata'en "dragges" større.
TSat
0
Fandt langt om länge selv ud af det.
For evt. interesserede:
Procedure TForm1.FormResize(Sender: TObject);
Begin
MemoData.Font.Size := (Form1.Width div 20);
end;
Her ändrer skriftstörrelsen sig, när formen dragges bredere.
Tallet 20 er forholdet, hvormed störrelsen ändrer sig.
(Skrives der 10 i stedet for 20, bliver skriften dobbelt sä stor).