Discussion :

[philgeorges]

Bonjour à tous,

Pas d'impression possible avec la nouvelle version 2.0 sous Cocoa ?

Quelqu'un a-t-il vu la possibilité d'imprimer (un simple contenu de canvas, par exemple) en profitant de la pré visualisation, sur le Mac ?

J'utilise Lazarus 2.0 avec les options 'cocoa' hélas toujours en 32 bits...

Merci d'avance

Phil

[BeanzMaster]

Bonsoir

Pourrais-tu fournir le code que tu utilises ou en cherches tu un ?

Si tu as déja du code. Est ce que ce code fonctionnait avec une version antérieur ?

En attendant voici un bout de code que j'utilise pour imprimer un "Canvas" (uniquement tester sous windows. Cela fait un gros moment que je n'ai pas allumé mon Mac)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
uses
  PrintersDlgs,
  Printers;   // Unité utile pour l'impression
 
Type 
  TfrmMain = class(TForm)
    DlgPrint: TPrintDialog
  private
  end;
 
procedure TfrmMain.sbtnPrintClick(Sender: TObject);
var
  LPrinter : TPrinter;
  LBitMap : TBitMap;
  nw,nh : Integer;
 
 Procedure KeepAspectRatio(Const SrcW, SrcH: Integer; Var NewWidth, NewHeight: Integer);
 Var
   w, h: Integer;
 Begin
 
   W := NewWidth;
   H := newHeight;
   H:=(SrcH*W) div SrcW;
   if (H>newHeight) then
   begin
     H:=newHeight;
     W:=(SrcW*H) div SrcH;
   end;
   NewWidth:=W;
   newHeight:=H;
 End;
 
begin
  if DlgPrint.Execute then
  begin
    LPrinter := Printer;
    LPrinter.Copies := DlgPrint.Copies;
    try
 
      LBitMap := TBitMap.Create;
      nw := LPrinter.PaperSize.Width;
      nh := LPrinter.PaperSize.Height;
      KeepAspectRatio(pnlResultat.Width,pnlResultat.Height,nw,nh);
      LBitMap.Width := pnlResultat.Width;
      LBitMap.Height := pnlResultat.Height;
      pnlResultat.Color:= clWhite;
      pnlResultat.PaintTo(LBitMap.Canvas, 0, 0);
      pnlResultat.Color:= clDefault;
 
      LPrinter.BeginDoc;
     // LPrinter.Title := 'Un titre';
 
      LPrinter.Canvas.CopyRect(Classes.Rect(0, 480, nw, 480+nh),
               LBitMap.Canvas, Classes.Rect(0, 0, LBitMap.Width, LBitMap.Height));
 
    finally
      LPrinter.EndDoc;
      LBitMap.Free;
    end;
  end;
end;

A+

[philgeorges]

Bonjour

Voici le code que j'ai utilisé pour faire le test :

Sous windows, pas de problème,

Sous cocoa, rien ! même la prévisualisation Cocoa n'affiche rien. Page blanche à l'impression.

Si quelqu'un a une idée....et un mac pour tester avec la dernière version de Lazarus !!

Merci d'avance,

// code de l'unité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
unit Unit1;
 
 
{$mode objfpc}{$H+}
 
 
interface
 
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
  Printers,
  StdCtrls, ExtCtrls,
  PrintersDlgs;
 
 
type
 
 
  { TForm1 }
 
 
  TForm1 = class(TForm)
  DlgPrint: TPrintDialog;
    Button1: TButton;
    Image1: TImage;
    Pnlresultat: TPanel;
 
 
    procedure Button1Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
 
 
  public
 
 
  end;
 
 
var
  Form1: TForm1;
 
 
implementation
 
 
{$R *.lfm}
 
 
{ TForm1 }
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  LPrinter : TPrinter;
  LBitMap : TBitMap;
  nw,nh : Integer;
 
 
 Procedure KeepAspectRatio(Const SrcW, SrcH: Integer; Var NewWidth, NewHeight: Integer);
 Var
   w, h: Integer;
 Begin
 
 
   W := NewWidth;
   H := newHeight;
   H:=(SrcH*W) div SrcW;
   if (H>newHeight) then
   begin
     H:=newHeight;
     W:=(SrcW*H) div SrcH;
   end;
   NewWidth:=W;
   newHeight:=H;
 End;
 
 
begin
  if DlgPrint.Execute then
  begin
    LPrinter := Printer;
    LPrinter.Copies := DlgPrint.Copies;
    try
 
 
      LBitMap := TBitMap.Create;
      nw := LPrinter.PaperSize.Width;
      nh := LPrinter.PaperSize.Height;
      KeepAspectRatio(pnlResultat.Width,pnlResultat.Height,nw,nh);
      LBitMap.Width := pnlResultat.Width;
      LBitMap.Height := pnlResultat.Height;
      pnlResultat.Color:= clWhite;
      pnlResultat.PaintTo(LBitMap.Canvas, 0, 0);
      pnlResultat.Color:= clDefault;
 
 
      LPrinter.BeginDoc;
     // LPrinter.Title := 'Un titre';
 
 
      LPrinter.Canvas.CopyRect(Classes.Rect(0, 480, nw, 480+nh),
               LBitMap.Canvas, Classes.Rect(0, 0, LBitMap.Width, LBitMap.Height));
 
 
    finally
      LPrinter.EndDoc;
      LBitMap.Free;
    end;
  end;
end;
 
 
procedure TForm1.Image1Click(Sender: TObject);
begin
 
 
end;
 
 
end.

[BeanzMaster]

Bonjour

Après

pnlResultat.PaintTo(LBitMap.Canvas, 0, 0);Peux-tu rajouter LBitmap.SavetToFile('test.bmp'); et vérifier que le bitmap n'est pas vide. Si c'est le cas c'est qu'il y a un soucis en rapport avec le TImage..
Si tu rajoutes un Label dans "pnlResultat" est-ce que le Label est imprimé ?

A+

[philgeorges]

Merci de t'interesser à mon cas !!

Donc, j'ai ajouté cette ligne : Lbitmap.savetofile(extractfilepath(application.exename)+'georges.bmp');.

Sur PC : ça marche, j'ai bien un contenu dans mon image ! l'impression est correcte.

Sur MAC : l'image est toute blanche, comme l'est la page blanche !!

Une idée ? Le PaintTo ne marche pas sur mac....???

Phil

[philgeorges]

Bonjour

Après

pnlResultat.PaintTo(LBitMap.Canvas, 0, 0);Peux-tu rajouter LBitmap.SavetToFile('test.bmp'); et vérifier que le bitmap n'est pas vide. Si c'est le cas c'est qu'il y a un soucis en rapport avec le TImage..
Si tu rajoutes un Label dans "pnlResultat" est-ce que le Label est imprimé ?

A+

J'oubliai ! Le label ajouté sur le Panel n'est présent ni dans l'image sur Mac, ni bien sur à l'impression.
Par contre ça marche sur PC ! L'image en BMP est bien produite, et l'impression est correcte.

Phil

[BeanzMaster]

Bonsoir

Cocoa n'étant toujours pas en version stable, il n'est pas étonnant que certains problèmes subsistent. Il n'y a d'ailleurs aucun rapport de bogue ouvert à ce sujet dans le bugtracker. Il serait bon d'en faire un.

Essaye de remplacer pnlResultat.PaintTo(LBitMap.Canvas, 0, 0); par LBitmap.Canvas.CopyRect(Rect(0,0,pnlResultat.ClientWidth, pnlResultat.ClientHeight),pnlResultat.Canvas, pnlResultat.ClientRect);
A+

[philgeorges]

Rien de plus, j'ai placé un message sur le forum lazarus / Free Pascal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 try
 
      LBitMap := TBitMap.Create;
      nw := LPrinter.PaperSize.Width;
      nh := LPrinter.PaperSize.Height;
      KeepAspectRatio(pnlResultat.Width,pnlResultat.Height,nw,nh);
      LBitMap.Width := pnlResultat.Width;
      LBitMap.Height := pnlResultat.Height;
 
      LBitMap.Canvas.Brush.Color := clWhite;
      LBitMap.Canvas.Pen.Color :=ClWhite;
      LBitMap.Canvas.Pen.Width:=2;
      LBitMap.Canvas.Rectangle(0, 0,  LBitMap.Width,  LBitMap.Height);
      LBitMap.Canvas.Pen.Color :=Clblack;
 
      //pnlResultat.Color:= clWhite;
      //pnlResultat.PaintTo(LBitMap.Canvas, 0, 0);
      LBitmap.Canvas.CopyRect(Rect(0,0,pnlResultat.ClientWidth, pnlResultat.ClientHeight),pnlResultat.Canvas, pnlResultat.ClientRect);
      Lbitmap.savetofile(extractfilepath(application.exename)+'georges.bmp');
 
      pnlResultat.Color:= clDefault;
 
      LPrinter.BeginDoc;
     // LPrinter.Title := 'Un titre';
 
      LPrinter.Canvas.CopyRect(Classes.Rect(0, 480, nw, 480+nh),
               LBitMap.Canvas, Classes.Rect(0, 0, LBitMap.Width, LBitMap.Height));
 
    finally
      LPrinter.EndDoc;
      LBitMap.Free;
    end;

C'est un peu triste.... Maintenant, s'il y avait une solution pour créer un PDF et écrire comme sur Canvas.....

Avez vous peut être une idée là dessus ?

Phil

[BeanzMaster]

Salut, bon vu sur le forum anglais, il semblerai que l'impression ne soit par encore supportée par Cocoa. N'empêche qu'il y a un bug avec TCanvas et les fonctions Draw, CopyRect et PaintTo.

Pour la génération de PDF, il y a la suite LazReport, mais il semble y avoir des problèmes avec macOSx à tester.
Sinon il y existe les composants PowerPDF. Les composant JPFPDF et en enfin TMS FNC UI Pack dans lequel il y a un générateur PDF compatible Windows, macOS, iOS, Android, Linux & Raspbian,..

A+

[der§en]

Je serait curieux de voir vers où pointe le application.exename sur Mac ?

[philgeorges]

Bonjour

En fait, le programme Mac est en fait une application dans un dossier .app. Application.exename pointe sur un executable présent dans ce dossier, dans le sous dossier "contents"

Voilà !!