Печать картинок

Комментарии

• gpi

  March 2006 отредактировано 16:30

  написал:

  Попробуйте убрать комментарий со строки {$DEFINE PRN_RESET} в файле FR_Prntr.pas и перекомпилировать пакет FR и ваш проект.
• brat

  March 2006 отредактировано 16:30

  У меня FreeReport 2.33 и $DEFINE PRN_RESET вообще отсутствует...????
• brat

  March 2006 отредактировано 16:30

  Может подскажете что лечит $DEFINE PRN_RESET??? А я как-нибудь сам уже подправлю... :-)
• gpi

  March 2006 отредактировано 16:30

  procedure TfrPrinter.SetPrinterIndex(Value: Integer);
  begin
    if FPrinterIndex = Value then Exit;
  
    FPrinterIndex := Value;
    if Value = FDefaultPrinter then
      SetSettings
    else if FPrinter.Printers.Count > 0 then
    begin
      FPrinter.PrinterIndex := Value;
  {$IFDEF PRN_RESET}
      FPrinter.GetPrinter(FDevice, FDriver, FPort, FDeviceMode);
      FPrinter.SetPrinter(FDevice, FDriver, FPort, 0);
  {$ENDIF}
      GetSettings;
    end;
  end;
  
• brat

  March 2006 отредактировано 16:30

  Спасибо. :-)
• brat

  March 2006 отредактировано 16:30

  Добавленный код ничем не помог :-(
  Помогло следующее - сделал картинку монохромной :-)
  Пример:

  procedure TOrderRepModule.OrderOfferReportEnterRect(Memo: TStringList; View: TfrView);
  var
   picture : TfrPictureView;
   bitmap : TBitmap;
  begin
   if( View is TfrPictureView  ) then
   begin
     picture := TfrPictureView( View );
  
     if( View.Name = 'FramePicture' ) then
     begin
       bitmap := TBitmap.Create;
       bitmap.Monochrome := true;   // Монохромная картинка
       bitmap.PixelFormat := pf1Bit;  // Монохромная картинка
       bitmap.Width := 390;
       bitmap.Height := 195;
  
       PrintFrame( bitmap );
       try
         picture.Picture.Assign( bitmap );
       finally
         FreeAndNil( bitmap );
       end;
     end;
   end;
  end;