From d014f48d4428024917f746b82cb0922e1d839cdc Mon Sep 17 00:00:00 2001 From: lazarus Date: Sat, 17 Aug 2002 23:39:29 +0000 Subject: [PATCH] MG: fixed notebook client area, send messages and minor bugs git-svn-id: trunk@1877 - --- lcl/interfaces/gtk/gtkwinapi.inc | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc index 2ddfb6fb8a..652b8e2dcc 100644 --- a/lcl/interfaces/gtk/gtkwinapi.inc +++ b/lcl/interfaces/gtk/gtkwinapi.inc @@ -4931,10 +4931,6 @@ begin ParentControl:=ParentControl.Parent; end; end;} - {if (Target is TPage) or (Target is TNoteBook) then begin - writeln('TGTKObject.SendMessage ',TControl(Target).Name,':',Target.ClassName, - ' Handle=',HexStr(Cardinal(HandleWnd),8)); - end;} if Msg=LM_GtkPAINT then begin // convert LM_GtkPAINT to LM_PAINT AMessage.Msg := LM_PAINT; @@ -6327,6 +6323,9 @@ end; { ============================================================================= $Log$ + Revision 1.121 2002/09/06 15:57:36 lazarus + MG: fixed notebook client area, send messages and minor bugs + Revision 1.120 2002/09/06 11:33:36 lazarus MG: added jitform error messagedlg