[Den-is]

Ребята подскажите как сделать?!

работаю с компонентом dbgrid, так как периодически делаю разные sql-запросы, приходится постоянно выравнивать столбцы, ориентацию текста и так далее. Подскажите как правильно написать процедуру или функцию которая могла бы в себе содержать все мои настройки для грида. и когда нужно я просто бы её вызывал!

Спасибо!

[Ildar-tsr]

Сообщение от Den-is

Ребята подскажите как сделать?!

работаю с компонентом dbgrid, так как периодически делаю разные sql-запросы, приходится постоянно выравнивать столбцы, ориентацию текста и так далее. Подскажите как правильно написать процедуру или функцию которая могла бы в себе содержать все мои настройки для грида. и когда нужно я просто бы её вызывал!

Спасибо!

Ну во-первых, насколько я помню, не DBGrid, а DBGridEh.
А во-вторых, какие именно параметры должны участвовать?

[freedomman]

Код:

procedure TMyDBGrideh._autoSizeDBGrid;
var i:integer;
begin
  with Columns do
    for i:=0 to count-1 do
      with Items[i] do begin
        if Visible then OptimizeWidth;
        if Width>400 then Width:=400;
      end;
end;

[Den-is]

Такие параметры как:
ширина столбца(столбцов может быть 10), картинка в звголовке(тоже 10 соответственно), ориентация текста(10) и какждый раз после выполнения запроса приходится заново менять. вот я и хочу отдельно функцию описать, при вызове которой все параметры сразу же применятся

[Den-is]

Хорошо, вот по проще объяснение.
Допустим у нас есть стандартная процедура нажатия на кнопку которая изменяет размер кнопки:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  button1.Height:=50;
  button1.Width:=50;
end;

как сделать так что бы изменение размера было описано в собственной процедуре, а нажатие на кнопку просто вызывало эту процедуру.
То есть допустим если процедура называлась бы "knopka" то код выглядел бы так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  knopka
end;

Так вот как правильно создать эту процедуру либо функцию в которой уже и указать изменение размера кнопки?

[Ildar-tsr]

Код:

procedure TForm1.Knopka(But: TButton; h,w: integer);
begin
  But.Height:= h;
  But.Width:= w;
end;

Вызов:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Knopka(Button1,50,50);
end;

[Den-is]

Спасибо, начинаю соображать!