Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
ВнизПерестановка колонок в RxDBGrid Найти похожие ветки
← →
zolotov (2003-02-16 23:38) [0]Ув. мастера, подскажите, пожалуйста, как пререставялть колонки в RxDBGrid? Т.е. у меня 2 формы. На одной RxDBGrid, а на другой список колонок в RxCheckListBox и кнопки Вверх, Вниз и Установить. На первой форме я нажимаю кнопку Колонки и вызываю вторую форму. Выставляю колонки в нужном порядке и нажимаю Установить.
Может есть какой-то модуль? Дело в том, что я видел такую фишку, с преставлением колонок, в программе написаной на Delphi.
С Использованием массивов и переменных у меня не получилось. Думаю, что все намного проще.
Если можно напишите пример.
Заранее огромное спасибо.
← →
ЮЮ (2003-02-17 04:59) [1]RxDBGrid1.Columns.Items[2].Index := 0;
И третий столбик станет первым
← →
zolotov (2003-02-17 11:00) [2]Спасибо, но это только 2 колонки. А если я поменял местами 5 колонок?
← →
ЮЮ (2003-02-18 05:31) [3]Так проблема с алгоритмом?
Например так:
Var
i, col_in_order: integer;
begin
col_in_order := 0;
for i := 0 to RxCheckListBox.Items.Count - 1 do begin
if RxCheckListBox.Checked[i] then begin
// найдем соответствующую колонку в гриде
find := false; j :=0;
While not find and (j < RxDBGrid1.Columns.Count) do
if RxDBGrid1.Columns.Items.Title.Caption = RxCheckListBox.Items[i]
then find := true else inc(j);
if find then begin
// столбец найден
RxDBGrid1.Columns.Items[j].Index := col_in_order;
RxDBGrid1.Columns.Items[j].Visible := true;
inc(col_in_order);
end;
end;
end;
for j := col_in_order to RxDBGrid1.Columns.Count - 1 do
// скроем неотмеченные столбцы
RxDBGrid1.Columns.Items[j].Visible := false;
end;
← →
zolotov (2003-02-18 11:56) [4]Спасибо большое.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c