DIC -improved performance in load of project options form

DIC -improved performance in load of DIC options form Fixed issue RRUZ#78

Author: RRUZ

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

@@ -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.
 //
 //**************************************************************************************************

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

@@ -14,7 +14,7 @@
 //
 //
 // Portions created by Mahdi Safsafi [SMP3] e-mail SMP@LIVE.FR
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2013-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2013-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 // **************************************************************************************************

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

@@ -14,7 +14,7 @@
 //
 //
 // Portions created by Mahdi Safsafi [SMP3] e-mail SMP@LIVE.FR
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2013-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2013-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 // **************************************************************************************************

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

@@ -13,7 +13,7 @@
 // and limitations under the License.
 //
 // Portions created by Mahdi Safsafi [SMP3] e-mail SMP@LIVE.FR
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2013-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2013-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 // **************************************************************************************************

delphi-ide-theme-editor/IDE PlugIn/Colorizer.Hook.Forms.pas

@@ -14,7 +14,7 @@
 // The Original Code is Colorizer.HookForms.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 //**************************************************************************************************

delphi-ide-theme-editor/IDE PlugIn/Colorizer.Hooks.GDIPOBJ.pas

@@ -14,7 +14,7 @@
 // The Original Code is Colorizer.Hooks.GDIPOBJ.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 //**************************************************************************************************

delphi-ide-theme-editor/IDE PlugIn/Colorizer.Hooks.ThemedActnCtrls.pas

@@ -14,7 +14,7 @@
 // The Original Code is Colorizer.Hooks.ThemedActnCtrl.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 //**************************************************************************************************

delphi-ide-theme-editor/IDE PlugIn/Colorizer.Hooks.Windows.pas

@@ -14,7 +14,7 @@
 // The Original Code is Colorizer.Hooks.Windows.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 //**************************************************************************************************
@@ -538,8 +538,8 @@ function Detour_WinApi_ExtTextOutW(DC: HDC; X, Y: Integer; Options: Longint; Rec
 function Detour_WinApi_GetSysColor(nIndex: Integer): DWORD; stdcall;
 const
  SystemColor = $FF000000;
-var
- sCaller : string;
+//var
+// sCaller : string;
 begin
  if Assigned(TColorizerLocalSettings.Settings) and (TColorizerLocalSettings.Settings.Enabled) and Assigned(TColorizerLocalSettings.ColorMap) then
  begin
@@ -592,13 +592,13 @@ function Detour_WinApi_GetSysColor(nIndex: Integer): DWORD; stdcall;
  Exit(Trampoline_GetSysColor(nIndex));
  end;
 
- COLOR_BTNFACE :
- if (TColor(SystemColor or Cardinal(nIndex))<>TColorizerLocalSettings.ColorMap.Color) then
- begin
- sCaller := ProcByLevel(2);
- if SameText(sCaller, '') then
- Exit(ColorToRGB(TColorizerLocalSettings.ColorMap.Color));
- end;
+// COLOR_BTNFACE : don't need this for now
+// if (TColor(SystemColor or Cardinal(nIndex))<>TColorizerLocalSettings.ColorMap.Color) then
+// begin
+// sCaller := ProcByLevel(2);
+// if SameText(sCaller, '') then
+// Exit(ColorToRGB(TColorizerLocalSettings.ColorMap.Color));
+// end;
 
  end;
  end;
@@ -613,19 +613,21 @@ procedure InstallHooksWinAPI();
 begin
  Trampoline_DrawText := InterceptCreate(@Windows.DrawTextW, @Detour_WinApi_DrawText);
  Trampoline_DrawTextEx := InterceptCreate(@Windows.DrawTextEx, @Detour_WinApi_DrawTextEx);
- Trampoline_ExtTextOutW := InterceptCreate(@Windows.ExtTextOutW, @Detour_WinApi_ExtTextOutW);
+ Trampoline_ExtTextOutW := InterceptCreate(@Windows.ExtTextOutW, @Detour_WinApi_ExtTextOutW); //OK
 
  pOrgAddress := GetProcAddress(GetModuleHandle(user32), 'GetSysColor');
  if Assigned(pOrgAddress) then
  Trampoline_GetSysColor := InterceptCreate(pOrgAddress, @Detour_WinApi_GetSysColor);
 
+ pOrgAddress := GetProcAddress(GetModuleHandle(user32), 'DrawEdge');
+ if Assigned(pOrgAddress) then
+ Trampoline_DrawEdge := InterceptCreate(pOrgAddress, @Detour_WinApi_DrawEdge);
+//
+
 // pOrgAddress := GetProcAddress(GetModuleHandle(user32), 'DrawFrameControl');
 // if Assigned(pOrgAddress) then
 // Trampoline_DrawFrameControl := InterceptCreate(pOrgAddress, @Detour_WinApi_DrawFrameControl);
 
- pOrgAddress := GetProcAddress(GetModuleHandle(user32), 'DrawEdge');
- if Assigned(pOrgAddress) then
- Trampoline_DrawEdge := InterceptCreate(pOrgAddress, @Detour_WinApi_DrawEdge);
 end;
 
 procedure RemoveHooksWinAPI();
@@ -634,8 +636,8 @@ procedure RemoveHooksWinAPI();
  InterceptRemove(@Trampoline_DrawTextEx);
  InterceptRemove(@Trampoline_ExtTextOutW);
  InterceptRemove(@Trampoline_GetSysColor);
- //InterceptRemove(@Trampoline_DrawFrameControl);
  InterceptRemove(@Trampoline_DrawEdge);
+ //InterceptRemove(@Trampoline_DrawFrameControl);
 end;
 
 end.

delphi-ide-theme-editor/IDE PlugIn/Colorizer.OptionsDlg.pas

@@ -14,7 +14,7 @@
 // The Original Code is Colorizer.OptionsDlg.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 //**************************************************************************************************
@@ -72,6 +72,7 @@ constructor TFrameColorizer.Create(AOwner: TComponent);
 var
  LForm : TFormIDEColorizerSettings;
 begin
+ //AddLog2('TFrameColorizer.Create');
  inherited Create(AOwner);
  LForm := TFormIDEColorizerSettings.Create(AOwner);
  LForm.Name := 'DelphiIDEColorizer_SettingsForm';

delphi-ide-theme-editor/IDE PlugIn/Colorizer.Settings.pas

@@ -14,7 +14,7 @@
 // The Original Code is Colorizer.Settings.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2014 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 //**************************************************************************************************aa