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)

[Charly910]

Juste avant impression, tu élargis ta grille, et ensuite tu la remets à sa largeur initiale (sans toucher à la largeur de la fenêtre)

A+
Charly

[ShaiLeTroll]

Evidemment Charly910 ne l'a pas précisé mais le PaintTo doit être faire sur la StringGrid comme receveur de la méthode et non FormPlanning comme dans l'exemple du début

Et sans oublier que la résolution de l'imprimante doit être prise en charge, entre l'écran à 96Dpi virtuel (c'est fictif sur un écran) vs les 300 et 600 DpI de l'imprimante qui eux sont réellement pris en compte

[ShaiLeTroll]

Sinon TZColorStringGrid peut-être couplé avec TZEXMLSS, cela fait parti de la même suite de composants Avemey non maintenu depuis près de 10 ans !
En fait, c'est même son origine, TZEXMLSS charge le Excel et TZColorStringGrid affiche le TZEXMLSS, et réciproquement pour produire un Excel.

Code :

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

function GridToXmlSS(var XMLSS: TZEXMLSS; const PageNum: integer; var Grid: TZColorStringGrid; ToCol: integer; ToRow: integer; BCol, BRow, ECol, ERow: integer; ignorebgcolor: boolean; _border: byte): boolean; overload;

Copy data from Grid to XMLSS page. XMLSS - Storage. PageNum - page number. Grid - thr zcolorstringgrid, with needed to copy data to XMLSS. ToCol - column number for insertion. ToRow - row number for insertion. BCol - grid's left top cell's column. BRow - grid's left top cell's row. ECol - grid's right bottom cell's column. ERow - grid's right bottom cell's row. ignorebgcolor - if true, then ignore cell's background color. _border - specifies how to copy cell's borders (1 - cells with borders, 0 - cells without borders, 2 - cells with borders, except style sgNone).
For Delphi and CBuilder only!
Return True if copied successful.

Ensuite un TZEXMLSS.SaveXmlssToEXML pour produire le fichier Excel

Tu laisses les utilisateurs utiliser Excel pour imprimer ou échanger le planning par mail

[Charly910]

Oui, le Paintto doit être fait sur le StringGrid ! pour moi : SG1

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
procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
begin
  SG1.Width := 595 ;
 Bitmap := tBitmap.Create ;
 try
   Bitmap.Width := SG1.Width-1 ;
   Bitmap.Height := SG1.Height-1 ;
   SG1.PaintTo(bitmap.Canvas,0,0) ;
   Bitmap.SaveToFile('d:\Semaine.bmp') ;
   SG1.Width := 201 ;
 finally
     Bitmap.free ;
 end ;
End ;

Mais la solution avec Excel est nettement meilleure !

A+
Charly