InraPorc

unit UFRapportMat;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls, QuickRpt, UVariables, gnugettext;

type

  TFRapportMat = class(TForm)

    SBRapMatElem: TSpeedButton;

    SBRapMatAA: TSpeedButton;

    SBRapMatAG: TSpeedButton;

    SBRapMatMin: TSpeedButton;

    ChkRapMatElem: TCheckBox;

    ChkRapMatAA: TCheckBox;

    ChkRapMatAG: TCheckBox;

    CHKRapMatMin: TCheckBox;

    BBPrint: TBitBtn;

    PD: TPrintDialog;

    BBClose: TBitBtn;

    procedure SBRapMatElemClick(Sender: TObject);

    procedure SBRapMatAAClick(Sender: TObject);

    procedure SBRapMatAGClick(Sender: TObject);

    procedure SBRapMatMinClick(Sender: TObject);

    procedure BBPrintClick(Sender: TObject);

    procedure ChkRapMatClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FRapportMat: TFRapportMat;

implementation

uses

  Printers, UUtil, UFRapMatElem, UFRapMatAA, UFRapMatAG, UFRapMatMin;

{$R *.dfm}

{ TFRapportMat }

procedure TFRapportMat.FormCreate(Sender: TObject);

begin

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

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

end;

procedure TFRapportMat.ChkRapMatClick(Sender: TObject);

begin

  BBPrint.Enabled := (IsComplete or IsEducation)

    and (ChkRapMatElem.Checked or ChkRapMatAA.Checked or ChkRapMatAG.Checked or ChkRapMatMin.Checked);

end;

procedure TFRapportMat.SBRapMatElemClick(Sender: TObject);

begin

  FRapMatElem := TFRapMatElem.Create(Self);

  FRapMatElem.QRRapport.PreviewModal;

  FRapMatElem.Release;

end;

procedure TFRapportMat.SBRapMatAAClick(Sender: TObject);

begin

  FRapMatAA := TFRapMatAA.Create(Self);

  FRapMatAA.QRRapport.PreviewModal;

  FRapMatAA.Release;

end;

procedure TFRapportMat.SBRapMatAGClick(Sender: TObject);

begin

  FRapMatAG := TFRapMatAG.Create(Self);

  FRapMatAG.QRRapport.PreviewModal;

  FRapMatAG.Release;

end;

procedure TFRapportMat.SBRapMatMinClick(Sender: TObject);

begin

  FRapMatMin := TFRapMatMin.Create(Self);

  FRapMatMin.QRRapport.PreviewModal;

  FRapMatMin.Release;

end;

procedure TFRapportMat.BBPrintClick(Sender: TObject);

begin

  if PD.Execute

  then

  begin

    if ChkRapMatElem.Checked

    then

    begin

      FRapMatElem := TFRapMatElem.Create(Self);

      FRapMatElem.QRRapport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

      FRapMatElem.QRRapport.Print;

      FRapMatElem.Release;

    end ;

    if ChkRapMatAA.Checked

    then

    begin

      FRapMatAA := TFRapMatAA.Create(Self);

      FRapMatAA.QRRapport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

      FRapMatAA.QRRapport.Print;

      FRapMatAA.Release;

    end ;

    if ChkRapMatAG.Checked

    then

    begin

      FRapMatAG := TFRapMatAG.Create(Self);

      FRapMatAG.QRRapport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

      FRapMatAG.QRRapport.Print;

      FRapMatAG.Release;

    end ;

    if ChkRapMatMin.Checked

    then

    begin

      FRapMatMin := TFRapMatMin.Create(Self);

      FRapMatMin.QRRapport.PrinterSettings.PrinterIndex := Printer.PrinterIndex;

      FRapMatMin.QRRapport.Print;

      FRapMatMin.Release;

    end ;

    Close;

  end;

end;

end.