Перестановка колонок в Grid.

← →
zolotov (2003-04-13 01:02) [0]

Уважаемые мастера, подскажите пожалуйста, в чем ошибка. У меня 2 формы одна с RxDBGrid, а другая с RxCheckListBox. Я вызываю форму с RxCheckListBox, отмечаю нужные мне колокнки птичкой, нажимаю установить и после первого нажатия форма с RxCheckListBox закрывается но, колонки отмеченные птичкой не отображаются в RxDBGrid. Я повторно вызываю форму с RxCheckListBox, опять отмечаю те колонки, к-е отмечал ранне и снова нажимаю установить. После этого колонки отображаются. В чем здесь загвоздка. Почему с первого раза колонки не отображаются. Но, бывает, что отображаются с первого раза. Чаще, правда, со второго. Может ошибка не в этом коде, а в чем-то еще.

Заранее спасибо.

procedure TColumnForm.btSetClick(Sender: TObject);
var
i,j,col_in_order:integer;
find:boolean;
begin
col_in_order:=0;
for i:=0 to RxCheckListBox1.Items.Count-1 do
begin
if RxCheckListBox1.Checked[i] then
begin
// найдем соответствующую колонку в гриде
find:=false; j:=0;
while not find and (j<MainForm.RxDBGrid1.Columns.Count) do
if MainForm.RxDBGrid1.Columns.Items[j].Title.Caption=RxCheckListBox1.Items[i] then
find:=true
else inc(j);
if find then
begin
// столбец найден
MainForm.RxDBGrid1.Columns.Items[j].Index:=col_in_order;
MainForm.RxDBGrid1.Columns.Items[j].Visible:=true;
inc(col_in_order);
end;
end;
end;
for j:=col_in_order to MainForm.RxDBGrid1.Columns.Count-1 do
// скроем неотмеченные столбцы
MainForm.RxDBGrid1.Columns.Items[j].Visible := false;

FormStorage1.SaveFormPlacement;
QuitWS:=false;
Close;
end;

← →
zolotov (2003-04-14 11:06) [1]

Нужно переставить всего 2 строки местами
begin
// столбец найден
MainForm.RxDBGrid1.Columns.Items[j].Visible:=true;
MainForm.RxDBGrid1.Columns.Item[j].Index:=col_in_order;
inc(col_in_order);
end;

Перестановка колонок в Grid. Найти похожие ветки