Sortierfunktion in der Listview.dll

[horsthorn]

Der nachfolgende Code läuft einwandfrei bis auf die Sortierung über die Spaltenbuttons Anklicken geht, aber keine Reaktion.
Da steckt bestimmt der Teufel im Detail und ich seh "vor lauter Bäumen den Wald nicht"
Bitte um Hilfe

PROC LISTVIEW_ANZEIGE
PARAMETERS datei$,hrot%,hgruen%,hblau%,vrot%,vgruen%,vblau%,modus$,font$,gross$,fett$ 'wird aus einer cfg-Datei gelesen

DestroyWindow(listview&)

IF modus$="0" 'cfg-Datei-Werte
typ$=$31
ELSEIF modus$="1"
typ$=$30
ENDIF
gross%=VAL(gross$)
fett%=VAL(fett$)

gross%=VAL(gross$) 'cfg-Datei-Werte
font_lv%=CREATE("FONT",font$,gross%,0,fett$,0,0)

UPDATE(listview&)
listview&=CREATELISTVIEW(%hwnd,%hinstance,RGB(vrot%,vgruen%,vblau%),RGB(hrot%,hg ruen%,hblau%),-1,typ$)

bytes&=@FileSize(datei$)
IF bytes& > 0
Dim bereich#,bytes&
ReadFileQuick(addr(datei$),bereich#,0,bytes&)
x&=CsvToHeader(listview&,bereich#,addr(y&))
CsvToListview(listview&,(bereich#+y&),(bytes&-y&),x&)
Dispose bereich#
EndIf

menge&=GETCOLUMNS(listview&)

SetColumnWidth(listview&,0,50) 'fixierte 1 Spalte
I%=1
WHILELOOP I%,(menge&-1) 'eines weniger, da 0 schon steht
SetColumnWidth(listview&,I%,(winB%/3)) 'richtet sich nach der Anzeigengröße
INC I%
ENDWHILE

AUTOSORTLISTVIEW listview&,1,1,1
SHOWLISTVIEW(listview&,1,60,((winB%*2)-9),((winH%*2)-133))

x&=SendMessage(listview&,$101f,0,0) 'LVM_GETHEADER
SetFont listview&,font0% 'Font im Gesamt-Listview setzen
SetFont x&,font_lv% 'Extrafont für Header setzen
SELECTLINE(listview&,0,6)
SELECTLINE(listview&,0,1)
ENDPROC
'################################

[_Joerg_]

So, jetzt habe ich mich auch mal angemeldet. Hallo Horst. Herzlichen Glückwunsch zum erneuten Gleichstand.
Wie immer, ist es schwer, zu beurteilen, was der Code können soll, wenn das Fragment nicht lauffähig ist. Was mir aber auffällt ist folgendes:
Du killst gleich nach Parameters das Listviewcontrol, verwendest dann später Update(..) und erstellst dann wieder ein neues Control.

Gruß
Jörg

Wer noch nicht genau weiß, wer ich bin, schaut hier:
wuestensand.info

[horsthorn]

Die Procedur ist aus einem geplanten Programm, in dem der Anwender sich seine Listview-Tabellen selbst erstellt. - Das klappt auch wunderbar, im Moment habe ich für Testzwecke eine Tabelle mit 6 Spalten und 15 Einträgen und eine Tabelle mit 10 Spalten und 1980 Einträgen laufen.
Das ich die Listview gleich zu Anfang zerstöre, liegt in der Natur des Aufrufens. Wenn ich während des Programmlauf immer wieder eine andere Tabelle starte, würde ich ja immer wieder eine neue Listview mit Create....
erstellen. Deshalb vorher Destroy....
Das ist ja auch kein Problem. Wie gesagt, es klappt alles, nur das verd... Autosort.... streikt

[_Joerg_]

Hast Du es schon mit SetColumnSort(H,S,F) versucht?

[horsthorn]

Ja, hab ich - gleiches Ergebnis.
Hab jetzt eine "Krücke" eingebaut:
Zwei Buttons mit Sortmanual...
Die funktionieren, aber das ist auch nicht das "Gelbe vom Ei"

[_Joerg_]

Dann solltest Du mal ein rudimentäres Lauffähiges Programm erstellen. Einfach ein Cls mit Listview und Schleife. Wenn es dann nicht klappt, kann man Deinen Code nochmal durcharbeiten. Ich hab selber auch schon lange nichts mehr mit Franks dll gemacht. Deshalb weiß ich gar nicht mehr so genau, wie sich die einzelnen Funktionen verhalten.

[THFR]

(Und du hast auch ein 'AutoSortListview () mit eingebaut?) Sorry! Ist ja.
Aber setze ruhig AutoSortListview listview&,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Mehr ,1 als vorhandene Colums stören nicht.

Und wo für ist

 DestroyWindow(listview&)
'.............

 UPDATE(listview&)

 listview&=CREATELISTVIEW(%hwnd,%hinstance,RGB(vrot%,vgruen%,vblau%),RGB(hrot%,hg  ruen%,hblau%),-1,typ$)

wenn du es zerstören wilst: EraseListview()
oder BuildListview()
oder DeleteAllItems()

Gruß Thomas

[_Joerg_]

Bei SetColumnWidth hast Du eine flexible Schleife, die die Spaltenbreite einstellt. AUTOSORTLISTVIEW listview&,1,1,1 jedoch, bearbeitet nur die ersten drei Spalten. Liegt's vielleicht daran?

[horsthorn]

Danke an alle für die Hilfe
Habe den Fehler gefunden !
Im Haupt-Code steht (Freud'sche Fehlleistung von mir)

INITMESSAGES(listview&)

Richtig ist:

INITMESSAGES(%hwnd)

Dann klappts auch mit dem Sortieren

[_Joerg_]

Das ist mir auch schon passiert und ich hab mir einen Wolf gesucht...

[horsthorn]

Bin ich ja froh, daß ich nicht alleine bin
Das heimtückische dabei ist, es kommt keine Fehlermeldung !

[Frabbing]

Zitat von horsthorn

Danke an alle für die Hilfe
Habe den Fehler gefunden !
Im Haupt-Code steht (Freud'sche Fehlleistung von mir)
Richtig ist:
Dann klappts auch mit dem Sortieren

Behobene Probleme sind mir die Liebsten!

Genau, die Messages gehen vom Listview-Control an das Parent-Fenster, in dem Fall das Hauptfenster. Die Dll greift dann dort per Subclassing die Messages ab. Irgendwie muß sie ja merken, dass der Sortier-Button gedrückt wurde.

[Frabbing]

Zitat von horsthorn

Bin ich ja froh, daß ich nicht alleine bin
Das heimtückische dabei ist, es kommt keine Fehlermeldung !

Wie soll die Dll auch merken, dass du eine falsche WndProc (oder gar keine) angegeben hast?
XProfan's SubClass meldet dir auch nicht, wenn du ein verkehrtes Fenster angibst...

[Frabbing]

Zitat von _Joerg_

Wer noch nicht genau weiß, wer ich bin, schaut hier:
wuestensand.info

Oh, lange Leitung bei mir... hallo Jörg!

[horsthorn]

Zitat von Frabbing

Oh, lange Leitung bei mir... hallo Jörg!

Wo warst du eigentlich die ganze Zeit
Hast dich ganz schön rar gemacht oder vielleicht "Welt-Tournee" mit "Wüstensand"