unit PrinterSetupDlgUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, plSetPrinter, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Label1: TLabel;
    plSetPrinter1: TplSetPrinter;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private 宣言 }
    FDefaultFileName : string;
    LRepFileName     : string;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  フォーム作成時の処理
//
//  (1)起動時の設定を保存
//  (2)前回保存した設定を読出
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  FDefaultFileName := plSetPrinter1.Name + 'Default.plv';
  LRepFileName     := plSetPrinter1.Name + '.plv';

  //起動時の値を保存
  plSetPrinter1.SaveToFile(FDefaultFileName);
  //ファイルが存在する場合には読出し
  plSetPrinter1.LoadFromFile(LRepFileName);
end;

//=============================================================================
//  BitBtn1クリックでプリンタ設定ダイアログを表示
//  設定した内容をファイルに保存する．
//=============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  //[OK]ボタン押下で設定値を保存
  if plSetPrinter1.ShowSetupDialog then begin
    plSetPrinter1.SaveToFile(LRepFileName);
  end;
end;

//=============================================================================
//  起動時の設定に戻す
//=============================================================================
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  if plSetPrinter1.LoadFromFile(FDefaultFileName) then begin
    ShowMessage('起動時のプロパティに戻しました');
  end;
end;

//=============================================================================
//  保存した設定を再度読込む
//=============================================================================
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  if plSetPrinter1.LoadFromFile(LRepFileName) then begin
    ShowMessage('保存した設定にしました');
  end;
end;

end.