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

Вниз

StringGrid и Image   Найти похожие ветки 

← →
UMU ©   (2007-06-05 17:21) [0]

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

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

---

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

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

---

← →
UMU ©   (2007-06-05 17:35) [2]

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:43) [3]

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


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

---

← →
Плохиш ©   (2007-06-05 17:48) [4]

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) [5]

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

---

← →
UMU ©   (2007-06-05 20:32) [6]

Получилось.

Спасибо

---

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

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

Наверх

Память: 0.45 MB
Время: 0.005 c