[JVCL-Checkins] SF.net SVN: jvcl:[13443] trunk/jvcl/run

[<ah...@us...>]

Revision: 13443
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13443&view=rev
Author:   ahuser
Date:     2012-09-24 14:13:03 +0000 (Mon, 24 Sep 2012)
Log Message:
-----------
Removed direct uses of "Themes". Always go through JvThemes that is also available in Delphi 6.

Modified Paths:
--------------
    trunk/jvcl/run/JvPanel.pas
    trunk/jvcl/run/JvToolEdit.pas

Modified: trunk/jvcl/run/JvPanel.pas
===================================================================
--- trunk/jvcl/run/JvPanel.pas	2012-09-24 14:02:55 UTC (rev 13442)
+++ trunk/jvcl/run/JvPanel.pas	2012-09-24 14:13:03 UTC (rev 13443)
@@ -47,7 +47,7 @@
   {$ENDIF UNITVERSIONING}
   Windows, Messages,
   SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
-  JvTypes, JvThemes, JvExtComponent, JvExControls,
+  JvTypes, JvExtComponent, JvExControls,
   JvHotTrackPersistent;
 
 type
@@ -364,8 +364,8 @@
 uses
   {$IFDEF HAS_UNIT_SYSTEM_UITYPES}
   System.UITypes,
-  {$ENDIF}
-  Types, {$IFDEF COMPILER7_UP}Themes,{$ENDIF}
+  {$ENDIF HAS_UNIT_SYSTEM_UITYPES}
+  Types, JvThemes,
   JvJCLUtils, JvJVCLUtils, JvResources;
 
 const

Modified: trunk/jvcl/run/JvToolEdit.pas
===================================================================
--- trunk/jvcl/run/JvToolEdit.pas	2012-09-24 14:02:55 UTC (rev 13442)
+++ trunk/jvcl/run/JvToolEdit.pas	2012-09-24 14:13:03 UTC (rev 13443)
@@ -1140,7 +1140,7 @@
 uses
   RTLConsts, Math, MaskUtils,
   MultiMon,
-  {$IFDEF COMPILER16_UP}
+  {$IFDEF COMPILER16_UP} // VCL-Styles support
   Vcl.Themes,
   {$ENDIF COMPILER16_UP}
   JclFileUtils, JclStrings,
@@ -2722,7 +2722,7 @@
 begin
   FButton.Flat := Value;
   {$IFDEF JVCLThemesEnabled}
-  { When XP Themes are enabled, ButtonFlat = False, GlyphKind = gkDropDown then
+  { If XP Themes are enabled, ButtonFlat = False, GlyphKind = gkDropDown then
     the glyph is the default themed dropdown button. When ButtonFlat = True, we
     can't use that default dropdown button, so we have to recreate the glyph
     in this special case }

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