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

MG: fixed notebook client area, send messages and minor bugs

Browse Source 
git-svn-id: trunk@1877 -
This commit is contained in:
lazarus 2002-08-17 23:39:29 +00:00
parent 5a35618d19
commit d014f48d44
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -4931,10 +4931,6 @@ begin
ParentControl:=ParentControl.Parent; ParentControl:=ParentControl.Parent;
end; end;
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 if Msg=LM_GtkPAINT then begin
// convert LM_GtkPAINT to LM_PAINT // convert LM_GtkPAINT to LM_PAINT
AMessage.Msg := LM_PAINT; AMessage.Msg := LM_PAINT;
@ -6327,6 +6323,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.120 2002/09/06 11:33:36 lazarus
MG: added jitform error messagedlg MG: added jitform error messagedlg