Impression sur MacOsX Cocoa

Version imprimable

20/03/2019, 18h44
philgeorges

Impression sur MacOsX Cocoa

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

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:

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+

Impression Lazarus / Cocoa

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:

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.

08/04/2019, 15h57
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+
11/04/2019, 17h34
philgeorges

Impression Lazarus / Cocoa

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
11/04/2019, 17h51
philgeorges

Citation:

Envoyé par 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+

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
11/04/2019, 23h06
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+

Impression cocoa

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

Code:

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

13/04/2019, 14h24
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+
14/04/2019, 21h58
der§en

Je serait curieux de voir vers où pointe le application.exename sur Mac ?
15/04/2019, 16h27
philgeorges

application.exename sur Mac

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à !!