InraPorc

unit UFPrevGraph;

interface

uses

  Windows, Forms, Classes, Controls, Messages, StdCtrls, Buttons, ExtCtrls,

  TeeProcs, TeePreviewPanel;

type

  TFPrevGraph = class(TForm)

    LBas: TPanel;

    BBPrint: TBitBtn;

    TPPGraph: TTeePreviewPanel;

    LPrinter: TLabel;

    CBPrinter: TComboBox;

    procedure FormShow(Sender: TObject);

    procedure BBPrintClick(Sender: TObject);

    procedure CBPrinterChange(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure WMSysCommand(var Mess: TWMSysCommand); message WM_SYSCOMMAND;

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FPrevGraph: TFPrevGraph;

implementation

uses

  Printers, SysUtils, gnugettext, UUtil;

{$R *.dfm}

procedure TFPrevGraph.FormCreate(Sender: TObject);

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

end;

procedure TFPrevGraph.FormShow(Sender: TObject);

begin

  BBPrint.Enabled := IsComplete or IsEducation ;

  BBPrint.Enabled := IsComplete or IsEducation ;

  CBPrinter.Items.Assign(Printer.Printers);

  CBPrinter.ItemIndex := Printer.PrinterIndex;

end;

procedure TFPrevGraph.BBPrintClick(Sender: TObject);

begin

  TPPGraph.Print;

end;

procedure TFPrevGraph.CBPrinterChange(Sender: TObject);

begin

  Printer.PrinterIndex := CBPrinter.ItemIndex;

end;

procedure TFPrevGraph.WMSysCommand(var Mess: TWMSysCommand);

begin

  if Mess.CmdType = SC_MINIMIZE

  then

    Application.Minimize

  else

    inherited;

end;

end.