Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by KodeZwerg,
5. Apr 2018
Da ich vorgegebene Dialoge meist eh meide, hier kleine Schnippsel zum selber basteln.
// Style der Listbox sollte lbOwnerDrawVariable sein damit jeder Eintrag eine eigene Schrift hat
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
With ListBox1 do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by KodeZwerg,
4. Apr 2018
Bevor ich wieder mit Kanonen auf Spatzen schieße, ich kenne TFontDialog noch nicht aber ich weiß wie ich alle registrierten Fonts in eine Auswahl-Box bekomme, falls das helfen kann pieps einmal.