Sychrone Listboxen

[tomkupitz]

Hallo,

zwei LB sollen synchron gescrollt werden. Im Tool http://www.screensoft.de/txtc.zip ist zu sehen wenn in der Vorschau (Mitte) gescrollt wird und beide LB nachgezogen werden sollen hängt die 2. LB etwas hinterher. Warum?

Code:

procedure TMainForm.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  TopLine:=...

    //

  SendMessage(ListBox1.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), TopLine), 0);
  Application.ProcessMessages;
  SendMessage(ListBox2.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), TopLine), 0);
end;

Danke und beste Grüße

[Uwe Raabe]

Na ja, das ist doch offensichtlich. Zwischen den beiden SendMessage-Aufrufen für ListBox1 und ListBox2 sorgt das Application.ProcessMessages für ein Refresh der ListBox1 bevor ListBox2 überhaupt den Befehl zum Scrollen bekommen hat.

[tomkupitz]

Wenn ich Application.ProcessMessages rausmache dann hängt LB1.

[Uwe Raabe]

Ohne konkretes Beispiel-Projekt kann ich auch nur spekulieren: Ändere mal die beiden SendMessage-Aufrufe in PostMessage.

[Delphi.Narium]

Bei mir kann ich keinerlei Verzögerung bei der Synchronisation in Deinem Programm feststellen.

[hoika]

Hallo,
ich würde das

Application.ProcessMessages;

einfach als letzten Befehl aufrufen und nicht zwischen den beiden ListBox-Befehlen.

[Delphi.Narium]

Zitat:

Zitat von hoika (Beitrag 1489694)

Hallo,
ich würde das

Application.ProcessMessages;

einfach als letzten Befehl aufrufen und nicht zwischen den beiden ListBox-Befehlen.

Post #3?

[tomkupitz]

Application.ProcessMessages; zuletzt: In dem Fall hängt LB1 etwas hinterher. Ich glaube ich muss damit erstmal leben:?.

[KodeZwerg]

Bevor ich ein Send-/Post-/Message anwenden würde, probiere ich zuerst ob das Control ein Perform beherrscht.
Bevor ich ein Application.ProcessMessages aufrufe, probiere ich ob es ein Begin-/End-/Update beherrscht.

Ungetestet meine Theorie:

Zitat:

Zitat von tomkupitz (Beitrag 1489669)

Code:

procedure TMainForm.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  TopLine:=...

    //

  Listbox1.BeginUpdate;
  Listbox2.BeginUpdate;
  Listbox1.Perform(WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), TopLine);
  Listbox2.Perform(WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), TopLine);
  Listbox1.EndUpdate;
  Liatbox2.EndUpdate;
end;

Sag ob es funktioniert und ob es was gebracht hat.

[tomkupitz]

Keine Änderung...