rm_pgopt.pas

进销存·完整的·有数据库的·非常完整·只得参考

    chkUnlimitedHeight.Checked := FPageSetting.UnlimitedHeight;
    chkTaoda.Checked := FPageSetting.Taoda;
    chkPrintBackColor.Checked := FPageSetting.PrintBackColor;

    rdbPortrait.Checked := (FPageSetting.PageOr = poPortrait);
    rdbLandscape.Checked := (FPageSetting.PageOr = poLandscape);
    imgPortrait.Visible := rdbPortrait.Checked;
    imgLandScape.Visible := not rdbPortrait.Checked;

    FSpinPaperWidth.Value := FPageSetting.PageWidth / 100;
    FSpinPaperHeight.Value := FPageSetting.PageHeight / 100;

    lstBinNames.ItemIndex := FPrinterInfo.GetBinIndex(FPageSetting.PageBin);
    cmbPaperNames.ItemIndex := FPrinterInfo.GetPaperSizeIndex(FPageSetting.PageSize);

    RMEnableControls([FSpinPaperWidth, FSpinPaperHeight],
      cmbPaperNames.ItemIndex = cmbPaperNames.Items.Count - 1);
    if FSpinPaperWidth.Enabled then
    begin
      OnPagerWidthExitEvent(nil);
    end;
    FPreviewPage.DrawPage;
  finally
    FUpdating := False;
  end;
end;

procedure TRMPageSetupForm.FormCreate(Sender: TObject);
begin
  Localize;
  FPageSetting := TRMPageSetting.Create;

  FSpinPaperWidth := TRMSpinEdit.Create(Self);
  with FSpinPaperWidth do
  begin
    Parent := TabSheet1;
    SetBounds(79, 86, 86, 21);
    ValueType := rmvtFloat;
    OnExit := OnPagerWidthExitEvent;
    OnTopClick := OnPagerWidthExitEvent;
    OnBottomClick := OnPagerWidthExitEvent;
  end;
  FSpinPaperHeight := TRMSpinEdit.Create(Self);
  with FSpinPaperHeight do
  begin
    Parent := TabSheet1;
    SetBounds(79, 110, 86, 21);
    ValueType := rmvtFloat;
    OnExit := OnPagerWidthExitEvent;
    OnTopClick := OnPagerWidthExitEvent;
    OnBottomClick := OnPagerWidthExitEvent;
  end;

  FSpinMarginTop := TRMSpinEdit.Create(Self);
  with FSpinMarginTop do
  begin
    Parent := TabSheet2;
    SetBounds(119, 21, 83, 21);
    ValueType := rmvtFloat;
    MinValue := -MaxInt;
    Increment := 0.1;
    OnBottomClick := OnMarginExitEvent;
    OnTopClick := OnMarginExitEvent;
    OnExit := OnMarginExitEvent;
  end;
  FSpinMarginBottom := TRMSpinEdit.Create(Self);
  with FSpinMarginBottom do
  begin
    Parent := TabSheet2;
    SetBounds(119, 44, 83, 21);
    ValueType := rmvtFloat;
    MinValue := -MaxInt;
    Increment := 0.1;
    OnBottomClick := OnMarginExitEvent;
    OnTopClick := OnMarginExitEvent;
    OnExit := OnMarginExitEvent;
  end;
  FSpinMarginLeft := TRMSpinEdit.Create(Self);
  with FSpinMarginLeft do
  begin
    Parent := TabSheet2;
    SetBounds(119, 68, 83, 21);
    ValueType := rmvtFloat;
    MinValue := -MaxInt;
    Increment := 0.1;
    OnBottomClick := OnMarginExitEvent;
    OnTopClick := OnMarginExitEvent;
    OnExit := OnMarginExitEvent;
  end;
  FSpinMarginRight := TRMSpinEdit.Create(Self);
  with FSpinMarginRight do
  begin
    Parent := TabSheet2;
    SetBounds(119, 92, 83, 21);
    ValueType := rmvtFloat;
    MinValue := -MaxInt;
    Increment := 0.1;
    OnBottomClick := OnMarginExitEvent;
    OnTopClick := OnMarginExitEvent;
    OnExit := OnMarginExitEvent;
  end;
  FSpinColCount := TRMSpinEdit.Create(Self);
  with FSpinColCount do
  begin
    Parent := GroupBox5;
    SetBounds(68, 21, 48, 21);
    MinValue := 1;
    OnExit := OnMarginExitEvent;
  end;
  FSpinColGap := TRMSpinEdit.Create(Self);
  with FSpinColGap do
  begin
    Parent := GroupBox5;
    SetBounds(8, 68, 105, 21);
    ValueType := rmvtFloat;
    MinValue := -MaxInt;
    Increment := 0.1;
    OnExit := OnMarginExitEvent;
  end;

  FForm := Self;
  FPreviewPage := TRMPageImage.Create(Self);
  grbPreview.InsertControl(FPreviewPage);
  with FPreviewPage do
  begin
    Left := 5;
    Top := 20;
    Width := grbPreview.Width - 10;
    Height := grbPreview.Height - 30;
  end;

  PageControl1.ActivePage := TabSheet1;
end;

procedure TRMPageSetupForm.FormShow(Sender: TObject);
begin
  if FPageSetting.ColCount < 1 then
    FPageSetting.ColCount := 1;
  cmbPrinterNames.Items.Assign(RMPrinters.Printers);
  cmbPrinterNames.ItemIndex := RMPrinter.PrinterIndex;
  edtTitle.Text := FPageSetting.Title;
  PrinterChange;
end;

procedure TRMPageSetupForm.cmbPrinterNamesChange(Sender: TObject);
begin
  PrinterChange;
end;

procedure TRMPageSetupForm.cmbPaperNamesChange(Sender: TObject);
var
  index: Integer;
begin
  index := cmbPaperNames.ItemIndex;
  if Index < 0 then
    Exit;
  FPageSetting.PageSize := FPrinterInfo.PaperSizes[index];
  if Index <> cmbPaperNames.Items.Count - 1 then
  begin
    with FPrinterInfo do
    begin
      if FPageSetting.PageOr = poPortrait then
      begin
        FPageSetting.PageWidth := PaperWidths[index];
        FPageSetting.PageHeight := PaperHeights[index];
      end
      else
      begin
        FPageSetting.PageWidth := PaperHeights[index];
        FPageSetting.PageHeight := PaperWidths[index];
      end;
    end;
  end;
  PaperChange;
end;

procedure TRMPageSetupForm.rdbPortraitClick(Sender: TObject);
begin
  if rdbPortrait.Checked then
    FPageSetting.PageOr := poPortrait
  else
    FPageSetting.PageOr := poLandscape;
  PaperChange;
end;

procedure TRMPageSetupForm.OnPagerWidthExitEvent(Sender: TObject);
begin
  if ActiveControl <> btnCancel then
  begin
    FPageSetting.PageWidth := Round(FSpinPaperWidth.Value * 100);
    FPageSetting.PageHeight := Round(FSpinPaperHeight.Value * 100);
    PaperChange;
  end;
end;

procedure TRMPageSetupForm.OnMarginExitEvent(Sender: TObject);
begin
  if ActiveControl <> btnCancel then
  begin
    FPageSetting.MarginLeft := FSpinMarginLeft.Value * 10;
    FPageSetting.MarginTop := FSpinMarginTop.Value * 10;
    FPageSetting.MarginRight := FSpinMarginRight.Value * 10;
    FPageSetting.MarginBottom := FSpinMarginBottom.Value * 10;
    FPageSetting.ColCount := FSpinColCount.AsInteger;
    FPageSetting.ColGap := FSpinColGap.Value * 10;

    if FUpdating then
      Exit;
    FUpdating := True;
    try
      FPreviewPage.DrawPage;
    finally
      FUpdating := False;
    end;
  end;
end;

procedure TRMPageSetupForm.chkPrintToPrevPageClick(Sender: TObject);
begin
  FPageSetting.PrintToPrevPage := chkPrintToPrevPage.Checked;
end;

procedure TRMPageSetupForm.chkDoublePassClick(Sender: TObject);
begin
  FPageSetting.DoublePass := chkDoublePass.Checked;
end;

procedure TRMPageSetupForm.chkUnlimitedHeightClick(Sender: TObject);
begin
  FPageSetting.UnlimitedHeight := chkUnlimitedHeight.Checked;
end;

procedure TRMPageSetupForm.lstBinNamesClick(Sender: TObject);
var
  index: Integer;
begin
  index := lstBinNames.ItemIndex;
  if Index < 0 then
    Exit;
  FPageSetting.PageBin := FPrinterInfo.Bins[Index];
end;

procedure TRMPageSetupForm.chkTaodaClick(Sender: TObject);
begin
  FPageSetting.Taoda := chkTaoda.Checked;
end;

procedure TRMPageSetupForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var
  liLeft, liTop, liRight, liBottom: Double;
  liPrnInfo: TRMPrnInfo;

  function dm(pxls: integer; mmInInch: integer): Double;
  begin
    Result := pxls / RMInchPerMM / mmInInch;
  end;

begin
  if ModalResult = mrOK then
  begin
    try
      RMPrinter.PrinterIndex := cmbPrinterNames.ItemIndex;
      RMPrinter.SetPrinterInfo(FPageSetting.PageSize, FPageSetting.PageWidth, FPageSetting.PageHeight,
        FPageSetting.PageBin, FPageSetting.PageOr, FALSE);
      RMPrinter.FillPrnInfo(liPrnInfo);

      liLeft := dm(RMPrinter.PageGutters.Left, RMPrinter.PixelsPerInch.X);
      liTop := dm(RMPrinter.PageGutters.Top, RMPrinter.PixelsPerInch.Y);
      liRight := dm(RMPrinter.PageGutters.Right, RMPrinter.PixelsPerInch.X);
      liBottom := dm(RMPrinter.PageGutters.Bottom, RMPrinter.PixelsPerInch.Y);

      if (FPageSetting.MarginLeft < liLeft) or (FPageSetting.MarginTop < liTop) or
        (FPageSetting.MarginRight < liRight) or (FPageSetting.MarginBottom < liBottom) then
      begin
        if Application.MessageBox(PChar(RMLoadStr(rmRes + 213)), PChar(RMLoadStr(SWarning)),
          MB_ICONEXCLAMATION + MB_YESNO) = IDYES then
        begin
          if FPageSetting.MarginLeft < liLeft then
            FPageSetting.MarginLeft := liLeft + 0.5;
          if FPageSetting.MarginTop < liTop then
            FPageSetting.MarginTop := liTop + 0.5;
          if FPageSetting.MarginRight < liRight then
            FPageSetting.MarginRight := liRight + 0.5;
          if FPageSetting.MarginBottom < liBottom then
            FPageSetting.MarginBottom := liBottom + 0.5;

//          edtMarginTop.Text := FloatToStrF(FPageSetting.MarginTop / 10, ffGeneral, 3, 0);
//          edtMarginBottom.Text := FloatToStrF(FPageSetting.MarginBottom / 10, ffGeneral, 3, 0);
//          edtMarginLeft.Text := FloatToStrF(FPageSetting.MarginLeft / 10, ffGeneral, 3, 0);
//          edtMarginRight.Text := FloatToStrF(FPageSetting.MarginRight / 10, ffGeneral, 3, 0);
//          PageControl1.ActivePage := TabSheet2;
        end;
      end;
    except
    end;
  end;
end;

procedure TRMPageSetupForm.chkPrintBackColorClick(Sender: TObject);
begin
  FPageSetting.PrintBackColor := chkPrintBackColor.Checked;
end;

procedure TRMPageSetupForm.edtTitleExit(Sender: TObject);
begin
	if ActiveControl <> btnCancel then
    FPageSetting.Title := edtTitle.Text;
end;

procedure TRMPageSetupForm.PreviewPageSetup;
begin
	FSpinColCount.Enabled := False;
  FSpinColGap.Enabled := False;
end;

procedure TRMPageSetupForm.FormDestroy(Sender: TObject);
begin
	FPageSetting.Free;
end;

end.