Текущий архив: 2011.07.03;
Скачать: CL | DM;
Вниз
Смещение ячеек в TDrawGrid Найти похожие ветки
← →
Fr (2011-03-27 00:02) [0]На форме лежит TDrawGrid. При создании формы ячейки растягиваются так, чтобы занять всю область грида:
procedure TForm1.FormCreate(Sender: TObject);
begin
DrawGrid1.DefaultColWidth:=DrawGrid1.Width div DrawGrid1.ColCount;
DrawGrid1.DefaultRowHeight:=DrawGrid1.Height div DrawGrid1.RowCount;
end;
После запуска "приложения" :) выделяю мышью ячейку крайнего правого столбца или нижней строки и все ячейки вдруг сдвигаются, оставляя по бокам грида пространство без сетки.
Как сделать так, чтобы не было этого сдвига?
http://dl.dropbox.com/u/8204815/Grid_1.jpg (34,5 КБ)
слева на скриншоте до выделения ячейки, справа - после.
← →
Германн © (2011-03-27 00:10) [1]В расчетах не учтена ширина линий сетки GridLineWidth.
← →
Fr (2011-03-27 00:20) [2]
> В расчетах не учтена ширина линий сетки GridLineWidth.
Ничего не меняется, если GridLineWidth выставить в 0
← →
Fr (2011-03-27 00:26) [3]Точнее, при выставленном GridLineWidth в 0, сетка уже сдвигается только по вертикали. Но надо, чтобы она вся оставалась на месте...
← →
Германн © (2011-03-27 00:45) [4]Так учесть надо было, а не обнулять!
DrawGrid1.DefaultColWidth:=(DrawGrid1.Width - DrawGrid1.ColCount*DrawGrid1.GridLineWidth) div DrawGrid1.ColCount;
← →
Fr (2011-03-27 10:49) [5]
> Так учесть надо было, а не обнулять!
Так подставьте 0 вместо DrawGrid1.GridLineWidth вDrawGrid1.DefaultColWidth:=(DrawGrid1.Width - DrawGrid1.ColCount*DrawGrid1.GridLineWidth) div DrawGrid1.ColCount;
и получите на выходе то же самое, что и у меня.
На всякий случай заменил в коде на
DrawGrid1.DefaultColWidth:=(DrawGrid1.Width-DrawGrid1.ColCount*DrawGrid1.GridLineWidth) div DrawGrid1.ColCount;
DrawGrid1.DefaultRowHeight:=(DrawGrid1.Height-DrawGrid1.RowCount*DrawGrid1.GridLineWidth) div DrawGrid1.RowCount;
Ничего не изменилось - при выборе нижней ячейки вся сетка сдвигается вверх, оставляя под ней пустое место (без ячеек).
← →
_Юрий (2011-03-27 11:10) [6]>>DrawGrid1.Width
DrawGrid1.ClientWidth ?
← →
Fr (2011-03-27 11:12) [7]
> _Юрий (27.03.11 11:10) [6]
Спасибо! Заработало :)
Страницы: 1 вся ветка
Текущий архив: 2011.07.03;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.01 c
