Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TDBGridEh [D5, MSSQL]


Vick ©   (2002-12-17 11:59:00) 

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


Vick   (2002-12-17 16:32:00) [1]

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


Andriano   (2002-12-17 16:24:00) [2]

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


Vick   (2002-12-17 16:15:00) [3]

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

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 15:52:00) [4]

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


Vick   (2002-12-17 14:01:00) [5]

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


Andriano   (2002-12-17 13:50:00) [6]

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


Vick   (2002-12-17 13:13:00) [7]

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


Andriano   (2002-12-17 12:57:00) [8]

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

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


Vick   (2002-12-17 12:16:00) [9]

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


Andriano   (2002-12-17 12:02:00) [10]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо