Skat - Bilder in Stringgrid einfügen

[tankm26]

MoinMoin!

Mir gelingt es nicht Spielkarten in ein Stringgrid einzufügen. Nach meinen Versuchen bekam ich stets alle Karten auf allen "Cols" angezeigt. Wer kann mir hierbei helfen?


mfg


Wieland

Delphi-Quellcode:

unit skat1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ScktComp, StdCtrls, Grids, ExtCtrls, ImgList,
  ActnList, ComCtrls;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    start1: TMenuItem;
    neuerunde1: TMenuItem;
    beenden1: TMenuItem;
    hilfe1: TMenuItem;
    regeln1: TMenuItem;
    reglnfrdeppen1: TMenuItem;
    regelnfrleutediezudooffrsaktsind1: TMenuItem;
    JA: TButton;
    NEIN: TButton;
    StringGrid1: TStringGrid;
    procedure beenden1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    procedure wimageload;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  karten:array[1..32] of TBitmap;
  spieler1:array[0..9] of Integer;
  spieler2:array[0..9] of Integer;
  spieler3:array[0..9] of Integer;
  karten2d,auswahl,richtig: array [0..15,0..15] of integer;
  skat2,skat3:integer;
  dransein:integer;

implementation

{$R *.dfm}

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

procedure TForm1.beenden1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  w: integer;
begin
wimageload;
  for w:=0 to 31 do begin
        stringgrid1.col:=w;
        stringgrid1.Canvas.Draw(karten[w]);
  end;
end;



procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  w: integer;
begin

end;
end.