paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids, fix check for focused

Browse Source 
git-svn-id: trunk@42985 -
This commit is contained in:
jesus 2013-09-27 12:59:45 +00:00
parent 7f4caeb374
commit c9715d9f6b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -28,7 +28,7 @@ unit Grids;
{$mode objfpc}{$H+}
{$define NewCols}
{$define DbgGrid}
interface
uses
@ -5966,7 +5966,7 @@ begin
DebugLn('Mouse was in ', dbgs(FGCache.HotGridZone));
{$ENDIF}
WasFocused := Focused;
WasFocused := Focused or EditorMode;
if not WasFocused then begin
SetFocus;
if not focused then begin