Antialiasing, Kantenglättung für Memo, Edit und Label

[FarAndBeyond]

@Dalai
Ja, wir sind Off-Topic... du hast angefangen... grins...
Aber trotzdem danke...
Die Sache mit try-finally ist'n guter Tipp, das hätte ich schon längst an einigen Stellen einbauen sollen. Das man Exceptions auch weiterreichen kann oder manchmal auch sollte war mir nicht so richtig klar. Genausowenig, dass es nach dem Except-Block noch weitergeht bzw. weitergehen kann (ohne Exit).

Das Tutorial hab' ich mir nochmal durchgelesen, hatte ich schonmal gelesen... wirft zwar noch einige Fragen auf, aber alles zu seiner Zeit...

Gruss
Martin

[redox]

Sorry, ebenfalls OT:

Welche (Vor-)Einstellungen müssen Label1 und Memo1 haben, damit

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
 Begin
  AAFont(Label1);
  AAFont(Memo1);
 End;

irgendwas (was denn?) bewirkt?

Und sehr vielen Dank für #6 von Uli Gerhardt

Schönes WE!

MfG

[FarAndBeyond]

Was zum Geier sind Voreinstellungen ...??

Das hier sind die "Voreinstellungen" :

Delphi-Quellcode:

//Type
// TControlAccess = Class(TControl);

Procedure AAFont(Obj: TControl);
   Var
    LogFont: TLogFont;
 Begin
  Try
   GetObject(TControlAccess(Obj).Font.Handle, SizeOf(TLogFont), @LogFont);
   LogFont.lfQuality := ANTIALIASED_QUALITY;
   TControlAccess(Obj).Font.Handle := CreateFontIndirect(LogFont);
  Except
   Exit;
  End;
 End;

Gruß
Martin

[redox]

Klatsch einfach auf ein neues TForm ein TLabel und ein TMemo.

Dann sollte sogar der Geier im Objektinspektor sehen, was "Voreinstellugen" sind

LG

[FarAndBeyond]

@redox
Na das hab' ich doch getan....

Vielleicht hast du das falsche TEdit, TMemo oder TLabel genommen.
Nimm einfach die Blauen der Galaxy Klasse, es funktioniert nur mit den Blauen.
Sternzeit 10281913Quadratwurzel5...

Na schön, wenn du andeuten willst, dass das bei dir nicht funzt, dann tritt doch einfach deinem OS in den Hintern.
Unter D7 läuft das super, geändert hab' ich einzig und allein die Font (auf JackInput), damit kann man den Unterschied sehr gut sehen. Ist vielleicht nicht das beste AA im ganzen Omniversum aber der Unterschied ist so deutlich wie Tag und Nacht. Lohnt sich also immer...

Kann mir kaum vorstellen das so ein winziger, einfacher Quelltext auf höheren Delphi Versionen nicht mehr funzt. Das läuft sicher auch noch auf Delphi XE9541.
Sollte das in höheren Delphi Versionen nicht standardmässig im Objektinspektor auswählbar sein, kann mir nicht denken, dass die so schlampig waren und diese Option vergessen haben. Also braucht man wohl den Quelltext in höheren Delphi-Versionen nicht mehr oder ???

Ich hab' mir gestern Nacht noch einen FirefoxDownloadWatcher gebastelt und auch bei dem funktioniert der Quelltext wunderbar...

Gruß
Martin

[redox]

Heißen Dank für die coole Antwort!

Hatte statt "JackInput" fälschlicherweise "Arial" und Delphi-Strings (Universum) statt Omniversum-Strings benutzt.

Sorry, war mein Fehler!