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

Timestamp:

Sep 11, 2008, 7:23:35 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Adding skin support

File:

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

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

@@ -373 +373 @@
     EnduringPtSelSplitterPos: integer;
     SkinAtStartup : boolean; //kt 9/8/08
+    SkinChanged : 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
@@ -415 +413 @@
   uToolsMaxed, uToolsWarned: boolean;
   boolTMGPatchInstalled: boolean;     //elh   6/20/08
+  {$IFDEF USE_SKINS}
+  SkinManager : TipSkinManager;
+  {$ENDIF}
 
 const
@@ -572 +573 @@
   AnAddr: Pointer;
   ErrMsg: string;
+  temp : integer;
 begin
   Application.NormalizeTopMosts;
@@ -600 +602 @@
     FCreateProgress := FCP_FORMS;
     Close;
+  end
+  else if E.Message = 'Cannot focus a disabled or invisible window' then begin
+    i := 1; // do nothing
   end
   else Application.ShowException(E);
@@ -827 +832 @@
   SkinManager := TipSkinManager.Create(self);
   {$ENDIF}
+  SkinChanged := false;
   SkinAtStartup := CPRSChartINI.ReadBool('Skin','Load At Startup',false);
   CurrentSkinFile := CPRSChartINI.ReadString('Skin','Default Skin','TMG_Extra\Skins\ICQ_Longhorn_v.1.2.ipz');
@@ -1005 +1011 @@
 begin
   {$IFDEF USE_SKINS}
+  if SkinChanged = true then begin
+    MessageDlg('For now, skins may be changed only ONCE'+#10+#13+
+               'before restarting CPRS.  Thank you.',mtInformation,[mbOK],0);
+    exit;           
+  end;
+  SkinChanged := true;
   SkinManager.SkinFile := ExtractFilePath (Application.ExeName) + CurrentSkinFile;
   if FileExists(SkinManager.SkinFile)=false then begin
@@ -1220 +1232 @@
   uTabColorsList.Free;
   CPRSChartINI.WriteInteger('TAB_POSITION','Tab Location',integer(tabPage.TabPosition));
+  CPRSChartINI.WriteBool('Skin','Load At Startup',SkinAtStartup);  //kt 9/11/08
   //kt --- end mod ---
 
@@ -5068 +5081 @@
   end;
 
-
-
-
-initialization
+  initialization
 
 finalization