Discussion :

[AL1986]

Bonjour,
Je bosse actuellement sur un projet de migration d'une application VB6 à Delphi. Je n'ai jamais travaillé ni avec VB6 ni avec Delphi auparavant. J'ai effectuer la migration du code, en utilisant un outil de migration mais il y a plusieurs erreurs à corriger. Parmi celles-ci, des problèmes avec Printer. En effet, l'objet Printer n'était plus reconnu, il suffisait d'ajouter à la clause uses du fichier .pas correspondant l'unité Printers. Le problème qui se pose maintenant est que je ne sais pas comment récupérer le nom de la police courante. Dans le code VB le bloc d'instructions est :

Set O = comfBouton.Dialogue
With O
.Flags = &H2&
.CancelError = True
On Error GoTo ExitSub
.ShowFont
On Error GoTo ErreurPolice
Printer.FontName = .FontName
lPolice = .FontName
End With

Après migration le code Delphi ressemble à :

O := comfBouton.Dialogue;
with O do begin
Flags := $2;
CancelError := True;
try
ShowFont;
try
Printer.FontName := FontName;
lPolice := FontName;
end;
end;
end;

Cependant aucun objet ne semble être reconnu par Delphi à part Printer (car j'ai ajouté Printers à uses).
Je n'arrive pas à trouver l'équivalent de fontname (et autres) dans Delphi, en fait j'ai trouvé Name qui est une propriété de la classe Tfont de l'unité Graphics mais je ne vois pas comment faire le lien avec Printer.
Si quelqu'un voit comment il faut faire pour avoir un code équivalent qu'il me transmette son savoir. Merci à tous.
Ali

[ALWEBER]

Poses un composant FontDialog (Onglet dialogues) sur ta fiche et ensuite regardes dans l'exemple contenu dans l'aide.

Par contre l'impression doit contenir des "begindoc" et autres. Je ne sais pas si tu es familier avec ce genre de choses.

[AL1986]

Le composant FontDialog permet de manipuler la fonte de la fiche (d'après ce que j'ai compris). Cependant, je voudrai selctionner la police d'impression des documents grâce à un menu déroulant, mettre à jour la police de l'imprimante (instruction : Printer.FontName = comfBouton.Dialogue.FontName) et récupérer cette valeur dans une variable (instruction : lPolice = comfBouton.Dialogue.FontName) . Merci

[ALWEBER]

Non tu peux utiliser cette fonte ou tu veux. Dans le cadre de ta demande :

Code :

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

1
2
3
 
  if FontDialog1.Execute then
    Printer.Canvas.Font.Name := FontDialog1.Font.Name;

[AL1986]

Merci pour ta réponse, je vais essayer d'appliquer ce que tu m'as dit

[AL1986]

En ce qui concerne le bout de code de mon premier message, dans le code vb on a utilisé le contrôle commondialog, sa propriété fontname et ses méthodes showfont et cancelerror. La conversion l'a remplacé par un contrôle de type topendialog qui n'a pas les même propriétés. Si je le remplace par le contrôle fontdialog je pourrai récupérer le nom de la fonte mais je n'arrive pas à trouver d'équivalent aux deux fonctions. Si quelqu'un connaît un autre type qui ce rapproche plus de commondialog ou bien des méthodes équivalentes à showfont et cancelerror dans les types tfontdialog et/ou topendialog qu'il n'hésite pas. Merqui.
Ali