Delphi-Quellcode:
Uses ..,Cards32;
procedure TForm1.FormCreate(Sender: TObject);
begin
MyCards := TCards.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyCards.DrawCard(Canvas.Handle,Point(10,10),suitClubs,faceKing,False);
end;
Das funktioniert ohne Fehlermeldung, es erscheint allerdings die falsche Karte bei mir. Mit 'True' am Schluss (invertiert) erscheint die richtige Karte.
@neolithos: scheint noch ein Problem in der Klasse zu sein?
btw: Hatte vorher nicht geblickt, dass neolithos eine richtige Klasse gemacht hat, dachte er hat nur die
API-Aufrufe konvertiert. So muss man ja nix mehr machen, nur noch createn...
Gruss, teebee