bild in draw- oder stringgrid laden

[taaktaak]

na, auf die Schnelle mal was zum StringGrid:

Delphi-Quellcode:

procedure u_sgTopicsDrawCell(Sender:TObject;ACol,ARow:Integer;Rect:TRect;State:TGridDrawState);
begin
  if ARow=3 then
    if ACol> 2 then
      with Sender as TStringGrid do
        with (Sender as TStringGrid).Canvas do begin
          Font.Color:=clBlack;
          if EditMode then if gdSelected in State then Brush.Color:=clBtnFace
                                                  else Brush.Color:=Color
    
                      else if gdSelected in State then begin Brush.Color:=clHighLight;
                                                             Font. Color:=clWhite;
                                                             end
  
                                                  else Brush.Color:=Color;
          FillRect(Rect);
          Rect.Right:=Rect.Right-lbLeftBorder;
          TextRect(Rect,Rect.Left+lbLeftBorder,Rect.Top+2,Cells[ACol,ARow]);
          end;
end;

Hat mit deiner konkreten Anforderung leider nix zu tun. Hier wird nur Text mit besonderer Formatierung ausgegeben, wenn die Zeile 3 und die Spalten >2 gezeichnet werden. Statt der Textausgabe musst du dann dein Icon zeichnen. - Hab' jetzt leider keine Zeit mehr: Muss für Töchterlein noch ein Referat fertig machen