Ich möchte in einem Stringrid in jede Zelle ein Bildeinfügen. Das Bild ist nicht in jeder Zelle gleich
Ich habe bisher im Internet das gefunden bzw selber geschrieben:
Code: Alles auswählen
procedure TForm4.FormActivate(Sender: TObject);
var
bmp:TGraphic;
theRect: TRect;
OriginePoint:TPoint;
begin
DrawGrid1.Width:=400;
DrawGrid1.height:=200;
bmp := Tbitmap.Create;
OriginePoint.Create(0,0);
theRect.Create(OriginePoint,10,10);
bmp.LoadFromFile('Blocks\Holz1\Holz1.bmp');
SetCellPicture(theRect,bmp,StringGrid1);
end;
procedure TForm4.SetCellPicture(Rect: TRect; Picture: TGraphic; Grid : TStringGrid);
begin
Grid.Canvas.StretchDraw(Rect, Picture);
end;
Ich brauche theoretisch auch nicht zwingend ein Stringgrid, ich brauche nur ein Grid wo ich verfolgen kann, auf welches Bild der Nutzer geklickt hat.
Kennt sich da jemand aus?