TDBGridEh

← →
Vick (2002-12-17 11:59) [0]

В хелпе пишут что нельзя одно временно в DBGridEh выводить и caption и image в надписях колонок, может можно как-то обмануть это дело??? Заранее спасибо за ответ :))))

← →
Andriano (2002-12-17 12:02) [1]

Естественно.
1. Нарисуй в картинке любой текст.
Но я бы этого не делал.

2. OnDrawColumnCell (DefaultDrawColumnCell - очень! полезный метод)

← →
Vick (2002-12-17 12:16) [2]

А чего в OnDrawColumnCell писать то?

← →
Andriano (2002-12-17 12:57) [3]

Свой код разумеется.

if gdFixed in State then begin
if Column.FieldName="FIELD1" then begin
ImageList1.Draw...
DBGridEh.DefaultDrawColumnCell...
end;
....
end;

← →
Vick (2002-12-17 13:13) [4]

if gdFixed in State then не работает, он его упорно игнорирует, тобиш, это выражение всегда false, может я чего-то не так делаю?

← →
Andriano (2002-12-17 13:50) [5]

gdFixed - это фиксированные ячейки. Они у тебя есть? Может они русуются редко.

← →
Vick (2002-12-17 14:01) [6]

Ну я так понимаю, что фиксированными являются Title, но в этом гриде они не типа "ячейки", а типа TColumnTitleEh, по всей видимости на них это не распространяется :((((((

← →
Andriano (2002-12-17 15:52) [7]

Ты прав. Заголовки под gdFixed не проходят.

← →
Vick (2002-12-17 16:15) [8]

Я права :))))), но я все равно придумала :))))

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
var
RectTitle: TRect;
begin
if Column.Tag = 1 then begin
RectTitle := DBGridEh1.CellRect(Column.index+1, 0);
ImageList1.Draw(DBGridEh1.Canvas, RectTitle.Right-30, RectTitle.Top+ 5, 1);
end;
DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

возможны вариации на тему Column.Tag... Просто эти заголовки лежат как раз на 0-й строке обычного СтринГрида, из этого и пляшем...

← →
Andriano (2002-12-17 16:24) [9]

Я так понял ты разрисовываешь Rect не для своего события.
А за тем и свой.
Но лишние перерисовки заголовок. А так наверное ничё.

← →
Vick (2002-12-17 16:32) [10]

ну а другого события не предложили :(((( исходников нету, чтобы тудом дописать..

TDBGridEh Найти похожие ветки