SetTextStyle et OutText

Version imprimable

16/02/2010, 10h25
bahdidi

SetTextStyle et OutText
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:

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.
16/02/2010, 22h42
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.

;)

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

Code:

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+

17/02/2010, 21h11
Alcatîz

Oui mais si ton erreur de compilation se situe sur la directive export, il faut plus d'informations sur ta librairie. ;)
17/02/2010, 23h03
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.
18/02/2010, 09h57
bahdidi

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