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

Вниз

Рисунок в StringGrid   Найти похожие ветки 

 
Leny   (2002-07-17 10:16) [0]

Может кто знает, возможно ли в StringGrid вставить в определ.ячейку рисунок и как это делается.


 
Катерина   (2002-07-17 10:22) [1]

Может быть воспользоваться TDrawGrid?


 
Игорь Шевченко   (2002-07-17 10:26) [2]

TStringGrid.OnDrawCell - все, что угодно можно вставить


 
Leny   (2002-07-17 10:45) [3]

Что-то у меня ничего не выходит. Не могу найти процедуру, которая вставляет рисунок
Т.е StringGrid.Cells[0,0]... - а дальше что?


 
Виктор Щербаков   (2002-07-17 10:48) [4]

"вставляет рисунок" или что-то еще придется самой в обработчике события OnDrawCell.


 
Игорь Шевченко   (2002-07-17 10:49) [5]

В help по TStringGrid есть описание события OnDrawCell.
В примере достаточно вместо Canvas.FillRect поставить Canvas.Draw (...ваш рисунок)


 
Skier   (2002-07-17 11:35) [6]

>Leny
Приблизительно так :


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
ABitmap : TBitmap;
begin
if (ACol = 1) and (ARow = 1) then begin //для ячейки [1,1]
ABitmap := TBitmap.Create;
try
ABitmap.LoadFromFile("C:\###\alarm.bmp"); //здесь укажи свой
//файл
with Sender as TStringGrid do begin
Canvas.Draw(Rect.Left + 2, Rect.Top + 2, ABitmap);
Canvas.TextOut(Rect.Left + ABitmap.Width + 4,
Rect.Top + 2,
Cells[ACol, ARow]);
end; //with
finally
ABitmap.Free;
end; //try
end; //if
end;


 
Song   (2002-07-17 12:01) [7]

2Skier © (17.07.02 11:35)
Вы видимо не читаете "Потрепаться" где обсуждаются темы о том, что чтобы дать человеку потреннироваться и научиться Дельфи, НЕ СЛЕДУЕТ давать готовых примеров, если уже и так всё расжовано!


 
Skier   (2002-07-17 12:06) [8]

>Song
Во-первых это девушка, а девушкам завсегда приятно помочь.
А во-вторых : это что - наезд ! :))


 
Song   (2002-07-17 12:19) [9]

Даже девушкам нужно тоже учиться, а не пользоваться готовым.


 
Skier   (2002-07-17 12:27) [10]

>Song
Если серьёзно : то я с тобой совершенно не согласен !
Учится как раз лучше на готовым примерах, анализировать
их и разбирать (к моему коду это не относится :) )

А вообще надо завязывать с трёпом, а то эту ветку отсюда
выкинут...


 
Игорь Шевченко   (2002-07-17 12:30) [11]

Song © (17.07.02 12:19)

Даже в help"е Delphi есть examples

А при поставке еще и Demos каталог появляется..

С уважением,


 
Song   (2002-07-17 12:55) [12]

Да, только большинство людей, имеющих такие вопросы просто тупо вставляют их к себе в текст программы и забывают.. Какое там анализирование... разбор...


 
Игорь Шевченко   (2002-07-17 13:00) [13]

Song © (17.07.02 12:55)

Со временем разберутся...может быть...

С уважением,



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

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

Наверх





Память: 0.47 MB
Время: 0.006 c
14-95563
Polygon
2002-07-03 13:58
2002.07.29
IBX for Kylix 2


4-95618
Фокс
2002-05-23 08:40
2002.07.29
Завершение работы ОС


7-95576
KPbIC
2002-05-12 03:46
2002.07.29
Enable/disable divice


3-95256
Nikolka
2002-07-09 11:33
2002.07.29
Не запускается приложение с локальной БД


3-95193
_dron_
2002-07-05 19:40
2002.07.29
Подскажите, плз, побыстрее две базы в Interbase (локальные)





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