Discussion :

[ovni76]

Bonjour,
Suite à un problème matériel j'ai changé d'imprimante et de résolution de 300 à 600.
J'ai développé depuis un certain temps sous linux avec lazarus une petite application pour imprimer des enveloppes de différents formats en utilisant une base de données d'adresses sous sqlite.
Pour l'impression j'utilise les informations hauteur papier, largeur papier, orientation etc.

Code :

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

1
2
3
Printer.Orientation:=poLandscape;
  XLARG_PAGE:= Printer.PaperSize.PaperRect.PhysicalRect.Right-Left;  
  XHAUT_PAGE:= Printer.PaperSize.PaperRect.PhysicalRect.Bottom-Top;

Je voudrais utiliser la valeur de la résolution que je peux afficher via le composant

Code :

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

 PrinterSetupDialog.execute

mais je n'arrive pas à récupérer cette valeur de résolution. C'est surement très simple mais je n'ai pas encore trouvé.
Alors un petit coup de main me serait bien utile.
Merci d'avance
A+

[ChPr]

... je n'arrive pas à récupérer cette valeur de résolution. ...

Ces valeurs sont données par :

Code :

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

1
2
3
 
Printer.XDPI
Printer.YDPI

Cordialement.

Pierre.

[Andnotor]

Pour l'impression (en supposant que ce soit du Windows), le mieux est de convertir le DC de l'imprimante en (centième de) millimètre par SetMapMode.
Tu t'affranchis ainsi de tous les calculs de conversion ET de la résolution.

Code :

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

1
2
//Coordonnées en 1/100 mm
SetMapMode(Printer.Canvas.Handle, MM_HIMETRIC);

Attention cependant à l'axe Y qui est inversé. Les valeurs sont négatives :

Code :

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

1
2
//Texte à 10mm des bords
Printer.canvas.TextOut(1000, -1000, 'Texte');

[ovni76]

Merci pour vos réponses,
Pour Andnotor je suis sous linux donc la solution proposée n'est pas valable et de plus je préfère la solution utilisant les paramètres ce qui va me permettre de modifier mon application pour la rendre plus générale, utilisable avec des imprimantes aux caractéristiques différentes.
Donc je vais utiliser la solution de ChPr qui va dans mon sens.
Encore merci A+

[BeanzMaster]

Salut voici quelques fonctions qui pourraient t'être utiles :

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
 
{ NOTE :
   1 cm =  37.79527559055 pixels
   1 pixel = 0.02645833333333416 cm
}
function PixelsToCentimeters(nbPixels : Integer) : Double;
begin
  Result := (nbPixels * 0.02645833333333416)
end;
 
function CentimetersToPixels(nbCm : Double) : Integer;
begin
  Result := Round((nbCm / 0.02645833333333416));
end;
 
{ NOTE :
 
  1 pouce (inch) = 2,54 cm
  1 cm = 0,3937 pouce (inch)
}
function InchToCentimeters(nbInch : Double) : Double;
begin
  Result := nbInch / 0.3937;
end;
 
function CentimetersToInch(nbCm : Double) : Double;
begin
  Result := nbCm * 0.3937;
end;
 
function PixelsToMillimeters(nbPixels : Integer) : Double;
begin
  Result := PixelsToCentimeters(nbPixels) * 10;
end;
 
function MillimetersToPixels(nbMm : Double) : Integer;
begin
  Result := CentimetersToPixels(nbMm / 10);
end;
 
function InchToPixels(nbInch : Double) : Integer;
begin
  Result := CentimetersToPixels(InchToCentimeters(NbInch));
end;
 
function PixelsToInch(nbPixels : Integer) : Double;
begin
  Result := CentimetersToInch(PixelsToCentimeters(nbPixels));
end;
 
function PixelsResolutionToCentimeters(nbPixels, DPI : Integer) : Double;
begin
  Result := nbPixels * 2.54 / DPI;
end;
 
function CentimetersToPixelsResolution(nbCm : Double; DPI : Integer) : Integer;
begin
  Result := Round(nbCm * DPI / 2.54);
end;

A+

Jérôme

[ovni76]

Merci Beanzmaster,
Ces fonctions se sont des personnelles où elles viennent d'un composant ?
A+

[BeanzMaster]

Merci Beanzmaster,
Ces fonctions se sont des personnelles où elles viennent d'un composant ?
A+

Perso, elles sont dans mon unité BZMath, de mon projet

[ChPr]

Salut voici quelques fonctions qui pourraient t'être utiles : ...

Pourquoi n'as-tu pas mis ces fonctions sous formes de "Helpers", comme tu l'as fait pour d'autres types de conversions ?

Cordialement.

Pierre.

[BeanzMaster]

Pourquoi n'as-tu pas mis ces fonctions sous formes de "Helpers", comme tu l'as fait pour d'autres types de conversions ?

Cordialement.

Pierre.

Salut

De quels autres types de conversions fais tu allusion ?
Mettre ces fonctions dans mon

Code :

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

TDoubleHelper =  type helper for Double

ne me parait pas approprié car elles sont spécifiques. De plus elles utilisent également des "integer" du coup faudrait également ajouter certaine de ces fonctions dans

Code :

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

TIntegerHelper =  type helper for Integer

Ce ne serait pas très logique et pratique, à mon avis. Par contre les mettre dans une classe ou un enregistrement spécifique serait un plus, suivant le cas.

A+

Jérôme

[ChPr]

... De quels autres types de conversions fais tu allusion ? ...

Voir cette discussion.

C'est vrai qu'ici c'est spécifique, mais dans cet esprit tu aurais remplacé par exemple :

Code :

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

NbCm:= InchToCentimeters(Printer.XDPI);

par

Code :

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

NbCm:= Printer.XDPI.ToCentimeters;

Cordialement.

Pierre.

[BeanzMaster]

Voir cette discussion.

C'est vrai qu'ici c'est spécifique, mais dans cet esprit tu aurais remplacé par exemple :

Code :

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

NbCm:= InchToCentimeters(Printer.XDPI);

par

Code :

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

NbCm:= Printer.XDPI.ToCentimeters;

Cordialement.

Pierre.

Bien vu je n'y avais pas pensé dans ce sens. Reste que cet assistant sera propriétaire de l'application uniquement.
Pour ma part cela serait plus logique si c'est appliqué sur la largeur et la hauteur.
Mais dans ce cas, au lieu de faire un assistant pour les Integer, je le ferais plus pour l'objet TPrinter avec une fonction pour paramétrer directement la taille de la page à imprimer.

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
Unit PrinterHelper;
 
{$mode objfpc}{$H+}
 
interface  
 
uses Classes, SysUtils, Printers;
 
Type
  TPrinterHelper = class helper for TPrinter
  public
      procedure SetPageSize(LargeurCm, HauteurCm : Double; DPI : Integer); overload;
      procedure SetPageSize(LargeurCm, HauteurCm : Double; XDPI, YDPI : Integer); overload;
      procedure SetPageSize(LargeurCm, HauteurCm : Double); overload; // Prend les DPI de TPrinter
 
      function GetWidthInCentimers : Double; //pas vraiment utile car on connait déja la taille d'impression du papier
      function GetHeightInCentimers : Double;
   end;

Mais bon l'objet TPrinter ne semble pas gérer les DPI et est limité à 72 DPI seulement par défaut. En plus les propriétés XDPI et YDPI sont en lecture seule Il semble que la solution c'est de passer par le TPrinterCanvas pour gérer les dimensions et la résolution à la main.

J'ai très peu utilisé l'objet TPrinter, ca mériterait le détour un de ces quatre . Il y sûrement moyen d'améliorer cet objet grâce aux assistants. À réfléchir.