diff options
Diffstat (limited to '')
-rw-r--r-- | src/base/USkins.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/base/USkins.pas b/src/base/USkins.pas index 6d8c2ebf..0492fb7a 100644 --- a/src/base/USkins.pas +++ b/src/base/USkins.pas @@ -62,9 +62,9 @@ type procedure LoadList; procedure ParseDir(Dir: IPath); procedure LoadHeader(FileName: IPath); - procedure LoadSkin(Name: string); + procedure LoadSkin(Name, Theme: string); function GetTextureFileName(TextureName: string): IPath; - function GetSkinNumber(Name: string): integer; + function GetSkinNumber(Name, Theme: string): integer; function GetDefaultColor(SkinNo: integer): integer; procedure GetSkinsByTheme(Theme: string; out Skins: TUTF8StringDynArray); @@ -143,14 +143,14 @@ begin SkinIni.Free; end; -procedure TSkin.LoadSkin(Name: string); +procedure TSkin.LoadSkin(Name, Theme: string); var SkinIni: TMemIniFile; SL: TStringList; T: integer; S: integer; begin - S := GetSkinNumber(Name); + S := GetSkinNumber(Name, Theme); SkinPath := Skin[S].Path; SkinIni := TMemIniFile.Create(SkinPath.Append(Skin[S].FileName).ToNative); @@ -191,13 +191,13 @@ begin end; end; -function TSkin.GetSkinNumber(Name: string): integer; +function TSkin.GetSkinNumber(Name, Theme: string): integer; var S: integer; begin Result := 0; // set default to the first available skin for S := 0 to High(Skin) do - if CompareText(Skin[S].Name, Name) = 0 then + if (CompareText(Skin[S].Name, Name) = 0) and (CompareText(Skin[S].Theme, Theme) = 0) then Result := S; end; |