unit frmEditCode;

{$mode delphi}

interface

uses
  StructuresDonnees, GHTopoGeneralFunctions, unitDatesUtils, unitGHTopoViseesUtils, unitGHTopoStringUtils,  unitColorsUtils, unitSolveEquationsPolynomes,  Classes, SysUtils, Math, // anciennement Include
  FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, Buttons
  , ToporobotClasses2012
  , CadreCode;

type

  { TdlgEditCode }

  TdlgEditCode = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CdrCode1: TCdrCode;
    Panel1: TPanel;
    procedure FormShow(Sender: TObject);
  private
    { private declarations }

  public
    { public declarations }
    function PrepareDialog(const FD: TToporobotStructure2012; const QIdx: integer; const QCode: TCode; const QCaption: string): boolean;
    function GetACode(): TCode;
    procedure Finaliser();
  end;

var
  dlgEditCode: TdlgEditCode;

implementation

{$R *.lfm}

{ TdlgEditCode }

procedure TdlgEditCode.FormShow(Sender: TObject);
begin
  DimensionnerEtCentrerFenetre(self);
end;


function TdlgEditCode.PrepareDialog(const FD: TToporobotStructure2012; const QIdx: integer; const QCode: TCode; const QCaption: string): boolean;
begin
  self.Caption := QCaption;
  result := CdrCode1.Initialiser(FD, QCode);
end;



function TdlgEditCode.GetACode: TCode;
begin
  Result := CdrCode1.GetCodeFromForm;
end;

procedure TdlgEditCode.Finaliser();
begin
  CdrCode1.Finaliser();
end;

end.