Главная страница
    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);
var
Im1: TBitmap;
begin
if Column.FieldName = "LOTE_STATUS" then
begin
with DBGrid_Deal.Canvas do
begin
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.56 MB
Время: 0.033 c
4-75031
Sergadm
2002-11-09 09:04
2002.12.23
получить значение из процесса


1-74672
Bones
2002-12-13 04:01
2002.12.23
Как установить DelphiXD6?


14-74912
MaximatorVeter
2002-11-28 21:44
2002.12.23
Мудрость приходящая с годами


3-74547
Alexsandr (GEG)
2002-12-04 09:52
2002.12.23
DBGrid фокус на ячейку (строку)


1-74810
denis24
2002-12-11 16:36
2002.12.23
Stringgrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский