[Den-is]

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

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

Спасибо!

[Ildar-tsr]

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

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

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

Спасибо!

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

[freedomman]

Код:

1 2 3 4 5 6 7 8 9 10

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]

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

Код:

1 2 3 4 5

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

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

Код:

1 2 3 4

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

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

[Ildar-tsr]

Код:

1 2 3 4 5

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

Вызов:

Код:

1 2 3 4

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

[Den-is]

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