Listview neu zeichnen

UC-Chewie · Beiträge: 531 WinXP D5 Ent

Ich zeichne in ein ListView mithilfe der GDI, um das Selektieren von Spalten und Spaltenteilen zu simulieren. Es handelt sich hierbei um ein nonVCL-ListView)
Nun will ich dieses Gezeichnete wieder entfernen, doch wie mach ich das?
Wenn ich eine WM_PAINT-Message an das ListView schicke, bekomme ich eine AccessViolation, wenn ich ListView_RedrawItems aufrufe, dann krieg ich ein Flimmerkonzert.

Schade, dass es hier keine Anhänge gibt, aber ich such mir mal einen Server und lad den Code drauf (Er ist etwas länger, da es eine ganze Klasse ist). Weiß nicht, ob man ihn braucht, aber schaden kanns nicht.

Die Klasse: www.trabi2003.de/stuff/HexListView.pas
Ein Testprojekt: www.trabi2003.de/stuff/HexListView.EXE

_________________
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind

Ehemaliges Mitglied Erhaltene Danke: 1

InvalidateRect?

UC-Chewie · Beiträge: 531 WinXP D5 Ent

Da blinkt jetzt zwar nicht die ganze Zeile, sondern nur das, was ich in eine Spalte gezeichnet hab.
Also wieder nix.

_________________
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind

lemming · Beiträge: 470 Mac OS 10.3.1 Delphi 6 Pro, Kylix 3

Repaint ?

UC-Chewie · Beiträge: 531 WinXP D5 Ent

Repaint? Wo gibts das? Bestimmt nicht in der GDI.

_________________
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind

Tana´Ri · Beiträge: 230

markieren

Delphi-Quelltext

1:
2:
3:

listview.beginupdate;
 Change;
listview.endupdate;

gibs da diese fkt net ?

Moderiert von Klabautermann: Delphi-Tags hinzugefügt.

Zitat:

BOOL ListView_Update(
HWND hwnd,
int iItem
);
// or
lResult = SendMessage( // returns LRESULT in lResult (HWND) hWndControl, // handle to destination control (UINT) LVM_UPDATE, // message ID (WPARAM) wParam, // = (WPARAM) (int) iItem; (LPARAM) lParam // = 0; not used, must be zero );

_________________
mfg
Tana´Ri

UC-Chewie · Beiträge: 531 WinXP D5 Ent

Hey, super, mit ListView_Update klappts! Leider flackert da das ganze etwas, aber das krieg ich vielleicht auch noch weg. Vielen Dank!

_________________
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind

Tana´Ri · Beiträge: 230

lass zeichnen erst wieder zu wenn deine updates durch sind, das könnte das flackern verhindern

in WndProc des Listview

if message.msg = WM_PAINT then
if updating then // <- EXIT or message löschen

_________________
mfg
Tana´Ri

UC-Chewie · Beiträge: 531 WinXP D5 Ent

OK, aber Updating gehört ja zur VCL, ich mach das genze aber ohne die VCL, hab also kein Updating.

_________________
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind

Tana´Ri · Beiträge: 230

mein gedanke war der, selbst nen bool dazu zu verwenden sobald du mit Listview_update() beginnst, also direkt davor diese bool auf true setzen und danch auf false, sodas incoming paint messages während dessen von dir neutralisiert werden, insofern das funzt ... ich würds halt so mal testen.

_________________
mfg
Tana´Ri

UC-Chewie · Beiträge: 531 WinXP D5 Ent

Ne, das macht das ganze noch schlimmer.

Die Nachrichtenschleife des ListViews sieht so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

//[...]
case uMsg of
    WM_PAINT:
      begin
        if Parent.FLVUpdating then Exit;  //bei diesem Befehl flimmert die ganze Zeile
        Result  := CallWindowProc(OldListViewWndProc, hwnd, uMsg, wParam, lParam);
        if Parent.FSelCol.Selected then
        begin
          Rect := Parent.GetSubItemRect(Parent.FSelCol.iItem, Parent.FSelCol.iSubItem)^;
          Parent.ColDrawRoutine(Rect, Parent.FSelCol.iItem, Parent.FSelCol.iSubItem);
        end;
      end;

FLVUpdating wird so gesetzt:

markieren

Delphi-Quelltext

1:
2:
3:

FLVUpdating := True;
  ListView_Update(ListViewHandle, FSelCol.iItem);
  FLVUpdating := False;

_________________
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind

Ehemaliges Mitglied Erhaltene Danke: 1

Hast du mal WM_SETREDRAW angeschaut? Das entspricht dem BeginUpdate/EndUpdate der VCL und blockiert die Bildschirmausgabe (über einen der beiden Params - sorry, hab nichts zum Nachschlagen hier). Das Flimmern müsstest du damit evtl. beseitigen können.

UC-Chewie · Beiträge: 531 WinXP D5 Ent

Danke, aber das ändert auch nix.

_________________
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme