DBGrid

[Dvoishnik]

Хочу чтобы поля в DBGrid растягивались вместе с формой нет не какого свойства ?? нужно ручками писать самому?

[Аватар]

нужно ручками писать самому?

Ага. В OnResize формы по Columns грида.

[Dvoishnik]

Procedure FormTableHight(var DBgridTaH:TDBGrid);
var i:byte;
    sum:Integer;
Begin
sum:=0;
For i:=0 to DBgridTaH.Columns.Count-1 do
  sum:=sum+DBgridTaH.Columns[i].Width;
sum:=DBgridTaH.Width-sum-40;
sum:=sum div DBgridTaH.Columns.Count;
For i:=0 to DBgridTaH.Columns.Count-1 do
  DBgridTaH.Columns[i].Width:=DBgridTaH.Columns[i].Width+sum-1;
end;

как то так?
или можно что нибудь симпатичней придумать?

П.С. не подскажете как узнать ширину полосы прокрутки вертикальной?? я взял примерную величину 40 но хотелось бы как можно точнее

у меня еще есть Splitter на какое событие посоветуете повесить чтоб и на него реагировала?

[Аватар]

Не помню - её ширина в ClientWidth попадает или нет. Проверь

[Dvoishnik]

изменил

sum:=DBgridTaH.Width-sum-40;

на

sum:=DBgridTaH.ClientWidth-sum-13;

где 13 это фиксированный столбец(1 DBGrid).

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

у меня еще есть Splitter на какое событие посоветуете повесить чтоб и на него реагировала?

было бы здорово если б подсказали, чет думать вообще не хочется((

повесил на
OnMoved

еще вопрос
как ограничить Splitter
у меня для DBgrid установлены минимальная ширина
а Splitter улетает под grid если его попробовать дернуть 2 раз (после достижения минимальной ширины)
собственно как от этого избавиться?

[Аватар]

Допустим он горизонтальный
Splitter.MinSize:=100 - минимальная высота того, который alClient
У того, который, например, alTop ставь Constraints.MinHeight:=200 - это будет его минимальная высота. Но все равно возможны проколы, Splitter не до конца вылизан

на какое событие посоветуете повесить

OnMoved. В OnCanResize можно контролировать размеры

[Dvoishnik]

if Panel1.Constraints.MinWidth< NewSize then
 Accept:=false ;

все ровно все не очень гладко выходит.
позже залью фидос

[xxbesoxx]

Сообщение от Аватар

OnMoved. В OnCanResize можно контролировать размеры

Ширина на DbGrid можно автоматически так регулировать

   { Private declarations }
  public
     procedure MyGridSize(Grid: Tdbgrid);    // public процедура
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses UOrders;

{ TForm1 }


procedure TForm1.FormResize(Sender: TObject);
begin
  Form1.MyGridSize(DBGrid1);  // Вызиваем проседур  для   DBGrid1
end;

procedure TForm1.MyGridSize(Grid: Tdbgrid);
// Тела у этого процедур
const
  DEFBORDER = 10;
var
  temp, n: Integer;
  lmax: array [0..30] of Integer;
begin
  with Grid do
  begin
    Canvas.Font := Font;
    for n := 0 to Columns.Count - 1 do
      lmax[n] := Canvas.TextWidth(Fields[n].FieldName) + DEFBORDER;
    grid.DataSource.DataSet.First;
    while not grid.DataSource.DataSet.EOF do
    begin
      for n := 0 to Columns.Count - 1 do
      begin
        temp := Canvas.TextWidth(trim(Columns[n].Field.DisplayText)) + DEFBORDER;
        if temp > lmax[n] then lmax[n] := temp;
      end; {for}
      grid.DataSource.DataSet.Next;
    end;
    grid.DataSource.DataSet.First;
    for n := 0 to Columns.Count - 1 do
      if lmax[n] > 0 then
      Columns[n].Width := lmax[n];
  end;

end;

end.

Будеть хорошо если добавить "закладку" эту процедуру , если в таблице много записей что курсор не бегал когда проходить цикл

var  
    bm : TBookmark;   
begin
   bm := ADOQuery1.GetBookmark;   
   ADOQuery1.DisableControls;      
//--------------------------------------------------------------------//
   
   
//---------------------------------------------------------------------//
end;
    if  ADOQuery1.BookmarkValid(bm) then  ADOQuery1.GotoBookmark(bm);  
    if    ADOQuery1.BookmarkValid(bm) then  ADOQuery1.FreeBookmark(bm);  
    ADOQuery1.EnableControls;

[Dvoishnik]

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

Ширина на DbGrid можно автоматически так регулировать

Спасибо и вам, но мне немного другое нужно было уже решил, код выше.