Forum: Programmieren allgemein
Delphi
by himitsu,
13. Jan 2017
Falls dem gemeinsamen DeviceContext grade nicht de korrekte Font zugewiesen ist, dann kann man das ja leicht ändern.
Label1.Canvas.Font.Assign(Label1.Font);
Result := Label1.Canvas.TextWidth(DerText);
Aber da wir hier ja von "gemeinsam" reden und andere Prozeduren, so wie unsere, nicht immer alles korrekt initilisieren/zurücksetzen ....... nicht dass der Nächste dann mit unserem Font...
Forum: Programmieren allgemein
Delphi
by himitsu,
12. Jan 2017
Kein Ressourcenschutzblock?
Und warum nicht gleich direkt den vorhandenen Font des Bitmaps verwenden?
Oder das Canvas des Labels? (wobei TLabel, TImage, TPaintBox und paar Andere eigentlich keine eigene Zeichenfläche besitzen, sie alle Zeichenoperationen an ihren Parent durchreichen und sich auf ihn drauf malen)