| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

StringGrid и Image

UMU ©   (2007-06-05 17:21:00) 

Подскажите, пожалуйста, можно ли, в определенные ячейки StringGrid'a, вставлять рисунок из Image?

Если можно, то как.

---

UMU   (2007-06-05 20:32:00) [1]

Получилось.

Спасибо

---

Плохиш   (2007-06-05 17:48:00) [2]

procedure Tfrm.StringGridDrawCell(Sender: TObject; ACol, ARow:Integer;
Rect: TRect; State: TGridDrawState);
Begin
 with (Sender as TStringGrid) do
   if Cells[ACol, ARow] = 'Image' then
   begin
      Canvas.Draw(50, 50, BitMap);
   End;
End;

---

Плохиш   (2007-06-05 17:48:00) [3]

50,50 --> 1,1 :-)

---

Германн   (2007-06-05 17:43:00) [4]

> UMU ©   (05.06.07 17:35) [2]


В этом обработчике ты должен отрисовывать только ячейку ACol, ARow

---

UMU   (2007-06-05 17:35:00) [5]

procedure Tfrm.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var
 x, y:  integer;
Begin
 with (Sender as TStringGrid) do
     begin
        for x := 0 to ColCount - 1 do
             begin
                for y := 0 to RowCount - 1 do
                    begin
                       if (StringGrid1.Cells[x, y] = 'Image') then
                          begin
                            // StringGrid1.Cells[x, y] - в этой(их) ячейке(ах) надо вставить рисунок  
                          end;
                    end;
             end;
     End;
End;

Но как его вставить не знаю

---

Однокамушкин   (2007-06-05 17:23:00) [6]

Назначить обработчик события OnDrawCell у TStringGrid и в нём рисовать картинку из TImage...

---

Наверх