88 lines
1.8 KiB
ObjectPascal
88 lines
1.8 KiB
ObjectPascal
unit UnitConfigTCO;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls , UnitTCO;
|
|
|
|
type
|
|
TFormConfigTCO = class(TForm)
|
|
ButtonOK: TButton;
|
|
Label1: TLabel;
|
|
EditTailleCellX: TEdit;
|
|
EditTailleCellY: TEdit;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
LabelNbCellX: TLabel;
|
|
LabelNbCellY: TLabel;
|
|
ButtonDessine: TButton;
|
|
CheckDessineGrille: TCheckBox;
|
|
procedure ButtonOKClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure ButtonDessineClick(Sender: TObject);
|
|
private
|
|
{ Déclarations privées }
|
|
public
|
|
{ Déclarations publiques }
|
|
end;
|
|
|
|
var FormConfigTCO: TFormConfigTCO;
|
|
AvecGrille : boolean;
|
|
|
|
implementation
|
|
|
|
uses UnitPrinc;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TFormConfigTCO.ButtonOKClick(Sender: TObject);
|
|
var i,erreur : integer;
|
|
begin
|
|
Val(EditTailleCellX.Text,i,erreur);
|
|
LargeurCell:=i;
|
|
Val(EditTailleCellY.Text,i,erreur);
|
|
HauteurCell:=i;
|
|
with formTCO do
|
|
begin
|
|
ImageTCO.Width:=LargeurCell*NbreCellX;
|
|
ImageTCO.Height:=HauteurCell*NbreCellY;
|
|
end;
|
|
AvecGrille:=checkDessineGrille.Checked;
|
|
formTCO.affiche_TCO;
|
|
close;
|
|
end;
|
|
|
|
procedure TFormConfigTCO.FormCreate(Sender: TObject);
|
|
begin
|
|
EditTailleCellX.Text:=IntToSTR(LargeurCell);
|
|
EditTailleCellY.Text:=IntToSTR(HauteurCell);
|
|
LabelNbCellX.Caption:=IntToSTR(NbreCellX);
|
|
LabelNbCellY.Caption:=IntToSTR(NbreCellY);
|
|
|
|
end;
|
|
|
|
|
|
|
|
procedure TFormConfigTCO.ButtonDessineClick(Sender: TObject);
|
|
var i,erreur : integer;
|
|
r : Trect;
|
|
c : tCanvas;
|
|
begin
|
|
|
|
Val(EditTailleCellX.Text,i,erreur);
|
|
LargeurCell:=i;
|
|
Val(EditTailleCellY.Text,i,erreur);
|
|
HauteurCell:=i;
|
|
with formTCO do
|
|
begin
|
|
ImageTCO.Width:=LargeurCell*NbreCellX;
|
|
ImageTCO.Height:=HauteurCell*NbreCellY;
|
|
end;
|
|
formTCO.affiche_TCO;
|
|
end;
|
|
|
|
end.
|