Einzelnen Beitrag anzeigen

Benutzerbild von Flocke
Flocke

Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#9

Re: 2 TEdits synchron scrollen

  Alt 15. Jun 2005, 18:04
Pnt ist TPoint der die virtuellen Koordinaten der linken oberen Fensterecke des RichEdit in Relation zur linken oberen Ecke des Dokuments enthält. Stell dir dazu das Dokument z.B. als riesige Bitmap vor; dann ist der Punkt (Pnt.x, Pnt.y) der Punkt in der Bitmap, der in der linken oberen Fensterecke des RichEdit angezeigt wird.

Synchronisierung zweier RichEdits:

Delphi-Quellcode:
procedure Sync;
var x: TPoint;
begin
  GetRichEditScrollPos(RichEdit1, x);
  SetRichEditScrollPos(RichEdit2, x);
end;
Dieser Code würde die links oben angezeigte Ecke (die Scrollposition) von RichEdit2 auf die Position von RichEdit1 setzen. In deinem Beispiel wäre RichEdit2 die Vorgabe und RichEdit1 wäre das Eingabefenster.
Volker
  Mit Zitat antworten Zitat