Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Verschiedene Schriftarten in einem Listview (https://www.delphipraxis.net/139062-verschiedene-schriftarten-einem-listview.html)

JonnyGuitar 22. Aug 2009 16:32


Verschiedene Schriftarten in einem Listview
 
Hallo,

ich habe ein Listview mit 3 Columns. Die Schriftart ist normal Arial.
In einer Spalte würde ich gerne einen Haken setzen können. Anbieten würde
sich dafür das "ü" in der Schriftart Windings.
Ist es irgendwie möglich für diese Column eine andere Schriftart zu setzen?
Oder habt ihr eine andere Idee für eine Lösung.

Btw. die Checkboxen bei der Listview helfen mir in diesem Fall nicht weiter, die brauche ich
für die Selektierung.


Gruss Jonny

Bernhard Geyer 22. Aug 2009 17:09

Re: Verschiedene Schriftarten in einem Listview
 
Stichwort OwnerDraw/DrawItem oder alternative Controls wie von ElPack die das von Hause unterstützen.

DeddyH 22. Aug 2009 17:35

Re: Verschiedene Schriftarten in einem Listview
 
Oder der VST, für den dürfte das auch ein Kinderspiel sein.

himitsu 22. Aug 2009 18:23

Re: Verschiedene Schriftarten in einem Listview
 
Zitat:

Zitat von DeddyH
Oder der VST, für den dürfte das auch ein Kinderspiel sein.

aber auch da muß man selber in das Zeichnen eingreifen

lbccaleb 22. Aug 2009 19:50

Re: Verschiedene Schriftarten in einem Listview
 
Irgend wo ist bei Delphi zumindest in 5/6/7 ein Bsp. mit dabei, wo genau sowas gezeigt wird, allerdings habe ich kein Delphi gerade hier, kann dir vorerst den Pfad nicht sagen, musst mal selber schauen...

JonnyGuitar 22. Aug 2009 20:34

Re: Verschiedene Schriftarten in einem Listview
 
Danke für eure Antworten, ich habe es jetzt so gelöst:

Delphi-Quellcode:
procedure TForm1.lvItemsCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if SubItem = 2 then
  begin
    Sender.Canvas.Font.Name := 'Wingdings';
  end;
end;

Gruss Jonny


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz