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

Вниз

Можно ли в заголовок Dbgrid поместить картинку.   Найти похожие ветки 

 
Crazy monkey   (2006-07-11 14:44) [0]

Т.е вместо текста необходимо установить картинку. Нечто подобное есть в Outloke, там где в заголовке указан не текст, а рисунок скрепки.


 
AbrosimovA ©   (2006-07-11 15:04) [1]

type
 TDBGrid = class(DBGrids.TDBGrid)
 protected
   // Переопределяем метод отрисовки ячейки
   procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
 end;

procedure TDBGrid.DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState);
var dR,dT: integer;
begin
 inherited;
 //Отступ от правого края заголовка
 dR:=ImageList1.Width+4;
 //Отступ от верхнего края заголовка
 dT:= ((ARect.Bottom - ARect.Top)-ImageList1.Height) div 2 + 1;
 if (gdFixed in AState) and (ACol=2)  then begin //если 3-й столбец
  //рисуем
  ImageList1.Draw(Canvas, ARect.Right-dR, ARect.Top+dT, 0);
 end;
end;


 
Tornado ©   (2006-07-11 16:43) [2]

ExLib тебе помжет гораздо проше


 
AbrosimovA ©   (2006-07-11 16:52) [3]


> Tornado ©   (11.07.06 16:43) [2]
> ExLib тебе помжет гораздо проше


В чём-же простота? ExLib надо ставить, изучать долго мануалы и наконец настраивать.


 
Crazy monkey   (2006-07-11 17:23) [4]


> ExLib тебе помжет гораздо проше


Точно ExLib? Я просто пользуюсь Ehlib и соответсвенно компонентом DBGrideh.

Можно ли в DBGrideh через Object Inspector вставить картинку в заголовок?
Заранее спасибо!


 
Amoeba ©   (2006-07-11 17:38) [5]

Обрати внимание у колонки Grid"а на св-во Title.ImageIndex.

Specifies an image for the title.

property ImageIndex: Integer;

Description

Use ImageIndex to get or set the index of an image to be drawn in the title. This index identifies an image from the TitleImages property of the DBGridEh control that contains the columns. Specify -1 to prevent an image from being drawn.

When ImageIndex <> -1 title don"t show caption. Title can not show image and caption simultaneously.


 
Crazy monkey   (2006-07-11 17:46) [6]

2 Amoeba ©

Спасибо!


 
Crazy monkey   (2006-07-11 17:47) [7]

2 AbrosimovA ©

Спасибо за код!



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

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

Наверх




Память: 0.48 MB
Время: 0.026 c
15-1151413524
NORDmen
2006-06-27 17:05
2006.07.30
перевод слов/предложений с помошью программ-переводчиков


2-1152106048
ламер_13
2006-07-05 17:27
2006.07.30
как из $4d4d получить MM


15-1151951015
Ketmar
2006-07-03 22:23
2006.07.30
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1151946511&amp;n=18


5-1135933137
FrykT
2005-12-30 11:58
2006.07.30
Канва, текст, и... мышка


1-1150532479
kaif
2006-06-17 12:21
2006.07.30
Перекомпиляция родных run-time пакетов (*.bpl) Delphi