Вывод пиктограмки из ИмиджЛиста в ячейку грида

[qivi]

Вот так я практиковал вывод пиктограмки в ДБ гриде:

Код: Выделить всё

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var bp:TBitmap;
begin

 bp:=TBitmap.Create;

  If Column.FieldName='N' then
   begin

    with DBGrid1.Canvas do
     begin
      Brush.Color:= clWhite;
      FillRect(Rect);
      ImageList1.GetBitmap(0,bp);
      Draw(round((Rect.Left+Rect.Right-bp.Width)/2),round((Rect.Top+Rect.Bottom-bp.Height)/2),bp);
     end;
   end;
end;  

Вот так пытаюсь переделать для простого грида:

Код: Выделить всё

procedure TForm2.SGridDrawCell(Sender: TObject; aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState);
  var bp:TBitmap;
begin

bp:=TBitmap.Create;

 If SGrid.Columns.Items[0] then
  begin
    SGrid.Canvas.Brush.Color:=clWhite;
    SGrid.Canvas.FillRect(Rect);
    IL.GetBitmap(0, bp);
    {with SGrid.Canvas do
    begin
     Brush.Color:= clWhite;
     //FillRect(Rect);
     IL.GetBitmap(0,bp);
     Draw(round((Rect.Left+Rect.Right-bp.Width)/2),round((Rect.Top+Rect.Bottom-bp.Height)/2),bp);
    end;}
  end;

end; 

Компилятор ругается:

unit2.pas(62,27) Error: Wrong number of parameters specified for call to "Rect"

на строку:

Код: Выделить всё

    SGrid.Canvas.FillRect(Rect);    

Подскажите пожалуйста что не так и как реализовать это? Возможно в простом гриде это делается совсем иначе?

[Vadim]

qivi
А Вы не заметили, что во втором случае параметр процедуры называется не Rect. а aRect?

[qivi]

А Вы не заметили, что во втором случае параметр процедуры называется не Rect. а aRect?

Честно сказать не знал. Не так часто отступаю от стандартных возможностей компонентов.
Теперь жалуется на If SGrid.Columns.Items[0] then, чем можно заменить ДБГридовский Column.FieldName в простом гриде?
Есть ли пример по выводу пиктограмок в стандартный грид?

[leo_bsv]

Код: Выделить всё

procedure TForm1.Button6Click(Sender: TObject);
var b:TBitmap;
    x,y:integer;
    r:TRect;
begin
  b:=TBitmap.Create;
  ImageList1.GetBitmap(0,b);
  r:=StringGrid1.CellRect(1,1); // прямоугольник ячейки, в которую вставляем рисунок...
  StringGrid1.Canvas.Draw(r.Left,r.Top,b);
end;

[Nik]

Я рисую проще:

Код: Выделить всё

procedure TMainForm.MyGridDrawCell(Sender: TObject; aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState);
begin

 with MyGrid as TStringGrid do
  begin
   ....
   Canvas.FillRect(aRect);
   ImageList.Draw(Canvas, aRect.Left, aRect.Top, 1);
  // 1 - индекс картинки в ImageList
   ...
  end;

end;

[Vadim]

Честно сказать не знал. Не так часто отступаю от стандартных возможностей компонентов.

Нет, это называется по другому - "Я не посмотрел на заголовок процедуры".

[Nik]

Честно сказать не знал. Не так часто отступаю от стандартных возможностей компонентов.

Нет, это называется по другому - "Я не посмотрел на заголовок процедуры".

Кстати говоря, этот параметр переименовали недавно. С полгода назад я перекомпилировал старую Delphi-прогу, там этот параметр был назвал именно Rect - и всё прекрасно работало. А в какой-то момент после очередного обновления из SVN компилятор стал ругаться на Rect, поскольку имя параметра сменили. так что сдаётся мне, в последней стабильной версии Lazarus должен быть именно Rect.