Discussion :

[bahdidi]

Bonjour, je voulais appliquer cette procedure SetTextStyle dans un programme qui developpe un filtre pour imprimer une déclaration douaniere mais il m'envoie un message de compilation sur export; qui se trouve dans la fonction PrintFiltrer pour me dire begin expected.

Code :

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

1
2
3
4
5
function PrintFilter(const Path, InputFile, OutputFile,OutputFile1, OutputFile2,
OutputFile3:string): Integer; export;
var
etc
.

Si vous pouvez m'aider à orienter les caractères de 90 degrés et de 180, merci d'avance.

[Alcatîz]

Bonjour,

Il manque des détails pour pouvoir t'aider : quel compilateur, quelles unités utilisées, l'en-tête de ta DLL, etc.

[bahdidi]

J'utilise Borland Pascal 7.
Voici une partie du code :

Code :

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

1
2
3
4
5
{line 2 }
            S :='|'+ Space(2) + 'R' + space(4) + '|' + space(2) + '  Entete du filtre    '
              + space(15) +  '|' + Space(1) + '1. DECLARATION ' + Space(6) + '|' +  Space(1)
              + 'A. BUREAU DE DEDOUANEMENT             '+ space(7)   + ' |';
           OutFile1^.WriteText(S);

Je veux mettre 'entete filtre' en police 1 , et 'R' en vertical; pour cela, j'ai essayé avec SetTextStyle mais ça n'a pas marché.
A+

[Alcatîz]

Oui mais si ton erreur de compilation se situe sur la directive export, il faut plus d'informations sur ta librairie.

[darrylsite]

Salut,
Je crois que les fonctionSetTextStyle et OutText sont pour le mode graphique de tp7. ça m'etonnerait donc que ça puisse te servir dans ton cas.

[bahdidi]

Si la fonction Settextstyle ne resou pas mon probleme c quoi la solution de votre point de vu.?