Changeset 487 for cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

Timestamp:

Sep 7, 2008, 8:34:08 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

adding skin support (incomplete)

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas (modified) (4 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/fFrame.pas

@@ -17 +17 @@
   OleCtrls, VERGENCECONTEXTORLib_TLB, ComObj, AppEvnts, inifiles,
   //kt mod 6/29/07 -----
+  {$IFDEF USE_SKINS}
+  ipSkinManager,//kt 9/7/08
+  {$ENDIF}
   fWebTab,
   DKLang, TntForms, TntStdCtrls, TntSystem, TntSysUtils;
@@ -369 +372 @@
   public
     EnduringPtSelSplitterPos: integer;
+    SkinAtStartup : boolean; //kt 9/8/08
+    CurrentSkinFile : string; //kt 9/8/08
+    {$IFDEF USE_SKINS}
+    SkinManager : TipSkinManager;
+    {$ENDIF}
+    procedure ActivateCurrentSkin; //kt 9/8/08
+    procedure InactivateSkin; //kt 9/8/08
     procedure SetBADxList;
-
     function PageIDToTab(PageID: Integer): Integer;
     procedure ShowHideChartTabMenus(AMenuItem: TMenuItem);
@@ -815 +824 @@
   if tempPosition > tpRight then tempPosition := tpBottom;
   fOptionsOther.SetTabPosition(tempPosition);
+  {$IFDEF USE_SKINS}
+  SkinManager := TipSkinManager.Create(self);
+  {$ENDIF}
+  SkinAtStartup := CPRSChartINI.ReadBool('Skin','Load At Startup',false);
+  CurrentSkinFile := CPRSChartINI.ReadString('Skin','Default Skin','TMG_Extra\Skins\ICQ_Longhorn_v.1.2.ipz');
+  if SkinAtStartup then ActivateCurrentSkin;
   //kt -- end mod --
 
@@ -986 +1001 @@
   CPRSChartINI.Free;  //kt added 8/8/08
 end;
+
+procedure TfrmFrame.ActivateCurrentSkin;
+begin
+  {$IFDEF USE_SKINS}
+  SkinManager.SkinFile := ExtractFilePath (Application.ExeName) + CurrentSkinFile;
+  if FileExists(SkinManager.SkinFile)=false then begin
+    SkinManager.SkinFile := '';
+  end;
+  if SkinManager.SkinFile <>'' then begin
+    try
+      SkinManager.Active := true;
+    except
+      on EInvalidOperation do begin
+        MessageDlg('Error Applying Skin.  Please try another.',mtInformation,[mbOK],0);
+      end;
+      else  begin
+        MessageDlg('Error Applying Skin.  Please try another.',mtInformation,[mbOK],0);
+      end;
+    end;
+  end else begin
+    SkinManager.Active := false;
+  end;
+  {$ENDIF}
+end;
+
+procedure TfrmFrame.InactivateSkin;
+begin
+  {$IFDEF USE_SKINS}
+  SkinManager.Active := false;
+  {$ENDIF}
+end;
+
 
 procedure TfrmFrame.RenameTabs;    //kt added entire function;