Class görünüm...

[dogan]

Selamlar...

Projet - options - application - appearance den normalde projeye görsellik katabiliyoruz, ben bu görsellik seçimini kullanıcıya yaptırmak istiyorum, combobox ile bu işlemi kullanıcıya nasıl yaptırabilirim...

[thelvaci]

TStyleManager.TrySetStyle('Style Name');

[dogan]

TStyleManager.TrySetStyle('Style Name');

hocam (TStyleManager.TrySetStyle('Style Name');) ile değişikliği databaseye kaydedip tekrar nasıl çağırabilirim.

[brs]

Selam.

Kod: Tümünü seç

procedure TForm1.StylesComboBoxChange(Sender: TObject);
begin
  TStyleManager.SetStyle(StylesComboBox.Items[StylesComboBox.ItemIndex]);
  With MainForm.AYARLARQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Update AYARLAR Set STYLES=:STY');
    ParamByName('STY').Value := StylesComboBox.Items[StylesComboBox.ItemIndex];
    ExecSQL;
  end;
end;

Kod: Tümünü seç

procedure TMainForm.FormActivate(Sender: TObject);
begin
  try
    with AYARLARQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * FROM AYARLAR');
      Prepared := True;
      Open;
      if Not IsEmpty then // Kayıt varsa
      begin
        TStyleManager.TrySetStyle(FieldByName('STYLES').AsString);
      end;
    end;
  except
  end;
end;

Combobox items:

Kod: Tümünü seç

Windows
Amakrits
Amethyst kamri
Aqua Graphite
Aqua light slate
Auric
Carbon
Charcoal dark slate
Cobalt xemedia
Cyan dusk
Cyan night
Emerald light slate
Glossy
Golden Graphite
Iceberg classico
Lavender classico
Light
Luna
Metropolis ui black
Metropolis ui blue
Metropolis ui dark
Metropolis ui green
Obsidian
Ruby graphite
Sapphire kamri
Silver
Slate classico
Smokey quartz kamri
tabletdark
Turquoise gray

[cinarbil]

Xe8 Kullanıyorum
Projet - options - application - appearance custom styles boş
Xe7 de dolu geliyor ve değişlik yapabiliyordum.
Xe8 desteklemiyor mu ?

[cinarbil]

Çözüldü

Xe8 Kullanıyorum
Projet - options - application - appearance custom styles boş
Xe7 de dolu geliyor ve değişlik yapabiliyordum.
Xe8 desteklemiyor mu ?

C:\Users\Public\Documents\Embarcadero\Studio\16.0\styles klasörü içinde *.vsf uzantılı dosyalar olmalı yoksa xe8 kurulu olduğu dizinde var
onları C:\Users\Public\Documents\Embarcadero\Studio\16.0\styles kopyalayınca sorun düzeldi.