Einzelnen Beitrag anzeigen

SearchBot

Registriert seit: 27. Jun 2004
Ort: N-W vom Bodensee
313 Beiträge
 
Delphi 12 Athens
 
#2

[gelöst] SynEdit: oberste Zeile im sichtbaren Bereich?

  Alt 18. Mai 2018, 13:51
Ok,

habs schon selber rausbekommen.
Die Komponenten zeigt beim scrollen ja so einen Hint an - also diesen Quelltext gesucht und übernommen

Delphi-Quellcode:
 with SynEdit1 do begin
  Label1.Caption:=inttostr(RowToLine(TopLine));
  Label2.Caption:=inttostr(RowToLine(TopLine + Min(LinesInWindow, DisplayLineCount-TopLine)));
 end;
Für
Code:
Min()
wird die unit
Code:
math
benötigt.

Problem gelöst
  Mit Zitat antworten Zitat