Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Ширина колонки в DBGRIDEH (...EH!)   Найти похожие ветки 

 
anatolyk   (2004-03-13 11:30) [0]

Народ, всем привет1
Долбаюсь с прстым, наверное, вопросом. Нужно автоматом устанавливать ширину колонки по значению.

Делаю так:
procedure TForm1.DBGridEh2DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumnEh;
 State: TGridDrawState);
var
CellWidth : integer;
HoldColor : TColor;
begin

 HoldColor := DBGridEh2.Canvas.Brush.Color;
 if not Column.Field.CanModify then begin
   DBGridEh2.Canvas.Brush.Color := clBtnFace;
 end;

 CellWidth:= DBGridEh1.Canvas.TextWidth(Column.Field.AsString);
 if Column.Width < CellWidth then
   Column.Width := CellWidth;
 DBGridEh2.DefaultDrawColumnCell(Rect,DataCol,Column,State);
 DBGridEh2.Canvas.Font.Color :=  HoldColor;
end;

Глючит, однако.
Иногда (например, при прокрутке вправо) Фокус ячейки переходит на соседний (обычно верхний) ряд , указатель на запись остается на месте. Получается, что поля редактируются в чужом ряду и сохраняются в чужой записи.
Иногда при переходе к последней записи (через навигатор), фокус сдвигается только колесом мыши, и то надо сначала смотать вниз, потом - наверх. Ну, и еще там кое-что.
Убираю установку ширины - все работает как надо.


 
anatolyk   (2004-03-13 12:00) [1]

Ой, простите.
CellWidth:= DBGridEh1.Canvas.TextWidth(Column.Field.AsString);
следует читать
CellWidth:= DBGridEh2.Canvas.TextWidth(Column.Field.AsString);

(грид один, есс-но)



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.035 c
3-1078830044
Stas
2004-03-09 14:00
2004.04.11
Delphi8 и ADO


3-1081404361
Геннадий
2004-04-08 10:06
2004.04.11
Шифровка/дешифровка данных в распределённой БД


7-1079895576
Gun Expert
2004-03-21 21:59
2004.04.11
Чтение нестандартного значения реестра из Delphi


14-1079289669
Asteroid
2004-03-14 21:41
2004.04.11
Такое не бывает!


8-1076481355
Evgeniy_K
2004-02-11 09:35
2004.04.11
Экранная лупа