paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 01:32:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: fixed updating gutter when codefolding ranges changed

Browse Source 
git-svn-id: trunk@10412 -
This commit is contained in:
mattias 2007-01-10 11:17:02 +00:00
parent e8fa91fe05
commit 40a2432420
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/synedit/synedit.pp
View File

@ -2042,7 +2042,9 @@ begin
if Visible and HandleAllocated then
if (FirstLine = -1) and (LastLine = -1) then begin
rcInval := ClientRect;
{$IFNDEF SYN_LAZARUS}
rcInval.Left := fGutterWidth;
{$ENDIF}
if sfLinesChanging in fStateFlags then
UnionRect(fInvalidateRect, fInvalidateRect, rcInval)
else
@ -2060,12 +2062,14 @@ begin
);
{ any line visible? }
if (LastLine >= FirstLine) then begin
rcInval := Rect(fGutterWidth,
fTextHeight * {$IFDEF SYN_LAZARUS}RowToScreenRow(FirstLine)
{$ELSE}(FirstLine - TopLine){$ENDIF},
ClientWidth{$IFDEF SYN_LAZARUS}-ScrollBarWidth{$ENDIF},
fTextHeight * {$IFDEF SYN_LAZARUS}(RowToScreenRow(LastLine)+1)
{$ELSE}(LastLine - TopLine + 1){$ENDIF});
{$IFDEF SYN_LAZARUS}
rcInval := Rect(0,fTextHeight * RowToScreenRow(FirstLine),
ClientWidth-ScrollBarWidth,
fTextHeight * (RowToScreenRow(LastLine)+1));
{$ELSE}
rcInval := Rect(fGutterWidth,fTextHeight * (FirstLine - TopLine),
ClientWidth, fTextHeight * (LastLine - TopLine + 1));
{$ENDIF}
if sfLinesChanging in fStateFlags then
UnionRect(fInvalidateRect, fInvalidateRect, rcInval)
else
@ -2393,7 +2397,7 @@ begin
and (Y >= 0)
and (Y < ClientHeight{$IFDEF SYN_LAZARUS}-ScrollBarWidth{$ENDIF})
then begin
if Cursor <> crHandPoint then
if (Cursor <> crHandPoint) or (not (ssCtrl in Shift)) then
Cursor := crIBeam;
end
else

4
components/synedit/synhighlighterpas.pp
View File

@ -698,6 +698,10 @@ begin
Result := tkKey;
fRange := rsAsm;
fAsmStart := True;
{$IFDEF SYN_LAZARUS}
StartPascalCodeFoldBlock(cfbtBeginEnd);
//debugln('TSynPasSyn.Func37 BEGIN ',dbgs(ord(TopPascalCodeFoldBlockType)),' LineNumber=',dbgs(fLineNumber),' ',dbgs(MinimumCodeFoldBlockLevel),' ',dbgs(CurrentCodeFoldBlockLevel));
{$ENDIF}
end else Result := tkIdentifier;
end;