Skat - Bilder in Stringgrid einfügen

[Ferber]

Hi !

So funzts:

Delphi-Quellcode:

procedure TForm1.wimageload;
var
  i: integer;
begin
  for i:=1 to 32 do
  begin
    karten[i]:=TBitmap.Create;
    karten[i].LoadFromFile(IntToStr(i)+'.bmp');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  wimageload;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  stringgrid1.Canvas.Draw(rect.left, rect.top, Karten[ACol+1]);
end;

Du könntest die Bitmaps auch als Resourcen speichern, siehe dazu den DBNavigator.