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

lcl: less debugging

Browse Source 
git-svn-id: trunk@52559 -
This commit is contained in:
mattias 2016-06-22 14:35:21 +00:00
parent 03e749be43
commit 36b72c350c
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -4500,7 +4500,6 @@ procedure TCustomGrid.WMKillFocus(var message: TLMKillFocus);
begin
if csDestroying in ComponentState then
exit;
debugln(['TCustomGrid.WMKillFocus BBB1 ',DbgSName(Self)]);
{$ifdef dbgGrid}
DbgOut('*** grid.WMKillFocus, FocusedWnd=%x WillFocus=',[Message.FocusedWnd]);
if EditorMode and (Message.FocusedWnd = FEditor.Handle) then
@ -4519,7 +4518,6 @@ end;
procedure TCustomGrid.WMSetFocus(var message: TLMSetFocus);
begin
debugln(['TCustomGrid.WMSetFocus BBB2 ',DbgSName(Self)]);
{$ifdef dbgGrid}
DbgOut('*** grid.WMSetFocus, FocusedWnd=', dbgs(Message.FocusedWnd),'[',dbgs(pointer(Message.FocusedWnd)),'] ');
if EditorMode and (Message.FocusedWnd = FEditor.Handle) then