Listview ein- & ausblenden

[JörgG]

Hallo zusammen, Hi Frank, in meinem Projekt habe ich 3 Tabellen. 2 sichtbare & 1 große, unsichtbare (ca 150.000 Einträge). Aus der großen suche ich ich mit 'SearchText" in einem vorher eingegrenzen Bereich von etwa 15.000 Zeilen einen Suchbegriff in einer Spalte. Dieser kann mehrmals vorkommen (5-50 mal). Diese Spalte ist natürlich sortiert, so das dieser Suchbegriff nicht verstreut vorliegt. Bei einem Treffer kopiere ich die komplette Zeile (5 Spalten) mit 'CopyLineTo' in die sichtbare Zieltabelle.
Um die Suchgeschwindigkeit zu erhöhen habe die Listview.dll mit @importDll(,) statisch gelinkt (hab ja jetzt XProfan11.2). Die Suchschleife habe ich aus Frank's Listview-Hilfe hergeleitet:

zei& = 0
While 1        
   zei&=SearchText(LV&,zei&,ende&,spaltennr,suchbegriff#,2,0) ' suchen
   Case zei& = -1 : BREAK 'wenn keinTreffer, schleife verlassen
   copylineto(LV&,zielLV&,zei&,i&) 'zeile in die anzeigetabelle kopieren
   inc i&    'zeilenindex für anzeigetabelle für den nächsten Treffer erhöhen
   inc zei& 'suchstart-index für die nächste runde erhöhen
endwhile

Dies löppt jedoch bei mehr als ca. 10 Treffern etwas ruckelig.(merkwürdigerweise ruckelt die exe mehr als der Interpreter)
Ich vermute, daß Windows mit der visuellen Aktualisierung der Zieltabelle nicht hinterher kommt & kam deshalb auf die Idee die vis. Akt. während des Kopierens abzuschalten & zum Schluss die Tabelle 1x neu zeichnen lassen. Ich versprech mir da einen Geschwindigkeitsgewinn. Unter den Listview-Funktionen gibt es ja die 'UpdateListview(H)', um ein Neuzeichnen zu erzwingen - jetzt bräuchte ich das Gegenstück dafür: Neuzeichnen abschalten
Gibt es da Möglichkeiten?
Gruß Jörg

[AHT]

Der Grund dafür ist wahrscheinlich:
Xprofan Programme sind nicht multithreadingfähig. Werden Funktionen in der DLL aufgerufen, geschieht das im selben Thread, in dem Messages verarbeitet werden. Solange Code innerhalb der DLL ausgeführt wird, werden keine Messages verarbeitet. In der compilierten EXE werden Messages nach jeder zwanzigsten Zeile verarbeitet - in der Profan.exe, die über den Editor ausgeführt wird, nach jeder Zeile.

Neuzeichnen abschalten:
Erfolg& = External("User32","LockWindowUpdate",Handle_der_Listview&)

Soll wieder aktualisiert werden, das gleiche nochmals aufrufen:
Erfolg& = External("User32","LockWindowUpdate",0)

 
zei& = 0
External("User32","LockWindowUpdate",LV&)
While 1 
zei&=SearchText(LV&,zei&,ende&,spaltennr,suchbegriff#,2,0) ' suchen
Case zei& = -1 : BREAK 'wenn keinTreffer, schleife verlassen
copylineto(LV&,zielLV&,zei&,i&) 'zeile in die anzeigetabelle kopieren
inc i& 'zeilenindex für anzeigetabelle für den nächsten Treffer erhöhen
inc zei& 'suchstart-index für die nächste runde erhöhen
endwhile
External("User32","LockWindowUpdate",LV&)

[Bangkok]

Ich denke zum wieder frei geben sollte es
External("User32","LockWindowUpdate",0) heißen

[AHT]

Danke Bangkok. Hast Recht, das wäre noch besser .

 
zei& = 0
External("User32","LockWindowUpdate",LV&)
While 1 
zei&=SearchText(LV&,zei&,ende&,spaltennr,suchbegriff#,2,0) ' suchen
Case zei& = -1 : BREAK 'wenn keinTreffer, schleife verlassen
copylineto(LV&,zielLV&,zei&,i&) 'zeile in die anzeigetabelle kopieren
inc i& 'zeilenindex für anzeigetabelle für den nächsten Treffer erhöhen
inc zei& 'suchstart-index für die nächste runde erhöhen
endwhile
External("User32","LockWindowUpdate",0)

PS: Hab den Blödsinn oben editiert.

[JörgG]

Jo! das funzt prächtig, Danke euch beiden!
Ich kann also damit gezielt mehrere einzeln Fenster sperren, aber alle auf einmal wieder entsperren.
Hat mir sehr geholfen
Gibt es Geschwindigskeitstechnisch an der Suchroutine selbst noch was zu verbessern? Vllt. die Abbruchbedingung im Kopf definieren & auf case verzichten?
Gruß Jörg

[AHT]

Nein, du kannst immer nur ein Fenster zur Zeit sperren. Mit 0 hebst du die Sperrung auf.

[ts-soft]

Man kann zwar alles mögliche dafür nehmen, aber vorgesehen ist:

~SendMessage(LV&, %WM_SETREDRAW, 0, 0)

und

~SendMessage(LV&, %WM_SETREDRAW, 1, 0)

wenns dann gefüllt ist

PS: %WM_SETREDRAW entspricht 11

Gruß
Thomas

[AHT]

Vielleicht kann Jörg mal testen, ob die Message genausogut funktioniert wie LockWindowUpdate. Ich habe den Verdacht, das tut es nicht - ist aber nur eine Vermutung..

[Bangkok]

Zitat von AHT

Vielleicht kann Jörg mal testen, ob die Message genausogut funktioniert wie LockWindowUpdate. Ich habe den Verdacht, das tut es nicht - ist aber nur eine Vermutung..

Nach meiner Erfahrung arbeitet die Message nicht so gut, vor allem wenn eine große Datenmenge eingeladen wird, versagt sie, das Update erfolgt etwas seltener als ohne Message, wird aber nicht vollständig unterdrückt. Deshalb verwende ich nur noch Lockwindowupdate()

[AHT]

Der Repaint scheint mit LockWindowUpdate auch sicherer zu funktionieren.

[ts-soft]

siehe MSDN: http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

The purpose of the LockWindowUpdate function is to permit drag/drop feedback to be drawn over a window without interference from the window itself. The intent is that the window is locked when feedback is drawn and unlocked when feedback is complete. LockWindowUpdate is not intended for general-purpose suppression of window redraw. Use the WM_SETREDRAW message to disable redrawing of a particular window.

Wäre die Message also die richtige Wahl. Wenn die nicht richtig funktioniert
liegts dann wohl am MessageHandling von XProfan.

Gruß
Thomas

[Bangkok]

Ich denke mal, wenn z.B. 1000 Datensätze eingelesen werden müssen wirkt die Message nach ein paar Einträgen scheinbar nicht mehr. Bei den paar Dateien, die man mit drag/drop einfügt aber schon, da es ja sehr schnell passiert. An das profansche Messagehandling glaube ich in diesem Fall nicht.

[ts-soft]

Da haste was mißverstanden, LockWindowUpdate ist nur und ausschließlich
für Drag'n Drop, um Dropsymbole über einem Fenster darzustellen.
Für alles andere in der Art sollte man die Message nutzen.

Gruß
Thomas

(Mein Englisch ist zwar auch sch..sse, aber mein Translator funzt gut )

[JörgG]

...wollte trotzdem mal die sendmessage-variante durchspielen. Ist ja wirklich ganz nützlich zu wissen, welche der beiden Varianten für so einem Fall die bessere ist. Und jetzt bietet sich ja die Möglichkeit, wo ich eh am tüfteln bin...
aaaaber - ich krieg die ~SendMessage(LV&, %WM_SETREDRAW, 0, 0) nicht zum laufen Muss ich da vorher noch was definieren? Steh jetzt iwie auf 'm Schlauch....
Gruß Jörg

[ts-soft]

$H Windows.ph

~SendMessage(LV&, 11, 0, 0)

Sollte funktionieren.

// edit

@SendMessage(LV&, 11, 0, 0)

sollte eigentlich reichen