Проблема с принтер диалогом

[VirtUX]

на других виджетах пробывал ?

В смысле другое GUI (пытался под GTK2) или чтот вместо TPrinterDlg пользовать (и без использования его тотже результат)? MSE чтот не прижился у меня...

[Attid]

MSE это не виджет =)
у мну дома принтера нет. так что не проверю. после праздников попробую глянуть.
если раньше ошибки не было поптом появилась, то можешь сразу в трекер, если только пробуешь тогда надо будет смотреть.


пока писал вспомнил что у меня виртуальный есть.

1, пример кода ужасный как я должен догадаться что такое LBText TabS
также можно было бы указать что надо добавить юниты PrintersDlgs, Printers
и не ужеле трудно было добавить кусок кода с переменными
var PDLG : TPrintDialog;
var X,Y,iFor : integer;

2, у меня гтк2 сразу падает с ошибкой и даже не отрабатывает PDLG.Execute
в гтк отработало 10 раз подряд. значит делай пример и в трекер или смотри что накосячили в TPrintDialog

[VirtUX]

и в GTK, и в GTK2 одинаковый результат: один раз печатает и баста. Без использования TPrinterDialog (только TPrinter) тоже самое. Мот чтот не отрабатывается (а должно) после Printer.EndDoc?

[VirtUX]

Вот пример:

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, PrintersDlgs, Printers;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    PrintDialog1: TPrintDialog;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  pdlg: PrintersDlgs.TPrintDialog;
  x, y, i: integer;
begin
  //pdlg := PrintersDlgs.TPrintDialog.Create(nil);
  //if pdlg.Execute then
  if PrintDialog1.Execute then
    begin
      x := 0;
      y := 0;
      Printer.BeginDoc;
      for i := 0 to pred(ListBox1.Items.Count) do
        begin
          printer.Canvas.TextOut(x, y, ListBox1.Items[i]);
          inc(y, printer.Canvas.GetTextHeight(ListBox1.Items[i]));
        end;
      Printer.EndDoc;
    end;
  //pdlg.Free;
end;

initialization
  {$I unit1.lrs}

end.   

Результат: первый раз печатает; остальные разы прогоняет чистую страницу.

[Attid]

переходи на МСЕ там печать вылизанна. по примеру повторяю на моей убунте работает нормально.

[alexs]

Лазрепорт тоже уже ничего работает.

[Attid]

Лазрепорт тоже уже ничего работает.

и в любом последнем линукс дистре из коробки не будет проблем с кодировками\шрифтами ?

[VirtUX]

Облазил, по моему, весь сайт fastreport-а и ненашел демо-примеров, про которые говорится в документации по freereport. Помогите разобраться - как вывести через LazReport на печать простой TStrings или array of string используя TfrUserDataSet?

[Attid]

весь сайт fastreport-а и ненашел демо-примеров

и не найдешь максимум можешь посмотреть доку на freereport а его уже портировали на лазарус

[GrayEddy]

Есть примеры, однако
%Lazarus\Components\LazReport\samples

Хороший пример для иллюстрации - это папка stringgrid.
Если и надо переделать, то это делается легко.

[alexs]

и в любом последнем линукс дистре из коробки не будет проблем с кодировками\шрифтами ?

На QT виджете - вобще всё в шолоаде печатается. На GTK2 - надо немного допилить - вот патчик:

Код: Выделить всё

Index: lr_class.pas
===================================================================
--- lr_class.pas   (revision 16634)
+++ lr_class.pas   (working copy)
@@ -2559,13 +2559,13 @@
         {$IFDEF DebugLR}
         DebugLn('2 Canvas.Font.Size=%d TextWidth=%d',[Canvas.Font.Size,Canvas.TextWidth(St)]);
         {$ENDIF}
-        while (Canvas.TextWidth(St) > nw) and (Canvas.Font.Size>1) do
+(*        while (Canvas.TextWidth(St) > nw) and (Canvas.Font.Size>1) do
         begin
           Canvas.Font.Size := Canvas.Font.Size-1;
           {$IFDEF DebugLR}
           DebugLn('Rescal font %d',[Canvas.Font.Size]);
           {$ENDIF}
-        end;
+        end;  *)
         th := -Canvas.Font.Height+Round(LineSpacing * ScaleY);
         {$IFDEF DebugLR}
         DebugLn('Th=%d Canvas.TextHeight(H)=%d',[Th,Canvas.TextHeight('H')]);

Может его кто закомитит? правдо это не кардинальное решение - там всёж надо PostScriptCanvas править насчёт расчёта ширины русских символов при печати. Но с этим патчем - всё работает.

[Павел Ишенин]

Jesus попросил написать ему лично.

[Linus]

Просьба модератору, удалите это сообщение.

[waydm]

Сообщение было написано по ошибке, извиняюсь

[Лекс Айрин]

Не знаю, в ту ли тему спросил...

при печати повторяет крайнюю строчку, превращая ее первый символ в непечатный.

Код: Выделить всё

procedure TForm1.prnButtonClick(Sender: TObject);
  Var
      PRNLine, i:integer;

  Begin
    PRNLine:=200;  // 200 это величина поля
    if PrintDialog1.Execute then
      Begin



           Printer.BeginDoc;
           Printer.Canvas.Font:= Form1.MainEditor.Font;
           For i:=0 to Form1.MainEditor.Lines.Count do
               Begin
                    PRNLine:= PRNLine+Printer.Canvas.Font.Size*10;
                    if  PRNLine+200 >= Printer.PageHeight - Printer.Canvas.Font.Size*10 then 
                      Begin
                           Printer.NewPage;
                           PRNLine:=200;
                      end
                    else begin end;
                    Printer.Canvas.TextOut( 200, PRNLine, Form1.MainEditor.Lines[i]);   
               end;
      end;
      Printer.EndDoc;

  end;               

Конечно, пример сыроват...

Печатаю на один из двух виртуальных pdf-принтеров. (foxit / doPDF). От языка не зависит.

windows XP SP2
Lazarus 1.3
FPC 2.6.2
SVN 42995

______________

Вопрос решен. Просто неверно задано условие. Непонятно, правда, почему программа не вываливалась в ошибку...

Надо For i:=0 to Form1.MainEditor.Lines.Count-1 do