Updated Vcl Styles Utils files.

Author: RRUZ

delphi-ide-theme-editor/Common/Vcl Styles Utils/AwesomeFont.RES

@@ -2,7 +2,7 @@
 //
 // Unit Vcl.Styles.Ext
 // unit for the VCL Styles Utils
-// http://code.google.com/p/vcl-styles-utils/
+// https://github.com/RRUZ/vcl-styles-utils/
 //
 // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License");
 // you may not use this file except in compliance with the License. You may obtain a copy of the
@@ -15,7 +15,7 @@
 // The Original Code is Vcl.Styles.Ext.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2012-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2012-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 //**************************************************************************************************
@@ -123,12 +123,13 @@ TSourceInfo = record
  ///	<summary>Force to reload a modified vcl style
  ///	</summary>
  {$ENDREGION}
- class procedure ReloadStyle(const Name: string);
+ class procedure ReloadStyle(const StyleName : string);
  {$REGION 'Documentation'}
  ///	<summary>remove a vcl style
  ///	</summary>
  {$ENDREGION}
- class procedure RemoveStyle(const Name: string);
+ class procedure RemoveStyle(const StyleName : string);
+ class function StyleLoaded(const StyleName : string) : Boolean;
  end;
 
 const
@@ -382,54 +383,60 @@ class procedure TStyleManagerHelper.RefreshCurrentTheme;
 end;
 
 
-class procedure TStyleManagerHelper.ReloadStyle(const Name: string);
+class procedure TStyleManagerHelper.ReloadStyle(const StyleName : string);
 var
  LStyle: TCustomStyleServices;
  t : TPair<string, TStyleManager.TSourceInfo>;
 begin
 
- if SameText(Name, ActiveStyle.Name, loUserLocale) then
+ if SameText(StyleName, ActiveStyle.Name, loUserLocale) then
  SetStyle(SystemStyle);
 
  for LStyle in Styles do
- if SameText(Name, LStyle.Name, loUserLocale) then
+ if SameText(StyleName, LStyle.Name, loUserLocale) then
  begin
  LStyle.Free;
  Styles.Remove(LStyle);
  end;
 
  for t in Self.FRegisteredStyles do
- if SameText(Name, t.Key, loUserLocale) then
+ if SameText(StyleName, t.Key, loUserLocale) then
  if (t.Value.Data<>nil) then
  begin
  TStream(t.Value.Data).Position:=0;
  break;
  end;
 
- SetStyle(Name);
+ SetStyle(StyleName);
 end;
 
-class procedure TStyleManagerHelper.RemoveStyle(const Name: string);
+class procedure TStyleManagerHelper.RemoveStyle(const StyleName: string);
 var
  LStyle: TCustomStyleServices;
  t : TPair<string, TStyleManager.TSourceInfo>;
 begin
- if SameText(Name, ActiveStyle.Name, loUserLocale) then
+ if SameText(StyleName, ActiveStyle.Name, loUserLocale) then
  SetStyle(SystemStyle);
 
  for LStyle in Styles do
- if SameText(Name, LStyle.Name, loUserLocale) then
+ if SameText(StyleName, LStyle.Name, loUserLocale) then
  begin
  LStyle.Free;
  Styles.Remove(LStyle);
  end;
 
  for t in Self.FRegisteredStyles do
- if SameText(Name, t.Key, loUserLocale) then
+ if SameText(StyleName, t.Key, loUserLocale) then
  Self.FRegisteredStyles.Remove(t.Key);
 
 end;
 
+class function TStyleManagerHelper.StyleLoaded(
+ const StyleName: string): Boolean;
+begin
+ Result := TStyleManager.Style[StyleName] <> nil;
+end;
+
 class function TStyleManagerHelper._GetStyles: TList<TCustomStyleServices>;
 begin
  Result:=TStyleManager.GetStyles;

delphi-ide-theme-editor/Common/Vcl Styles Utils/AwesomeFont_zip.RES

@@ -2,7 +2,7 @@
 //
 // Unit Vcl.Styles.Fixes
 // unit for the VCL Styles Utils
-// http://code.google.com/p/vcl-styles-utils/
+// https://github.com/RRUZ/vcl-styles-utils/
 //
 // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License");
 // you may not use this file except in compliance with the License. You may obtain a copy of the

delphi-ide-theme-editor/Common/Vcl Styles Utils/Vcl.Styles.Ext.pas

@@ -2,7 +2,7 @@
 //
 // Unit Vcl.Styles.FormStyleHooks
 // unit for the VCL Styles Utils
-// http://code.google.com/p/vcl-styles-utils/
+// https://github.com/RRUZ/vcl-styles-utils/
 //
 // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License");
 // you may not use this file except in compliance with the License. You may obtain a copy of the
@@ -15,7 +15,7 @@
 // The Original Code is Vcl.Styles.FormStyleHooks.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2012-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2012-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 //**************************************************************************************************
@@ -134,6 +134,7 @@ TFormStyleHookHelper = class helper for TFormStyleHook
  procedure SetFChangeSizeCalled(const Value: Boolean);
  function GetFRegion: HRGN;
  procedure SetFRegion(const Value: HRGN);
+ function GetForm: TCustomForm;
  public
  property _FCloseButtonRect : TRect read GetFCloseButtonRect Write SetFCloseButtonRect;
  property _FMaxButtonRect : TRect read GetFMaxButtonRect Write SetFMaxButtonRect;
@@ -151,11 +152,15 @@ TFormStyleHookHelper = class helper for TFormStyleHook
  property _FPressedButton: Integer read GetFPressedButton;
  property _FHotButton: Integer read GetFHotButton;
  property _FRegion: HRGN read GetFRegion write SetFRegion;
+ property _Form : TCustomForm read GetForm;
  procedure MainMenuBarHookPaint(Canvas: TCanvas);
  function _GetIconFast: TIcon;
  procedure _ChangeSize;
  function _NormalizePoint(P: TPoint): TPoint;
  function _GetHitTest(P: TPoint): Integer;
+ function _GetBorderSizeAddr : Pointer;
+ function _GetRegionAddr : Pointer;
+
  end;
 
  function RectVCenter(var R: TRect; Bounds: TRect): TRect;
@@ -1291,6 +1296,11 @@ function TFormStyleHookHelper.GetFMinButtonRect: TRect;
  result:=Self.FMinButtonRect;
 end;
 
+function TFormStyleHookHelper.GetForm: TCustomForm;
+begin
+ Result:=Self.Form;
+end;
+
 function TFormStyleHookHelper.GetFPressedButton: Integer;
 begin
  Result:=Self.FPressedButton;
@@ -1392,6 +1402,15 @@ function TFormStyleHookHelper._GetBorderSize: TRect;
  Result:=Self.GetBorderSize;
 end;
 
+function TFormStyleHookHelper._GetBorderSizeAddr: Pointer;
+var
+ MethodAddr: function : TRect of object;
+begin
+ MethodAddr := Self.GetBorderSize;
+ Result := TMethod(MethodAddr).Code;
+end;
+
+
 function TFormStyleHookHelper._GetHitTest(P: TPoint): Integer;
 begin
  result:= Self.GetHitTest(P);
@@ -1402,6 +1421,15 @@ function TFormStyleHookHelper._GetIconFast: TIcon;
  Result:=Self.GetIconFast;
 end;
 
+function TFormStyleHookHelper._GetRegionAddr: Pointer;
+var
+ MethodAddr: function : HRgn of object;
+begin
+ MethodAddr := Self.GetRegion;
+ Result := TMethod(MethodAddr).Code;
+end;
+
+
 function TFormStyleHookHelper._NormalizePoint(P: TPoint): TPoint;
 begin
  Result:=Self.NormalizePoint(P);