Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Можно ли вставить картинку в DBGrid??? [D7, Paradox]

Zhekson © (2005-10-07 13:10:00)
Тема + если да, то как???

msguns (2005-10-07 16:55:00) [1]
>Zhekson (07.10.05 15:35) [5]
>>msguns
>?(

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

msguns (2005-10-07 16:55:00) [2]
>Zhekson (07.10.05 15:35) [5]
>>msguns
>?(

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

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

Zhekson (2005-10-07 16:35:00) [4]
sniknik © (07.10.05 15:59) [7]
спасибо

Val (2005-10-07 16:21:00) [5]
>Zhekson (07.10.05 15:24)
спасибо, не стоит :) в данной ветке, поверьте, ничего более не требуется, да и сама ветка, впрочем, тоже :)

sniknik (2005-10-07 15:59:00) [6]
> по этим ключевым словам на КД ничего не найдено, пробовал синонимы эффект тот же.
спутал. разноцветный ... "Разноцветный D B G R I D"
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=168

Zhekson (2005-10-07 15:47:00) [7]
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;

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

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

msguns
?(

Zhekson (2005-10-07 15:24:00) [9]
to Val
Вы гений, БРАВО, БРАВО... ещё один исчерпывающий ответ...
преклоняюсь перед Вашим талантом, так кратко и главное по СССССуществу давать ответы...

msguns (2005-10-07 15:02:00) [10]
Просто пример. В определенной колонке грида вместо значения поля, "привязанного" к ней (для чего в его событии 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] статью себе для учебного пособия.

Val (2005-10-07 13:46:00) [11]
почитать соотв. статьи на королевстве.

sniknik (2005-10-07 13:41:00) [12]
никак. ее там(на нем) можно только нарисовать.

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

Наверх

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