Можно ли вставить картинку в 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]

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

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

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

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

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