Discussion :

[PadawanDuDelphi]

Bonjour à tous,

Mon problème est plus ou moins dans le titre. Je souhaiterais pouvoir imprimer ou envoyer vers le presse-papier que la partie visible de mon chart.
Actuellement, lorsque j'utilise

Code :

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

Chart1.CopyToClipboardBitmap;

par exemple, il envoie mon graphe dans son ensemble vers le presse-papier, alors que je souhaiterais n'envoyer que ce qui a été choisit par l'utilisateur, suite à un zoom ou à un défilement par exemple.

Existe-t-il une des méthodes ou propriétés propres au TChart pour n'envoyer que la partie visible(sans copier ou imprimer l'écran en entier)? Ou une astuce avec un TRec et une copie dans un bitmap temporaire par exemple?

Merci pour votre aide,

A+.

[Cl@udius]

Salut Jeune Jedi !

Personnellement j'utilise par exemple cette méthode pour imprimer mes TCharts. Avec cette méthode l'impression sera toujours le reflet exact de ton chart.

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
 
var
  MonRect: TRect;
begin
  Printer.Orientation := poLandscape;
  Printer.BeginDoc;
 
  with MonRect do begin
    Top := 0;
    Left := 0;
    Right := Printer.PageWidth - 1;
    Bottom := Printer.PageHeight - 1;
  end;
  Chart1.PrintPartial(MonRect)
 
  Printer.EndDoc;
end;

@+ Claudius

[PadawanDuDelphi]

Salut Jeune Jedi !

Effectivement à force de progresser dans la maîtrise de la force je crois être proche de ce rang...
Mais bon tout ça c'est grâce au maîtres Jedi que les membres de developpez.com sont pour moi.

En tout cas c'est exactement ce que je cherchais, merci à toi.
Une derniere chose, pour l'exportation vers le presse papier, vu que je n'ai pas trouver de méthode "partial", je vais devoir créer un bitmap temporaire n'est-ce pas?

A+.

[PadawanDuDelphi]

Pour le presse-papier, en m'inspirant(fortement) de ton code pour l'impression:

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 Torm1.Copierlegraphiquedanslepressepapier1Click(
  Sender: TObject);
Var
  Bmp :TBitMap;
  MonRect: TRect;
Begin
  Bmp := TBitMap.Create;
  Try
    With MonRect do Begin
      Top := 0;
      Left := 0;
      Right := Printer.PageWidth - 1;
      Bottom := Printer.PageHeight - 1;
    End;
     Clipboard.Assign(Bmp);
  Finally
    Bmp.Free;
  End;
End;

Merci beaucoup Cl@udius pour ton aide précieuse.

A+.

[Cl@udius]

Code :

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

1
2
 
     Clipboard.Assign(Bmp);

Nickel !

Merci beaucoup Cl@udius pour ton aide précieuse.

Avec plaisir !!
@+

[Cl@udius]

Re,

vu que je n'ai pas trouver de méthode "partial"

Si tu fais référence à PrintPartial, ce n'est pas cette instruction qui permet de faire une impression d'un chart zommé. PrintPartial contrairement à Print n'inclue pas BeginDoc et EndDoc. C'est la seule différence, ce qui permet d'envoyer plusieurs charts sur le même job d'impression.

Quant à envoyer ton chart sur le presse-papier, si il n'existe pas de méthode PasteToClipboard ou un truc du genre (ce que je n'ai pas vérifier) et existe cependant la méthode SaveToBitmapFile au cas où !

@+ Claudius