Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Бази";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

DBGrid і картинки .... Знайти схожі гілки


Tiny   (2002-12-04 08:31) [0]

Помогите PLZ!
Каким образом можно вставить в ячейку DBGrid"а иконку? Т.е. есть в таблице поле "Статус" - и в зависимости от значения нужно вставить определенную картинку...



Наталия   (2002-12-04 08:59) [1]

Рисовать на канве. Событие DrawColumnCell или drawDataCell.
На королевстве есть статья "Разноцветный грид"



Prooksius   (2002-12-04 10:15) [2]

DBGridEh это может.
http://www.farpost.com/personal/dmitryb/RUS/downloads.htm



Карелин Артем   (2002-12-04 11:42) [3]

Наталія © (04.12.02 08: 59)
Ну а сайт стало быть DelphiKingdom.com Хорошая статейка.



Севостьянов Игорь   (2002-12-04 11:55) [4]

Или воспользоваться RX Lib



BorisUK   (2002-12-04 13:23) [5]

Севостьянов Игорь ©
объясни чем RX тут помочь может?
Я его юзаю, но всеравно пришлось делать в Гриде

Im : TBitMap;

....
Im1:=TBitmap.Create;
ImageList1.GetBitMap(13,im1);
DBGrid.Canvas.Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1)
...

Может зря старался и там это проще делается?



Johnmen   (2002-12-04 13:48) [6]

В RxDBGrid идеология та же, но делается проще...



BorisUK   (2002-12-04 14:10) [7]

Проще как?



snv-soft   (2002-12-05 05:55) [8]

procedure TForm_Main.DBGrid_DealDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
було
Im1: TBitmap;
починати
if Column.FieldName = "LOTE_STATUS" then
починати
with DBGrid_Deal.Canvas do
починати
im1:=TBitmap.Create;
Brush.Color:=$00FDFDE3;
FillRect (Rect);
case DMod.Query_Bids.FieldByName("LOTE_STATUS").AsInteger of
0: Icons_DbGridBids.GetBitmap(2,Im1);
1: Icons_DbGridBids.GetBitmap(0,Im1);
2..3: Icons_DbGridBids.GetBitmap(1,Im1);
end;
Draw(Round((Rect.Left+Rect.Right - Im1.Width)/2),Rect.Top+1,Im1);
end;
end;
end;

Иконки находятся в TImageList



сторінки: 1 вся гілка

Форум: "Бази";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.57 MB
Час: 0.027 c
8-74852
хрюндель
2002-08-27 22:05
2002.12.23
Як мікшувати аудіо файли?


7-75005
ThermiT
2002-10-20 09:32
2002.12.23
Програма при завантаженні


1-74671
^ Sanya
2002-12-12 23:28
2002.12.23
ActionManager ...


4-75029
Frostik
2002-11-05 15:26
2002.12.23
SeDebugPrivilege


6-74874
Dimich1978
2002-10-29 14:30
2002.12.23
Запустити файл на віддаленій машині?





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська