[JVCL-Checkins] SF.net SVN: jvcl:[12298] trunk/jvcl/run/JvDesignSurface.pas

[<ob...@us...>]

Revision: 12298
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12298&view=rev
Author:   obones
Date:     2009-04-29 17:11:26 +0000 (Wed, 29 Apr 2009)

Log Message:
-----------
C5/D5 compatibility

Modified Paths:
--------------
    trunk/jvcl/run/JvDesignSurface.pas

Modified: trunk/jvcl/run/JvDesignSurface.pas
===================================================================
--- trunk/jvcl/run/JvDesignSurface.pas	2009-04-29 17:02:25 UTC (rev 12297)
+++ trunk/jvcl/run/JvDesignSurface.pas	2009-04-29 17:11:26 UTC (rev 12298)
@@ -884,7 +884,11 @@
               if PosChangedHandle = Control.Handle then
               begin
                 if not (csDestroyingHandle in Control.ControlState) then
+                  {$IFDEF DELPHI6_UP}
                   Control.UpdateBounds;
+                  {$ELSE}
+                  SendMessage(Control.Handle, AMsg.Msg, AMsg.wParam, AMsg.lParam);
+                  {$ENDIF DELPHI6_UP}
 
                 UpdateDesigner;
               end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.