[fieserPICARD]

Hey guys,

first of all I read this post already, unfortunately there are still some questions

I use this code to let the end user decide which skin he wants to use:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
SkinDir := ExtractFilePath(Application.ExeName)+'skins';
if SelectSkin(SkinName, SkinDir, stPacked) then begin
ms := TMemoryStream.Create;
ms.LoadFromFile(SkinDir + '' + SkinName + '.asz');
Button2.Enabled := True;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
sSkinManager1.IsDefault := True;
sSkinManager1.InternalSkins.Add;
sSkinManager1.InternalSkins[sSkinManager1.InternalSkins.Count – 1].Name := SkinName;
sSkinManager1.InternalSkins[sSkinManager1.InternalSkins.Count – 1].PackedData.LoadFromStream(ms);
sSkinManager1.SkinName := SkinName;
sSkinManager1.Active := True;
Label1.Caption := SkinName;
end;

Is there a rather good/easy way to save the settings? I tried using ini files and whatnot but that didn't work for some reason. I must add that I'm not the best coder out there

I attached my project, maybe someone can help me, would be greatly appreciated

cya and thx in advance!

[Support]

Hello

You must insert this line

Code:

ini.UpdateFile;

before

Code:

ini.Free;

and

insert

Code:

sSkinManager1.SkinName := Label1.Caption;

before

Code:

sSkinManager1.Active := ini.ReadBool('Settings','SkinActive',False);

[fieserPICARD]

'Support' wrote:

Hello

You must insert this line

Code:

ini.UpdateFile;

before

Code:

ini.Free;

and

insert

Code:

sSkinManager1.SkinName := Label1.Caption;

before

Code:

sSkinManager1.Active := ini.ReadBool('Settings','SkinActive',False);

heyho…I don't use MemIniFiles I'm already using another solution, I just save the packeddata and then load it again..It may not be the best solution but it works like a charm. When I have the time I'll try it though, so thx mate. cYa

[Author]

Posts