Discussion :

[rizom]

bonjour,
je fais de la rotation de texte pour faire apparaitre des labels sur des graphiques. Seulementla rotation est visible à l'écran mais dés lors que je l'envoi à l'imprimante, aucun texte n'apparait. :
J'ai essayé de faire la même chose en utilisant une bitmap, mais j'ai tellement de graphiques a envoyer que j'arrive facilement à envoyer 500 Mo à l'imprimante.
Voici le code que j'utilise:

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
 
procedure SetCanvasFont(Canvas: TCanvas; Height, Rotation: Integer);
var
	lf: TLogFont;
	tf: TFont;
begin
	with Canvas do
	begin
		Font.Height := Height;
		tf := TFont.Create;
		tf.Assign(Font);
		GetObject(tf.Handle, SizeOf(lf), @lf);
		lf.lfEscapement := Rotation;
		lf.lfOrientation := Rotation;
		tf.Handle := CreateFontIndirect(lf);
		Font.Assign(tf);
		tf.Free;
	end;
end;

Je suis sous delphi 5 entreprise. Ce serait pour imprimer sur une traceur A0, mais j'ai essayé sur 3 types d'imprimantes(de marques différentes) et le problème reste le même. Si quelqu'un à une idée ou à vu un code similaire dans un autre langage je suis preneur
NB: j'ai parcouru le site mais je n'ai pas vu de questions similaires....

Merci par avance.

[Pedro]

Oui mais moi j'ai écrit :

Si ton traceur est un HP, tu devrais te lancer dans le HPGL parce que c'est le langage le plus reconnu par les imprimantes et traceurs...

Bonne chance

[rizom]

Merci mais comme je l'ai écris:

Ce serait pour imprimer sur une traceur A0, mais j'ai essayé sur 3 types d'imprimantes(de marques différentes) et le problème reste le même

[rizom]

et oui grâce aux exemples des msdn, j'ai trouvé où je me trompais...

il faut rajouter un

Code :

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

SelectObject(Handle, CreateFontIndirect(lf));

aprés les affectations des orientations et escapement, car delphi ne prends pas les modifs qui suivent la création de la font, donc il faut les "re-valider" par le selectobject.

NB: si vous êtes sous NT ne pas oublier de faire:

Code :

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

1
2
3
 
I := SetGraphicsMode(Handle, GM_ADVANCED);
B := ModifyWorldTransform(Handle, F, MWT_IDENTITY);

pour les arguments la doc delphi est trés bien.

Sinon, voici mon code:

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
 
procedure SetCanvasFont(Canvas: TCanvas; Height, Rotation: Integer);
var
   lf: TLogFont;
   tf: TFont;
begin
   with Canvas do
   begin
      Font.Height := Height;
      tf := TFont.Create;
      tf.Assign(Font);
      GetObject(tf.Handle, SizeOf(lf), @lf);
      lf.lfEscapement := Rotation;
      lf.lfOrientation := Rotation;
      tf.Handle := CreateFontIndirect(lf);
      SelectObject(Handle, CreateFontIndirect(lf));
      TextOut(10, 10, IntToStr(I));
      Font.Assign(tf);
      tf.Free;
   end;
end;

Merci quand même, j'espère que cela pourra servir...

[rizom]

j'ai oublié de vous donner l'adresse sur la msdn:
http://msdn.microsoft.com/library/de.../html/ch17.asp

@+

[rizom]

je sais je suis le seul à répondre à mes questions mais j'en fais profiter...

Dernière petite correction dont je me suis rendu compte, c'est qu'en fait dans le code fournit par borland, que j'avais réutilisé, on peut optimiser comme suit:

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
 
procedure SetCanvasFont(Canvas: TCanvas; Height, Rotation: Integer);
var
   lf: TLogFont;
begin
   with Canvas do
   begin
      Font.Height := Height;
      GetObject(tf.Handle, SizeOf(lf), @lf);
      lf.lfEscapement := Rotation;
      lf.lfOrientation := Rotation;
      SelectObject(Font.Handle, CreateFontIndirect(lf));
      TextOut(10, 10, IntToStr(I));
   end;
end;

Le TFont n'est pas nécéssaire on utilise directement le font du canevas pour avoir sa rotation à l'écran et sur l'imprimante.

@+

[Delphi-ne]

je sais je suis le seul à répondre à mes questions mais j'en fais profiter...

Ce n'est pas vrai.
J'ai travaillé sur votre exemple et il m'a permis d'arriver au résultat attendu.
Merci beaucoup