Tabulator nicht dargestellt in ChecklistBox

[cybertier]

Hallo alle zusammen,

die Lösung ist wahrscheinlich trivial aber rumgoogeln und die sufu hier haben mir nicht weitergeholfen.
Ich möchte Text in einer CheckListBox mit Tabulatoren formatieren, aber anstatt eines Tabulators wird in meinem Programm nur ein kleiner Kasten angezeigt.
Habe auch schon versucht an der tabwidth Eigenschaft rumzufuchteln aber das ändert auch nichts.


Vielen Dank im vorraus,
Marc



p.s. listview würde ich eher ungern verwenden da das da mit den checkboxen scheinbar nicht so bequem geht.

[Luckie]

Wie so sollte die Benutzung von Checkboxen in einem Listview nicht so "bequem" sein? Die kann man genauso abfrage wie in einer CheckListbox.

[cybertier]

Beim spontanen ausprobieren ist mir aufgefallen, dass das die Listview keine Funktion namens "checked" hat wie sie die Checklistbox hat.
Beim kurzen rumgoogeln hieß es dann noch man müsse irgendwelche Umwege gehen um überhaupt darauf reagieren zu können, dass eine Checkbox angeklickt wird.
Und da ich von Delphi so gut wie keine Ahnung habe, wollte ich Umwege vermeiden und lieber schaun ob man das "kleine Problemchen" Tabulatoren anzuzeigen nicht irgendwie lösen kann ^^

Meine Recherchen waren wohl recht oberflächlich, es kann also sein, dass das mit der Listview vllt doch nicht so wild ist.
Aber erstmal hats mich erschreckt.

[Muetze1]

Tabulatoren werden von den Komponenten nicht interpretiert, wenn es um einfach Textausgaben bei den Controls geht. Bei einem Memo etc werden diese aufgrund der Bedeutung für die Textverarbeitung entpsprechend umgesetzt.

Du müsstest in deiner CheckListBox die Einträge selbst malen. Du kannst dazu die Funktion DrawText() zu Hilfe nehmen, diese bietet per Flag an, Tabulatoren entsprechend zu interpretieren.

[cybertier]

Kann mir da jemand ne kurze Erklärung geben wie ds amit dem Drawtext genau funktionieren soll?

Ich weiß nicht genau wie ich da ein etwas "vernünftiges" für Rect und so komme.
Hab grad mal rumprobiert aber bei folgendem Code wird nix angezeigt.

ErrortypeBox ist eine Checklistbox

Delphi-Quellcode:

myRect := ErrortypeBox.ClientRect;
DrawText(ErrortybeBox.Handle, PChar('te'+#9+'st'),length('te'+#9+'st'),myRect,DT_EXPANDTABS);

Und ohne DrawText gehts nicht?