DBGrid görsel özelliklerini ayarlamak

[NewMember]

Arkadaşlar tasaarım zamanında JVDbrgirdin kolon genişliklerini ayarlıyorum.Ama çalışınca kafasına göre davranıyo.Daha doğrusu alanın uzunluğuna göre ayarlıyo sanırım.Bunu sabitlemenin bir yolu varmı.(ini dosa a tek tek yazdırarak okutmanın dışında)
teşekkürler...

[Battosai]

DBGrid'in üzerine çift tıklayıp açılan pencereden sağ klik->add all fields deyip->seçilen her kolan için özelliklerden genişlik belirleyebilirsin....

[NewMember]

maalesef.işte oradan ayarlıorum ancak runtime de kafasına gör hareket ediyor

[lom]

Hocam tablonuzdaki alanın uzunluğuna göre bu alanlar genişliyor yanılmıyorsam. Ama @Battosai hocamın dediği gibi olması gerekir. Bende o şekilde yapıyorum.

[aslangeri]

s.a.
tablonuzdaki alanların displaywidth ozelligi dbgriddeki varsayılan genişliğini belirtir.
aynı şekilde display label larıda sütun başlıklarını verir.
normalde dbgridden ayarlayınca sütunların o şekilde gelmesi lazım.
Arada sırada benimde başıma geliyor ama genelde dbgridi birden fazla datasource ile beraber kullanmaya çalıştığım zaman oluyor.
kolay gelsin.

[NewMember]

Şu şekilde hallettim.Artık dert olmuyor hemde kullanıcı istediği şekilde ayarlaabilior.Belki başkasına da lazım olur.
Herkese ilgilendiği için teşekkür ederim.

Kod: Tümünü seç

procedure GenelAyarlariCek(MyGrid: TjvDbgrid; MyForm: Tform);
var
  GenelAyarlar: TIniFile;
  KolonSayisi, i: integer;
  HangiKolon: string;
begin
  GenelAyarlar := tinifile.Create(ExtractFilePath(Application.ExeName) + 'Ayarlar\GENELAYARLAR.ini');
  kolonsayisi := MyGrid.Columns.Count;

  for i := 0 to kolonsayisi - 1 do
  begin

    HangiKolon := 'DBGRID_KOLONN_INDX_' + IntToStr(i);
    MyGrid.Columns[i].Width := GenelAyarlar.ReadInteger(MyForm.Name, HangiKolon, 150);
  end;
  GenelAyarlar.Free;
end;

procedure GenelAyarlariKaydet(MyGrid: TjvDbgrid; MyForm: Tform);
var
  GenelAyarlar: TIniFile;
  KolonSayisi, i: integer;
  HangiKolon: string;
begin
  GenelAyarlar := tinifile.Create(ExtractFilePath(Application.ExeName) + 'Ayarlar\GENELAYARLAR.ini');
  kolonsayisi := MyGrid.Columns.Count;
  for i := 0 to kolonsayisi - 1 do
  begin
    HangiKolon := 'DBGRID_KOLONN_INDX_' + IntToStr(i);
    GenelAyarlar.WriteInteger(MyForm.Name, HangiKolon, MyGrid.Columns[i].Width);
  end;

  GenelAyarlar.Free;
end;

Kullanımı da her formumun Load ve Close yordamlarında bu ayar komutlarını çağırıyorum.

Kod: Tümünü seç

 GenelAyarlariCek(JvDBGrid1, self);

Kod: Tümünü seç

  GenelAyarlarikaydet(JvDBGrid1, self);

[aslangeri]

eğer problem kullanıcıların gridde yaptıkları oynamaları kayıt etmek ise
dbgridin columns u içerisinde savetofile ve loadfromfile metodları var.
aynısını veya benzerinin jvdbgridde olduğundan eminim.
kolay gelsin.