[Wxdsgn-svn] SF.net SVN: wxdsgn: [777] trunk/wxdevcpp/source/packages/devDockStyle.pas

[<lo...@us...>]

Revision: 777
          http://svn.sourceforge.net/wxdsgn/?rev=777&view=rev
Author:   lowjoel
Date:     2006-12-27 06:45:56 -0800 (Wed, 27 Dec 2006)

Log Message:
-----------
Compile fix.

Modified Paths:
--------------
    trunk/wxdevcpp/source/packages/devDockStyle.pas

Modified: trunk/wxdevcpp/source/packages/devDockStyle.pas
===================================================================
--- trunk/wxdevcpp/source/packages/devDockStyle.pas	2006-12-27 11:51:48 UTC (rev 776)
+++ trunk/wxdevcpp/source/packages/devDockStyle.pas	2006-12-27 14:45:56 UTC (rev 777)
@@ -264,7 +264,7 @@
   ARect: TRect;
   ButtonState: Integer;
   ThemeData: HTHEME;
-  AZone: TJvDockVSNETZone;
+  AZone: TJvDockVSNETZoneAccess;
   ADockClient: TJvDockClient;
 begin
   if (not IsThemeActive) or (not TdevDockStyle(DockStyle).NativeDocks) then
@@ -274,7 +274,7 @@
   end;
 
   ThemeData := OpenThemeData(DockSite.Handle, 'WINDOW');
-  AZone := TJvDockVSNETZone(Zone);
+  AZone := TJvDockVSNETZoneAccess(Zone);
   if AZone <> nil then
   begin
     ADockClient := FindDockClient(Zone.ChildControl);


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