Скачать: CL | DM;

Проблема с DBGrid   Найти похожие ветки 

← →
Barsky ©   (2006-01-12 16:42) [0]

Есть DBGrid. MultiSelect=False, RowSelect=True.

После заполнения и выравнивания получается что выделена (синей полосой) нижняя запись, а реально активна первая (треугольник в фикс. столбе на ней).

Как сделать что выделения совпали?

---

← →
Desdechado ©   (2006-01-13 13:44) [1]

что есть "выравнивание"?

---

← →
Barsky ©   (2006-01-13 14:26) [2]

В OnDrawColumnCell ширену колонок изменяю, что бы текст влезал.

Уже неделю бьюсь. Ничего не выходит =(

---

← →
Johnmen ©   (2006-01-13 14:33) [3]

>Как сделать что выделения совпали?

Перестать косячить в OnDrawColumnCell
:)

---

← →
Barsky ©   (2006-01-13 14:44) [4]

=)

Ткни плз пальцом


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin

if (((Column.FieldName="F_Summ_dolg") or (Column.FieldName="F_Limit")) and (Column.Field.Text<>"")) then
 begin
 TDBGrid(Sender).Canvas.TextOut(rect.Right-2-TDBGrid(Sender).Canvas.TextWidth(Format("%n",[strtofloat(Column.Field.Text)] )),rect.Top+2,Format("%n",[strtofloat(Column.Field.Text)]));
 if Column.Width<TDBGrid(Sender).Canvas.TextWidth(Format("%n",[strtofloat(Column.Field.Text)]))+4 then Column.Width:=TDBGrid(Sender).Canvas.TextWidth(Format("%n",[strtofloat(Column.Field.Text)]))+4;
 end
else
 if Column.Width<TDBGrid(Sender).Canvas.TextWidth(Column.Field.Text)+6 then Column.Width:=TDBGrid(Sender).Canvas.TextWidth(Column.Field.Text)+6;

end;



---

← →
Johnmen ©   (2006-01-13 14:59) [5]

Здесь явно чего-то не хватает :)
Подробности можно найти здесь
http://delphikingdom.ru/asp/viewitem.asp?catalogid=168

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c