Вопрос по Alpha Skins

[dani92]

Пишу программу, при этом использую поддержку скинов. Как можно сохранить активный скин в ини файлах???
Использую компонент Alpha Skin

[Gorychev]

У вас в проге есть опция выбора одного из скинов, и вы хотите после того как юзер выберет один из скинов, чтобы этот же скин подгружался при повторном запуске проги? А настройки сохранить в ини-файле, так?

Создайте папку Skins в папке с вашей прогой и накидайте туда файлы скинов (*.asz)

сохраняем:

var
  Iniset: tinifile;
begin
  if opendialog1.Execute then begin
  // подключаем скин
    sSkinManager1.Active := false;
    sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + '\Skins\';
    sSkinManager1.SkinName := copy(ExtractFileName(opendialog1.FileName), 1, length(ExtractFileName(opendialog1.FileName)) - 4);
    sSkinManager1.Active := true;

  //сохраняем
    Iniset := Tinifile.Create(Extractfilepath(application.exename) + '\setting.ini'); ;
    try
      iniset.WriteString('SKIN', 'Curent', sSkinManager1.SkinName);
    finally
      IniSet.Free;
    end;
  end;
end;

загружаем:

procedure TForm1.FormCreate(Sender: TObject);
var iniset: tinifile; sScin: string;
begin
  Iniset := Tinifile.Create(Extractfilepath(application.exename) + '\setting.ini'); 
  try
    sScin := iniset.ReadString('SKIN', 'Curent', 'тут пишите значение скрипта по умолчанию');
  finally
    IniSet.Free;
  end;

  if fileExists(ExtractFilePath(Application.ExeName) + '\Skins\' + sScin + '.asz') then begin
    sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + '\Skins';
    sSkinManager1.SkinName := sScin;
    sSkinManager1.Active := true;
  end
  else sSkinManager1.Active := false;
emd;

не забудьте подключить Uses inifiles;

[dani92]

У меня просто скины идут как внутренние, мне надо чтобы имя скина загружалось из внутренних скинов
Вот код, который я нашел в другой программе из Ini файлов

[General]
SkinEnable=1
SkinActive=BlueGauze (внутренний)
SkinHUE=0
SkinSaturation=0

мне нужно сделать так же.

Спасибо за помощь!!!

[dani92]

Всем спасибо, я решил свою проьлему, тема закрыта!!!

[Joystik]

Сообщение от Gorychev

У вас в проге есть опция выбора одного из скинов, и вы хотите после того как юзер выберет один из скинов, чтобы этот же скин подгружался при повторном запуске проги? А настройки сохранить в ини-файле, так?

Создайте папку Skins в папке с вашей прогой и накидайте туда файлы скинов (*.asz)

сохраняем:

var
  Iniset: tinifile;
begin
  if opendialog1.Execute then begin
  // подключаем скин
    sSkinManager1.Active := false;
    sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + '\Skins\';
    sSkinManager1.SkinName := copy(ExtractFileName(opendialog1.FileName), 1, length(ExtractFileName(opendialog1.FileName)) - 4);
    sSkinManager1.Active := true;

  //сохраняем
    Iniset := Tinifile.Create(Extractfilepath(application.exename) + '\setting.ini'); ;
    try
      iniset.WriteString('SKIN', 'Curent', sSkinManager1.SkinName);
    finally
      IniSet.Free;
    end;
  end;
end;

загружаем:

procedure TForm1.FormCreate(Sender: TObject);
var iniset: tinifile; sScin: string;
begin
  Iniset := Tinifile.Create(Extractfilepath(application.exename) + '\setting.ini'); 
  try
    sScin := iniset.ReadString('SKIN', 'Curent', 'тут пишите значение скрипта по умолчанию');
  finally
    IniSet.Free;
  end;

  if fileExists(ExtractFilePath(Application.ExeName) + '\Skins\' + sScin + '.asz') then begin
    sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + '\Skins';
    sSkinManager1.SkinName := sScin;
    sSkinManager1.Active := true;
  end
  else sSkinManager1.Active := false;
emd;

не забудьте подключить Uses inifiles;

sScin := iniset.ReadString('SKIN', 'Curent', 'тут пишите значение скрипта по умолчанию'); - а что за скрипт?