- unit Unit1;
-
- //Programme par Yoann
- //http://delphipage.free.fr/
-
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls;
-
- type
- TForm1 = class(TForm)
- Button1: TButton;
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- private
- { Déclarations privées }
- Wdth:integer;
- Hght:integer;
- public
- { Déclarations publiques }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.DFM}
-
- function cdtDraw(DC:HDC; X,Y,Card,Typ:Integer; Color:TColor):Integer; StdCall; external 'CARDS.DLL';
- function cdtInit(var Width,Height:Integer):Integer; StdCall; external 'CARDS.DLL';
- function cdtTerm:Integer; StdCall; external 'CARDS.DLL';
-
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- cdtInit(Wdth,Hght); //Initialise la DLL
- end;
-
- procedure TForm1.FormDestroy(Sender: TObject);
- begin
- cdtTerm; //Libère les ressources allouées
- end;
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- cdtDraw(Form1.Canvas.Handle,105,48,2,0,clWhite); //Affiche l'as de coeur
- end;
-
- end.
unit Unit1;
//Programme par Yoann
//http://delphipage.free.fr/
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
Wdth:integer;
Hght:integer;
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function cdtDraw(DC:HDC; X,Y,Card,Typ:Integer; Color:TColor):Integer; StdCall; external 'CARDS.DLL';
function cdtInit(var Width,Height:Integer):Integer; StdCall; external 'CARDS.DLL';
function cdtTerm:Integer; StdCall; external 'CARDS.DLL';
procedure TForm1.FormCreate(Sender: TObject);
begin
cdtInit(Wdth,Hght); //Initialise la DLL
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
cdtTerm; //Libère les ressources allouées
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
cdtDraw(Form1.Canvas.Handle,105,48,2,0,clWhite); //Affiche l'as de coeur
end;
end.