Discussion :

[Droïde Système7]

Bonjour,

Je n'avais encore jamais utilisé le TPageSetupDialog et là ce fut l'occasion.

Mais je dois systématiquement louper une marche car malgré mes recherches, ça ne prend toujours pas en compte les marges

Par exemple un bout de code dans lequel deux paramètres saisis dans le PageSetupDialog ne sont aucunement prise en compte :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.btnPrintPSDClick(Sender: TObject);
begin
   PageSetupDialog1.Execute;
   with Printer do
   begin
     BeginDoc;
     Canvas.TextOut(PageSetupDialog1.MarginLeft, PageSetupDialog1.MarginTop, 'Ici mon texte à imprimer...');
     EndDoc;
   end;
end;

Je pensais qu'un simple appel à la méthode Exécute du PageSetupDialog suffirait afin de régler tout ça.
D'ailleurs pas grand chose en documentation sur ce compo, encore bien moins en code.

Je suis prenneur de tout conseil, merci ;-)

[Jipété]

Salut, le droïde !

As-tu pensé à mettre psoMargins à True ? Des fois que... (jamais joué avec ça, mais on sait jamais...).

D'ailleurs pas grand chose en documentation sur ce compo

Ben, F1 est ton ami, non ?

À pluche !
--
jp

[Droïde Système7]

Bonjour,

Hi jp, je te remercie de venir tenter de m'aider

Non, je n'avais pas eu l'idée de jouer aux booléens dans l'Options des propriétés de ce compo, mais après coup, ça ne change rien du tout, sauf que ça empêche de lancer la boîte de dialogue en question.

Comme toi je n'avais encore joué avec cette boîte, je fonçais dedans les yeux fermés, mais je me retrouve comme un bleu et tout honteux devant cet obstacle d'apparence fastoche

Par contre j'ai à plusieurs reprises pensé au F1 via la selection de ce mot clé, mais rien en exemple ni qui ne puisse me mettre sur le bon chemin.

Rien non plus sur des tas de forums et sites spécialisés de tous pays.
Je me demande si je ne suis pas le seul à avoir eu l'envie d'adjoindre ce compo à cette appli

Ou bien si ma multifonction ne gère les marges issues de ce compo...

@ pluche

[Jipété]

Yep !

Désolé...

En plus, doit y avoir un bug dans ce truc, car si je change dans l'inspecteur d'objets la propriété Units de pmDefault à pmMillimeters, ben la boîte de dialogue s'affiche plus...
Pour qu'elle s'affiche avec les millimètres, faut que je lui dise "pmInches", si si !
(puisque par défaut elle s'affiche avec les inches)

Tu le crois, toi, des trucs pareils...

Et en prime, y a rien qui s'imprime, même si mon imprimante se réveille et avale la feuille...
--
jp

[Droïde Système7]

yep2,

Oufffff jp, tu me rassures un max, je pensais que mon âge à sucrer les fraises était déjà arrivé !

Curieux en effet ; ce compo et très déboussolant

Je vais rechercher un topic dans lequel un forumeur indiquait un autre compo équivalent, enfin... en mieux

@+

[Droïde Système7]

Je viens de tenter d'installer un compo similaires, le PageSetup :

http://www.torry.net/quicksearchd.ph...etup&Title=Yes
http://www.programmersheaven.com/dow...0/ZipView.aspx
http://www.programmersheaven.com/dow...pFileList.aspx

Heuuuu.... j'ai une erreur de compil' d'install de ce compo, il manque la déclaration d'une variable et vu que ce compo date de Windows 95...

Je pense rebrousser chemin ou temporiser.

@+