Добавление иконок в StringGrid

[oleg_498]

Имеется StringGrid, так же есть 4 иконки (.ico), помещенные в ImageList.
Необходимо заполнить иконками StringGrid, а так же в дальнейшем суметь понять какая из иконок находится в определенной ячейке.

[Stilet]

Необходимо заполнить иконками StringGrid

Рисуй их в событии OnDrawCell грида. Там для каждой ячейки будет и номера колонки строки и область отрисовки.
Примеры на форуме есть.

понять какая из иконок находится в определенной ячейке.

А каков критерий их отрисовки?
Можешь помещать в свойство Object[колонка, строка] указатель на отрисованную иконку. Тогда можно будет узнать какая иконка отрисована на канве ячейки.

[oleg_498]

Stilet, можно по подробнее? Bitmap у меня получается загружать, но с иконками по какой-то причине не выходит...

[Stilet]

А ты показывай как пробовал.

[oleg_498]

     
//...
  StringGrid1.Objects[aCol,aRow]:=TIcon.Create;
  ImageList1.GetIcon(i,(StringGrid1.Objects[aCol,aRow] as TIcon));
//...

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  If StringGrid1.Objects[ACol,ARow] is TIcon then
    with StringGrid1.Canvas do
    begin
      FillRect(Rect);
      Draw(Rect.Left,Rect.Top,TIcon(StringGrid1.Objects[ACol,ARow]));
    end;
end;

Быть может кто-нибудь хотя бы покажет как поместить в ячейку указатель на иконку?

[Sciv]

Засунь все иконки в ImageList и рисуй им на канве ячейки Грида:

StringGrid1.Canvas.FillRect(Rect);
Imagelist.Draw(StringGrid1.Canvas,Rect.Left+(Rect.Right-Rect.Left-20) div 2,Rect.Top+(Rect.Bottom-Rect.Top-20) div 2,0);

Жирным я выделил номер иконки в имейджлисте - начинается с нуля.
На +,-, div - не обращай внимание, взял из одной свое проги, так я вычислял середину ячейки, чтоб не выводить иконку в углу.

[Stilet]

Быть может кто-нибудь хотя бы покажет как поместить в ячейку указатель на иконку?

Где-то в программе ты назначаешь каждой ячейке номер иконки:
К примеру случайным образом разместить иконки:

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
Randomize;
with StringGrid1 do
 for i:=0 to RowCount-1 do
  for j:=0 to ColCount-1 do
   StringGrid1.Objects[i,j]:=TObject(Round(ImageList1.Count-1));
end;

Далее отрисовка

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 ImageList1.Draw(StringGrid1.Canvas,rect.Left,rect.Top,integer(StringGrid1.Objects[acol,arow]));
end;

Таким образом конструкция:integer(StringGrid1.Obj ects[acol,arow]) указывает номер иконки в списке.

[oleg_498]

Всем спасибо! Попробую, отпишусь.