paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 13:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids, fixes editor visible when grid is fixed

Browse Source 
git-svn-id: trunk@11819 -
This commit is contained in:
jesus 2007-08-15 00:39:54 +00:00
parent f2b1ebcd42
commit 86b7670b28
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/grids.pas
View File

@ -5902,10 +5902,16 @@ procedure TCustomGrid.FixPosition;
topleftChanged;
end;
end;
procedure FixEditor;
begin
if FixedGrid and EditorMode then
EditorMode:=False;
end;
begin
FixTopleft;
FixSelection;
CheckPosition;
FixEditor;
UpdateSelectionRange;
VisualChange;
end;