Discussion :

[NetFantome]

Bonjour,
J'essaie de copier un StringGrid ( en vérité d'un TZColorStringGrid ) en entier , comprenant la partie non visible à l'écran dans un BMP.
A chaque essai, morceau de code trouvé sur Internet, seule la partie visible à l'écran se trouve copiée.
Avez vous une piste, je désespère !!!

Cordialement

VCL - Delphi 12

[Charly910]

Bonjour,

tu peux montrer un morceau de code ?

A+
Charly

[NetFantome]

Bien sur ,

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
 
Procedure TFormAccueil.EnregistreBMPSemaine;
var
  Bitmap: TBitmap;
begin
 
 
 Bitmap := tBitmap.Create ;
 try
   Bitmap.Width := FormPlanning.Width-1 ;
   Bitmap.Height := FormPlanning.Height-1 ;
 
 
   FormPlanning.PaintTo(bitmap.Canvas,0,0) ;
   Bitmap.SaveToFile('d:\Semaine.bmp') ;
 finally
     Bitmap.free ;
 end ;

[Charly910]

Bonjour,

chez moi, avec un StringGrid ça fonctionne parfaitement.

Mais TZColorStringGrid je ne connais pas. Je ne peux pas tester

A+
Charly

[tourlourou]

comprenant la partie non visible à l'écran

La fiche est-elle plus grande que l'écran, ou la grille plus grande que la fiche ?
Prendre les dimensions de FormPlanning (si c'est bien la fiche parente de la grille) ne peut convenir que si en utilisant les ascenseurs de la fiche on peut voir jusqu'en bas de la grille.

[ShaiLeTroll]

Imprimer une forme limite à la taille de l'écran, ce n'est pas une bonne méthode pour imprimer une Grille !


Impression d'un composant grille : TStringGrid,TDbGrid… génère un QR à la volée si c'est un Delphi l'inclu ... faut qu'il soit ancien

J'ai un équivalent FastReport mais je ne peux pas le publier.
J'ai sur le forum un code qui le fait manuellement via Canvas, si je le retrouve ... vu que je l'aai écrit en D4, possible qu'il soit sur phidels donc perdu !


Sinon, j'ai fait pas mal de fois un export en CSV, lancer Excel sur le fichier ou alors un export via OLE avec une petite mise en forme, l'utilisateur peut remettre en forme ensuite pour l'impression via Excel.



Enfin, d'ou vient les données, pourquoi ne pas utiliser ReportBuilder, FastReport ... c'est fait pour !

[NetFantome]

Bonjour,
Toute les colonne n'apparaisse pas à l'écran. Moi, j'obtient dans mon BMP que les colonne visible à l'écran.

Cordialement

Bonjour,

chez moi, avec un StringGrid ça fonctionne parfaitement.

Mais TZColorStringGrid je ne connais pas. Je ne peux pas tester

A+
Charly

[Charly910]

J'ai testé en D7 : chez moi, même si le StringGrid est plus large que la fenêtre, tout s'affiche dans semaine.bmp

A+
Charly

PS : je n'ai pas testé en hauteur

[anapurna]

Salut

c'est normal le paintto ne transcrit que le screen vers un autre canvas
cela aurait ete la meme chose pour n'importe quel control

Pour bien faire c'est a toi de construire ton edition en parcourant le stringGrid de long en large

la premiere etape serait donc de trouver le ratio entre la taille de ta grille et la longueur de ton canevas
ensuite pour chaque cellule tu la dessine au ratio trouvé precedement

bon c'est un racourci mais le principe et la

sous ecxel c'est plus simple il te suffira de faire un printout une fois la mise en page voulue (Nb page longueur et largeur)