Changeset 482 for cprs/branches/GUI-config/SkinFormU.pas

Timestamp:

Sep 6, 2008, 1:24:53 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Fixed looping file list, and skin missing bugs

File:

• cprs/branches/GUI-config/SkinFormU.pas (modified) (3 diffs)

cprs/branches/GUI-config/SkinFormU.pas

@@ -122 +122 @@
     iniFile := TIniFile.Create(FINIFileName);
     cbSkinAtStartup.Checked := iniFile.ReadBool('Skin','Load At Startup',false);
-    CurrentSkinFile := iniFile.ReadString('Skin','Default Skin','.\SkinStuff\Skins\ICQ_Longhorn_v.1.2.ipz');
+    CurrentSkinFile := iniFile.ReadString('Skin','Default Skin','SkinStuff\Skins\ICQ_Longhorn_v.1.2.ipz');
     iniFile.Free;
   end;
@@ -146 +146 @@
     end;  
 //    if fileS = SKIN_NONE then fileS := '';
-    CurrentSkinFile := ExtractFilePath (Application.ExeName) +'\SkinStuff\Skins\' +fileS;
+    CurrentSkinFile := 'SkinStuff\Skins\' +fileS;
     ModalResult := mrOK;
   end;
@@ -168 +168 @@
   begin
     {$IFDEF USE_SKINS} 
-    SkinManager.SkinFile := CurrentSkinFile;
-    if CurrentSkinFile <>'' then begin
+    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;