Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.01;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-1178253295
pohil
2007-05-04 08:34
2007.07.01
CDATA в XML


1-1178093554
IGray
2007-05-02 12:12
2007.07.01
Работа с настройками проложения - что нужно учесть?


15-1180445669
Kolan
2007-05-29 17:34
2007.07.01
Ищу тконки «Play» и «Stop» в стиле XP.


2-1181222942
webpauk
2007-06-07 17:29
2007.07.01
Array of TmyRec


2-1181332636
Bullfrog
2007-06-08 23:57
2007.07.01
работа с текстовым файлом