paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 08:58:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed TSynEdit.RowToScreenRow

Browse Source 
git-svn-id: trunk@8726 -
This commit is contained in:
mattias 2006-02-10 12:47:41 +00:00
parent e76dfaf3bd
commit 84cc6fc33f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synedit.pp
View File

@ -1185,15 +1185,17 @@ begin
end;
function TCustomSynEdit.RowToScreenRow(PhysicalRow: integer): integer;
// returns 0 for lines above visible screen (<TopLine)
// and returns LinesInWindow+1 for lines below visible screen
// returns -1 for lines above visible screen (<TopLine)
// 0 for the first line
// LinesInWindow-1 for the last
// and returns LinesInWindow for lines below visible screen
var
i: LongInt;
begin
if PhysicalRow<TopLine then exit(-1);
Result:=0;
if PhysicalRow<TopLine then exit;
i:=TopLine;
while (Result<=LinesInWindow) and (i<PhysicalRow) do begin
while (Result<LinesInWindow) and (i<PhysicalRow) do begin
if (i>Lines.Count)
or (not TSynEditStringList(fLines).Folded[i-1]) then
inc(Result);