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

SynEdit: fixed possible highlighter crash, introduced in r 34252

Browse Source 
git-svn-id: trunk@34522 -
This commit is contained in:
martin 2011-12-30 23:10:16 +00:00
parent 2f1c965db2
commit ebfc7112a5
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synedit.pp
View File

@ -5283,6 +5283,7 @@ begin
fMarkupHighCaret.Highlighter := nil; fMarkupHighCaret.Highlighter := nil;
fMarkupWordGroup.Highlighter := nil; fMarkupWordGroup.Highlighter := nil;
FFoldedLinesView.Highlighter := nil; FFoldedLinesView.Highlighter := nil;
FTextArea.Highlighter := nil;
{begin} //mh 2000-10-01 {begin} //mh 2000-10-01
if not (csDestroying in ComponentState) then begin if not (csDestroying in ComponentState) then begin
RecalcCharExtent; RecalcCharExtent;

4
components/synedit/test/testbase.pas
View File

@ -164,7 +164,9 @@ end;
procedure TTestSynEdit.SimulatePaintText; procedure TTestSynEdit.SimulatePaintText;
begin begin
PaintTextLines(Rect(0,0,1000,1000), 0, Lines.Count - 1, 1, 100); Canvas.ClipRect := Rect(0,0,1000,1000);
Paint;
//PaintTextLines(Rect(0,0,1000,1000), 0, Lines.Count - 1, 1, 100);
end; end;
{ TTestBase } { TTestBase }