Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7129/Source/Core
Modified Files:
InstantPresentation.pas
Log Message:
Bug fixing for D5: Application.HandleException
Index: InstantPresentation.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** InstantPresentation.pas 8 May 2005 20:23:11 -0000 1.17
--- InstantPresentation.pas 5 Jun 2005 20:30:00 -0000 1.18
***************
*** 637,642 ****
uses
! {$IFDEF MSWINDOWS}
! //Forms,
{$ENDIF}
{$IFDEF LINUX}
--- 637,642 ----
uses
! {$IFDEF VER130}
! Forms,
{$ENDIF}
{$IFDEF LINUX}
***************
*** 4129,4134 ****
--- 4129,4138 ----
Exposer.DataEvent(deFieldChange, Integer(Field));
except
+ {$IFDEF VER130}
+ Application.HandleException(Self);
+ {$ELSE}
if Assigned(Classes.ApplicationHandleException) then
Classes.ApplicationHandleException(Self);
+ {$ENDIF}
end;
inherited Destroy;
|
