Spaltenresize im tlistview

[Jan]

Hallo DP!

Ich möchte, zwecks Benutzerfreundlichkeit, speichern, welche Breite den einzelnen Spalten eines Tlistviews vom Benutzer zugewiesen wurden, damit diese gespeichert werden können. Das soll aber nicht nur am Ende des Programms geschehen, sondern sobald der User die Spalten resized hat, soll der neue breite-wert gespeichert werden. Leider habe ich kein "oncolumnresize"-event oder ähnliches finden können, mit dem ich sowas hätte realisieren können. Hat da irgend jemand eine Idee?
Gruß
Jan

[Gaius]

Hallo,

um mitzukriegen wann eine Größenderung der Columns auftritt, fällt mir nur OnAdvancedCustomDrawItem ein.

Wenn Du in einer Draw-Routine etwas tust, dann achte aber darauf, alles mit Flags abzusichern (z. B. Aktion nur ausführen wenn sich wirklich was geändert hat) damit Du nicht ein Draw-Ereignis provozierst und Deine Routine wieder aufgerufen wird.

Viel Spass

[Jan]

Hallo Gaius,
Onadvancedcustomdrawitem wird ja nur dann ausgeführt, wenn ein eintrag im tlistview in irgendeiner Weise dargestellt wird, aber hat mit den spalten ja wenig zu tu, und genau die will ich ja in der breite verändern. Abgesehen davon ahbe ich keinen blassen schimmer, wie ich aus diesem event heraus finden soll, ob da nun gerade die Größe einer Spalte geändert wurde, oder nicht.
Hilfe ist also noch immer gefragt!
Gruß
Jan

[Jan]

Also nach wildem rumsuchen im Netz hab ich folgendes gefunden:


http://www.swissdelphicenter.ch/torr...de.php?id=1264

Aber wie ich damit jetzt genau umgehen soll, und was ich da letztenendes an meinem Prog rumschreiben muss verstehe ich absolut nicht!
Könnte sich das vielleicht mal einer anschauen und mir weiterhelfen?
Gruß
Jan

[Daniel B]

Hallo,

Zitat von Jan:

Aber wie ich damit jetzt genau umgehen soll, und was ich da letztenendes an meinem Prog rumschreiben muss verstehe ich absolut nicht! Könnte sich das vielleicht mal einer anschauen und mir weiterhelfen?

Es steht ja da:
" Ein OnColumnResize Ereignis kann mit ein wenig Arbeit einer TListView
hinzugefügt werden. Installiere die PBExListview Komponente,
welche von der TListView abgeleitet ist.
Die Komponente besitzt 3 neue Ereignisse:
OnColumnResize, OnBeginColumnResize, OnEndColumnResize "

Es haldelt sich hie rdabei um eine neue Komponente die von der normalen ListView abgeleitet ist. Diese musst Du Compilieren und installieren.
Dann hast Du diese neuen Ereignisse zur Verfügung.

Grüsse, Daniel

[Jan]

Zitat:

Diese musst Du Compilieren und installieren.
Dann hast Du diese neuen Ereignisse zur Verfügung.

ganz dumm gefragt: Wie geht das?
Und muss ich dafür meinen Jetzigen listview ersetzen?
Gruß
Jan

[Jan]

Weiß denn wirklich niemand wie man sowas macht? wenn das da so beschrieben steht, kann das ja nicht allzu extrem schwer sein. Ich brauche nur infos dazu, welche optionen in delphi ich da benutzen muss.
Gruß
Jan

[Daniel B]

Hallo Jan,

ich habe es auch noch nie gemacht, aber so könnte es gehen.
Erste möglichkeit:
Die Unit die beim SDC ist, speicher sie Dir mal auf die Festplatte.
Der Name der Unit steht ja auch da.
Dann klickst Du in Delphi im Menü auf Komponente\Komponente installieren.
In dem Fenster was sich öffnet, klickst Du auf In neues Package.
Dort namen und Pfad der Unit angeben und Namen und Verzeichniss für das neue Package angeben und dann auf OK.
So, nun klickst Du auf Datei alles schliessen in DElphi, so das nur noch die IDE da ist und machst dann auf dieses neue Package ein Doppelklick. Das hat so ein orangenes Symbol. Danach sollte es installiert werden.
Nachteil:
Du wirst Deine jetzigen ListViews austauschen müssen.

Zwei möglichkeit: //Wäre evtl. sinnvoller aber schwieriger
Da Du Delphi Raumschiff hast, hast Du auch die Sources der ganzen Komponenten. Such Dir die für die normale ListView raus. Ergänze den Source um den vom SDC. Dann speichern und gleiche Prozedur wie oben durchführen. Mach Dir aber vorher ne Sicherung der normalen Unit.
Dann sollte man bei der normalen LV die neuen Eigenschaften haben.

Grüsse, Daniel

[Jan]

Hallo Daniel B,
Also das 2. Hört sich da wesentlich besser an als das 1.
Nun habe ich schonmal die unit comctrls.pas geöffnet und da den Abschnitt für tlistview rausgesucht. Dann habe ich den code ergänzt und die unit gespeichert, nachdem ich eine Sicherheitskopie gemacht habe.
Dann habe ich auf kompo installieren geklickt, dann in neues package.
Dann hab ich die comctrls.pas ausgesucht und dann als packagenamen comctrls angegeben. wenn ich jetzt bestätige, dann will Delphi direkt speichern und installieren. Das geht aber dann nicht, weil angeblich das package "vcl" bereits comctrls beinhaltet.
Was mache ich falsch?
Wenn du Zeit hast, könnte man sich ja mal im chat treffen.
Gruß
Jan

[Daniel B]

Hallo,

leider kann ich sowas nicht testen, da bei PE keine Quelltexte dabei sind.
Du solltest es aber mal mit einem anderen Namen versuchen. Einfach um mal zu sehen ob es überhaupt geht, ne es anders als comctrls als Package-Namen. Ansonsten könntest Du mal die vorhandenen Datein löschen und es einfach nochmal versuchen. Die ComCtrls.pas, .dcu löschen. Und die LV-Kompo von der Palette oben rausschmeissen.
Und dann es nochmal versuchen, oder unter einem anderen Namen mal. Aber sichere Dir mal vorher! das DElphi-Verzeichniss. Mach Dir auf jedenfall gute Sicherungen. Am besten halt Delphi-Verzeichniss und Registry vor dem ausführen, wenn es schief geht, einfach zurück kopieren.

Grüsse, Daniel