Вниз
Скачать: CL | DM;

Можно ли вставить картинку в DBGrid???   Найти похожие ветки 

 
Zhekson   (2005-10-07 13:10) [0]

Тема + если да, то как???


 
sniknik ©   (2005-10-07 13:41) [1]

никак. ее там(на нем) можно только нарисовать.

иши на королевстве дельфи статью "полосатый грид"/аналогичное.


 
Val ©   (2005-10-07 13:46) [2]

почитать соотв. статьи на королевстве.


 
msguns ©   (2005-10-07 15:02) [3]

Просто пример. В определенной колонке грида вместо значения поля, "привязанного" к ней (для чего в его событии OnGetText во избежание "накладки" при прорисовке, написано Text := ""), рисуется картинка из имажлиста. Картинка зависит от значения в поле НД "Letter".

procedure TfrmListFond.grListFondsDrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
begin
 if (UpperCase(Column.FieldName)="LETTER") and (Column.Field.AsString>"") then
    MainForm.imlGrid.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top,dmFonds.FindNdxByLetter(Column.Field.AsString));
end;


А вообще советую скатать указанную в [1] статью себе для учебного пособия.


 
Zhekson   (2005-10-07 15:24) [4]

to Val
Вы гений, БРАВО, БРАВО... ещё один исчерпывающий ответ...
преклоняюсь перед Вашим талантом, так кратко и главное по СССССуществу давать ответы...


 
Zhekson   (2005-10-07 15:35) [5]

sniknik ©   (07.10.05 13:41) [1]
по этим ключевым словам на КД ничего не найдено, пробовал синонимы эффект тот же.

msguns
?(


 
Zhekson   (2005-10-07 15:47) [6]

try
Im1:=TBitmap.Create;
if  (Column.Index=0) then
begin
 with  DBGrid1.Canvas do
 begin
   Brush.Color:=clInfoBk;
   FillRect(Rect);
   if (DataModule6.Table1.FieldByName("TimeZ").Value<>1) then ImageList1.GetBitmap(2,Im1);
 Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1);
 end;
end;
finally
 Im1.Free;
end;


вот кусок кода, по которому дастаточно легко разобраться в этом вопросе.
закрыли тему!


 
sniknik ©   (2005-10-07 15:59) [7]

> по этим ключевым словам на КД ничего не найдено, пробовал синонимы эффект тот же.
спутал. разноцветный ... "Разноцветный D B G R I D"
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168


 
Val ©   (2005-10-07 16:21) [8]

>Zhekson   (07.10.05 15:24)
спасибо, не стоит :) в данной ветке, поверьте, ничего более не требуется, да и сама ветка, впрочем, тоже :)


 
Zhekson   (2005-10-07 16:35) [9]

sniknik ©   (07.10.05 15:59) [7]
спасибо


 
Zhekson   (2005-10-07 16:39) [10]

Val ©   (07.10.05 16:21) [8]
да и впрямь не стоит, а то глядишь поверите, что Вы больше чем большой человек в своём маленьком мирке.


 
msguns ©   (2005-10-07 16:55) [11]

>Zhekson   (07.10.05 15:35) [5]
>>msguns
>?(

????????????


 
msguns ©   (2005-10-07 16:55) [12]

>Zhekson   (07.10.05 15:35) [5]
>>msguns
>?(

????????????



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

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



Память: 0.48 MB
Время: 0.025 c
3-1128951085
MakNik
2005-10-10 17:31
2005.11.20
похоже на блокировку таблиц....?...


2-1130862793
KorvinOE
2005-11-01 19:33
2005.11.20
Кодировка


14-1130242397
Opilki_Inside
2005-10-25 16:13
2005.11.20
Some problems using Copy &amp; Paste with different browsers


14-1128758475
Kerk
2005-10-08 12:01
2005.11.20
[Порка] WordLines 2 Final


2-1130757736
syte_ser78
2005-10-31 14:22
2005.11.20
ошибка при вызове функции из dll




   Наверх