Ribbon menu ve Navbar İni Dosyası olarak Kaydetme

[akuyumcu63]

merhaba;

Çalışma anında Ribbon menü ve Navbar da sürükle bırak ile yapılan ayarları ini dosyasına kaydedip programın açılışında da yeniden okutmak istiyorum.
bu işlemi nasıl yapabiliriz.

[thelvaci]

BarManager'ın SaveTo... metodları işinize yaramıyor mu ?

[csunguray]

Fi tarihinde NavBar ı tipi image (veya blob) olan bir DB sahasına kaydetmek için şöyle bir kod yazmıştım.

Kod: Tümünü seç

procedure TFormAnaMenu.ActionMenuKaydetExecute(Sender: TObject);
var
  Stream1: TADOBlobStream;
begin
  inherited;
  DM.Kullanici.Open;
  if DM.Kullanici.Locate('REF', CurrentUser.Ref, []) then
  begin
    DM.Kullanici.Edit;
    Stream1 := TADOBlobStream.Create(DM.KullaniciMENU, bmWrite);
    try
      NavBar1.SaveToStream(Stream1);
    finally
      Stream1.Free;
    end;
    DM.Kullanici.Post;
  end;
  DM.Kullanici.Close;
end;

procedure TFormAnaMenu.ActionMenuYukleExecute(Sender: TObject);
var
  Stream1: TADOBlobStream;
begin
  inherited;
  DM.Kullanici.Open;
  Stream1 := TADOBlobStream.Create(DM.KullaniciMENU, bmRead);
  try
    if DM.Kullanici.Locate('REF', CurrentUser.Ref, []) then
    begin
      if DM.KullaniciMENU.IsNull then
      begin
        // if Sender <> nil then ShowMessage('Kayıtlı menü yok. Menü sıfırlanacak!');
        // ActionMenuSifirlaExecute(Sender);
      end else
      begin
        NavBar1.LoadFromStream(Stream1);
      end;
    end else
    begin
      // ActionMenuSifirlaExecute(Sender);
    end;
  finally
    Stream1.Free;
  end;
  DM.Kullanici.Close;
end;

[akuyumcu63]

verdiğiniz bilgiler için teşekkür ederim. çalışmalarımı yapıp sonucu yazacağım.