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

* fix bug #1579

Browse Source
This commit is contained in:
pierre 2001-09-12 09:31:42 +00:00
parent 59ed71b878
commit c8aae3d4b4
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/weditor.pas
View File

@ -2484,6 +2484,9 @@ end;
procedure TCustomCodeEditor.Lock; procedure TCustomCodeEditor.Lock;
begin begin
Inc(ELockFlag); Inc(ELockFlag);
{$ifdef FVISION}
Inc(LockUpdateScreen);
{$endif FVISION}
end; end;
procedure TCustomCodeEditor.UnLock; procedure TCustomCodeEditor.UnLock;
@ -2493,6 +2496,9 @@ begin
Bug('negative lockflag',nil) Bug('negative lockflag',nil)
else else
{$endif DEBUG} {$endif DEBUG}
{$ifdef FVISION}
Dec(LockUpdateScreen);
{$endif FVISION}
Dec(ELockFlag); Dec(ELockFlag);
if (ELockFlag>0) then if (ELockFlag>0) then
Exit; Exit;
@ -6937,7 +6943,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.4 2001-09-04 22:58:58 pierre Revision 1.5 2001-09-12 09:31:42 pierre
* fix bug 1579
Revision 1.4 2001/09/04 22:58:58 pierre
* fix highlight for 'i:=1to' * fix highlight for 'i:=1to'
Revision 1.3 2001/08/12 00:06:49 pierre Revision 1.3 2001/08/12 00:06:49 pierre