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

MG: added jitform error messagedlg

Browse Source 
git-svn-id: trunk@1876 -
This commit is contained in:
lazarus 2002-08-17 23:39:28 +00:00
parent 62a39fb029
commit 5a35618d19
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4931,6 +4931,10 @@ 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;
@ -6323,6 +6327,9 @@ end;
{ =============================================================================
$Log$
Revision 1.120 2002/09/06 11:33:36 lazarus
MG: added jitform error messagedlg
Revision 1.119 2002/09/03 08:07:22 lazarus
MG: image support, TScrollBox, and many other things from Andrew