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

+ Added exceptionhandler while delivering messages

Browse Source 
git-svn-id: trunk@2657 -
This commit is contained in:
marc 2002-08-17 23:41:33 +00:00
parent a32df47e0a
commit 7a9c21fc36
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/gtk/gtkproc.inc
View File

@ -1170,15 +1170,14 @@ begin
if (TLMessage(AMessage).Msg=LM_PAINT)
or (TLMessage(AMessage).Msg=LM_GtkPaint) then
CurrentSentPaintMessageTarget:=TObject(Target);
if TObject(Target) is TControl then
begin
TControl(Target).WindowProc(TLMessage(AMessage));
end
else
begin
TObject(Target).Dispatch(TLMessage(AMessage));
try
if TObject(Target) is TControl
then TControl(Target).WindowProc(TLMessage(AMessage))
else TObject(Target).Dispatch(TLMessage(AMessage));
except
Application.HandleException(nil);
end;
Result := TLMessage(AMessage).Result;
CurrentSentPaintMessageTarget:=nil;
end;
@ -4152,6 +4151,9 @@ end;
{ =============================================================================
$Log$
Revision 1.183 2003/06/18 00:10:38 marc
+ Added exceptionhandler while delivering messages
Revision 1.182 2003/06/13 21:08:53 mattias
moved TColorButton to dialogs.pp