Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Вниз

Поле в Grid в виде набора графических картинок   Найти похожие ветки 

 
fav   (2003-01-05 07:44) [0]

Здравствуй многоуважаемый ALL!!!
Описание: Есть таблица с полем значение которого может быть от 0 до 3. В зависимотсти от значения выводится в Grid текстовое сообщение типа "Ok!", "Error" и т.д.
Вопрос: Можноли приделать механизм чтобы вместо сообщений выводить иконки или bmp картинки... Чтобы отображать графически состояние (значение) этого поля ;)))


 
Song   (2003-01-05 08:51) [1]

Ну а чего нет-то?
Запихай в TImageList твой картинки, например 0 иконка будет Ok, 1 - Cancel, 2 - Error

и на событии onDrawCell различай (например эти картинки у тебя будут в нулевой колонке):

IF ACol=0 then
Begin
BitMap:=TBitMap.Create;
try
ImageList1.GetBitMap(BitMap,StrToInt(Cells[ACol,ARow]));
TStringGrid(Sender).Canvas.Draw(Rect.Left+2,Rect.Top+2,BitMap);
finally
BitMap.Free;
end;
End;



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

Форум: "Основная";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.007 c
14-49250
Olivka
2002-12-26 20:31
2003.01.16
Бесплатность? ShareWare FIBplus


6-49174
k-sergey
2002-11-15 12:57
2003.01.16
Кто знает!!!!! Как отправить письмо.....только не через почтовую


14-49247
Dimas
2002-12-26 17:23
2003.01.16
File not found: system.pas


14-49208
Gari
2002-12-25 15:02
2003.01.16
Как вывести текст в другом приложении.


1-49110
Alex S
2003-01-04 15:15
2003.01.16
Взаимодействие с MS Office





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский