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

Вниз

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]

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



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

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

Наверх




Память: 0.48 MB
Время: 0.014 c
14-37269
programmer's
2002-12-22 18:33
2003.01.13
Перебор всех вщможных значений в строке.


7-37410
alex134
2002-11-03 01:29
2003.01.13
Вопрос для шарящих (работа с адресным пространством)


3-36954
Борис
2002-12-16 17:02
2003.01.13
Русские буквы в IB 6


3-36981
Vick
2002-12-18 14:42
2003.01.13
в TDBGridEh событие скроллинга


14-37328
Ее звали Мечтой
2002-12-22 22:48
2003.01.13
Какой Кошмар...