Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.006 c
