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.