| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Рисунок в StringGrid
Leny © (2002-07-17 10:16:00)Может кто знает, возможно ли в StringGrid вставить в определ.ячейку рисунок и как это делается.
Игорь Шевченко (2002-07-17 13:00:00) [1]Song © (17.07.02 12:55)
Со временем разберутся...может быть...
С уважением,
Song (2002-07-17 12:55:00) [2]Да, только большинство людей, имеющих такие вопросы просто тупо вставляют их к себе в текст программы и забывают.. Какое там анализирование... разбор...
Игорь Шевченко (2002-07-17 12:30:00) [3]Song © (17.07.02 12:19)
Даже в help"е Delphi есть examples
А при поставке еще и Demos каталог появляется..
С уважением,
Skier (2002-07-17 12:27:00) [4]>Song
Если серьёзно : то я с тобой совершенно не согласен !
Учится как раз лучше на готовым примерах, анализировать
их и разбирать (к моему коду это не относится :) )
А вообще надо завязывать с трёпом, а то эту ветку отсюда
выкинут...
Song (2002-07-17 12:19:00) [5]Даже девушкам нужно тоже учиться, а не пользоваться готовым.
Skier (2002-07-17 12:06:00) [6]>Song
Во-первых это девушка, а девушкам завсегда приятно помочь.
А во-вторых : это что - наезд ! :))
Song (2002-07-17 12:01:00) [7]2Skier © (17.07.02 11:35)
Вы видимо не читаете "Потрепаться" где обсуждаются темы о том, что чтобы дать человеку потреннироваться и научиться Дельфи, НЕ СЛЕДУЕТ давать готовых примеров, если уже и так всё расжовано!
Skier (2002-07-17 11:35:00) [8]>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;
Игорь Шевченко (2002-07-17 10:49:00) [9]В help по TStringGrid есть описание события OnDrawCell.
В примере достаточно вместо Canvas.FillRect поставить Canvas.Draw (...ваш рисунок)
Виктор Щербаков (2002-07-17 10:48:00) [10]"вставляет рисунок" или что-то еще придется самой в обработчике события OnDrawCell.
Leny (2002-07-17 10:45:00) [11]Что-то у меня ничего не выходит. Не могу найти процедуру, которая вставляет рисунок
Т.е StringGrid.Cells[0,0]... - а дальше что?
Игорь Шевченко (2002-07-17 10:26:00) [12]TStringGrid.OnDrawCell - все, что угодно можно вставить
Катерина (2002-07-17 10:22:00) [13]Может быть воспользоваться TDrawGrid?
| |
