Discussion :

[The Jos]

Bonjour,

Je cherche à capturer une grille sur une feuille. Cette grille n'est pas entièrement visible, une partie est cachée et peut se dévoiler avec les ascenceurs d'un scrollbox. Comment faire pour avoir la capture de toute la grille en bmp (y compris la partie cachée)

Pour l'instant mon code est le suivant

ZColorStringGrid est un compo grille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
GridImage := TBitmap.Create;
Try
  GridImage.width := ZColorStringGrid.Canvas.ClipRect.Right - ZColorStringGrid.Canvas.ClipRect.Left;
  GridImage.Height := ZColorStringGrid.Canvas.ClipRect.Bottom - ZColorStringGrid.Canvas.ClipRect.Top;
  GridImage.canvas.CopyRect(GridImage.canvas.ClipRect, ZColorStringGrid.Canvas, ZColorStringGrid.Canvas.ClipRect);
 
  Clipboard.Assign(GridImage);
  finally
    GridImage.Free;
  end;

[Archimède]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
GridImage := TBitmap.Create;
Try
  GridImage.width := ZColorStringGrid.Canvas.ClipRect.Right - ZColorStringGrid.Canvas.ClipRect.Left;
  GridImage.Height := ZColorStringGrid.Canvas.ClipRect.Bottom - ZColorStringGrid.Canvas.ClipRect.Top;
  GridImage.canvas.CopyRect(ZColorStringGrid.clientrect,canvas,ZColorStringGrid.Clientrect);  
  Clipboard.Assign(GridImage);
  finally
    GridImage.Free;
  end;

[/QUOTE]


En ajoutant un simple copyrect, ce n'est pas bon ? (il faut que rien ne soit sur la grille...)


a+

[Archimède]

non, apparemment...
déjà, il faurait copier sur le canvas de la grille et définir un rect qui soit de la dimension du total des colonnes et des lignes et faire peut-être

Code :

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

GridImage.canvas.CopyRect(monrect,ZColorStringGrid.canvas,monrect);

avec monrect dont les dimensions soient: nb de colonnes x largeur et nb de lignes x hauteur de lignes.

à voir...mais, j'en suis pas convaincu...lol (avec les barres de défilements....

[ShaiLeTroll]

Par définition un contrôle Windows ne dessine que la partie visible à l'écran !
La méthode PaintTo du WinControl ne te donnera que ce qu'il y a d'afficher !

Si tu souhaites imprimer une grille, utilise des composants de reporting que te permettront d'imprimer une grille sur plusieurs pages !

tu peux encore dessiner toi même la grille, cela reste faisable !
Si c'est pour imprimer, il faut jouer avec le conversion Pixel/Inch

[Lung]

Par définition un contrôle Windows ne dessine que la partie visible à l'écran !

Il existe des outils comme snagit qui arrivent à faire une capture du contenu entier.
Comment font-ils ?

[ShaiLeTroll]

Ces Outils doivent change le Device Context pour dire au WinControl qu'il peut dépasser de son rectangle de fenêtre !

C'est un bon sujet de recherche !
Il faudrait reprendre le code de "TWinControl.PaintTo(DC: HDC; X, Y: Integer)" et d'agrandir la taille du DC au lieu de se limiter au Rectangle de fenêtre

[JustMe]

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
22
23
24
25
26
27
28
29
procedure ControlToBitMap(aControl: TWinControl; var aBitmap: TBitmap;
  Ratio: integer = 2);
var
  BmpControl             : TBitmap;
  //  BmpResult: TBitmap;
begin
  try
    BmpControl := TBitmap.Create;
 
    BmpControl.Width := aControl.Width;
    BmpControl.Height := aControl.Height;
 
    BmpControl.Canvas.Lock;
    aControl.PaintTo(BmpControl.Canvas.Handle, 0, 0);
    BmpControl.Canvas.UnLock;
 
    aBitMap.Width := BmpControl.Width div Ratio;
    aBitMap.Height := BmpControl.Height div Ratio;
 
    SetStretchBltMode(aBitMap.Canvas.Handle, HalfTone);
    StretchBlt(aBitMap.Canvas.Handle, 0, 0, aBitMap.Width, aBitMap.Height,
      BmpControl.Canvas.Handle, 0, 0, BmpControl.Width, BmpControl.Height,
      SRCCOPY);
    //aBitMap.Canvas.StretchDraw(Rect(0, 0, aBitMap.Width, aBitMap.Height)
    //  , BmpControl);
  finally
    BmpControl.Free;
  end;
end;

[ShaiLeTroll]

Merci JustMe !
quelques remarques

1) try doit être avant le Create, sinon Free libère une variable indéterminé si Create plante !
2) le mot clé var pour aBitmap est inutile, tu ne modifie pas la référence de l'objet mais son contenu, c'est une erreur classique !

Sinon, ton code imprime la partie visible, comment récupérer une grille qui contient par exemple 1000 lignes donc plus grande que sa zone d'affichage !

Tu n'as pas lu vraiment la Question !

[Franck SORIANO]

1) try doit être avant le Create, sinon Free libère une variable indéterminé si Create plante !

J'imagine que tu voulais dire après la Create...

Sinon, ton code imprime la partie visible, comment récupérer une grille qui contient par exemple 1000 lignes donc plus grande que sa zone d'affichage !

En fait, la grille va se dessiner sur le HDC qu'on lui fournit en fonction de la zone de clipping du HDC et de son ClientRect.

Donc je dirais qu'il doit suffir de surcharger GetClientRect sur la grille, en définissant un mode dans lequel la fonction renverrait une surface suffisamment large pour que toute la grille soit visible, puis de dessiner la grille également sur un bitmap (ou un metafile) suffisament grand...

Dans le cas d'une grille, ça doit se faire assez facilement puisque la grille est entièrement dessinée par la VCL. Pour Windows ce n'est qu'une simple zone rectangulaire.

[The Jos]

Merci à tous pour vos réponses....


Pour ma part j'avais penser à faire plusieurs snapshots en faisant défiler l'ascenseur par code et faire une routine qui colle les images prises (c du bidouillage mais bon). Pour les compo de reporting je possède D5 avec les QReport, mais je ne vois pas trop comment procéder. Normalement ils sont orientés db non ? Lequel utilisé, j'en trouve aucun travaillant avec des grilles

En fait ma grille possède des cellules mergées, des cellules de couleurs avec une police différentes par cellules. J'ai peur qu'un compo reporting ne tienne pas compte des ces aspects grahiques.

En tout cas encore merci

[ShaiLeTroll]

J'imagine que tu voulais dire après la Create...

euh je voulais dire que le Create devait être avant le try, mais en corrigeant le après dans ma phrase, c'est bon ! Merci !

@The Jos
Etudie quand même les solutions sur le HDC en refaisant ton propre PaintTo combiné à la surcharge de GetClientRect !

QReport, tu peux l'utiliser sans DB, tu as un event genre TQuickRep.OnNeedData qui traine et qui permet de générer un liste sans DB

Cela fonctionne, je l'ai utilisé il y a fort fort longtemps

[JustMe]

@ShaiLeTroll
Merci pour tes corrections, j'apprends toujours de ce forum.
Je voulais te dire juste que c'est un grand plaisir de lire tes réponses sur ce forum

[The Jos]

Alors voilà, je viens de trouver une solution qui ressemble plus à un bidouille qu'autre chose.

Pour comprendre mon truc :
La grille est dans une scrollbox qui elle est sur la form en alClient. Donc la grille est sur la totalité de la feuille.

Voici le 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
22
23
24
25
26
27
28
29
30
 
var
  FormImage: TBitmap;
  H,W : Integer;
begin
  //Je ne veux pas capturer la statusbar
  StatusBar.Visible:=false;
  try
  //Pour que ça marche il faut que la feuille ait BorderStyle à bsNone (me
  //demandez pas pourquoi :) )
  BorderStyle:=bsNone;
  H:=Height;
  W:=Width;
  //La feuille prend les dimensions de la gille
  height:=ZColorStringGrid.Height;
  Width:=ZColorStringGrid.Width;
  // Hop une capture de la form sur laquelle se trouve la scrollbox en alClient
  FormImage := Form1.GetFormImage;
  // On met tout ça dans le clipboard
  Clipboard.Assign(FormImage);
  finally
    //On rétablit les paramètres d'origines 
    BorderStyle:=bsSizeable;
    height:=H;
    Width:=W;
    StatusBar.Visible:=true;
    // On libère l'image
    FormImage.Free;
  end;
end;

Voilà c bidouile and cie mais ça marche

The Jos

[The Jos]

Voilà la solution que je retiens. Puisqu'une form, avec la propriété BorderStyle à bsNone et agrandie à la dimension de la grille est capable de prendre un screenshot de cette grille je propose :

1 Créer un feuille (GrabForm)
2 collez lui le code suivant

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Unit GrabUnit;
 
Interface
 
Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, clipbrd, StdCtrls, ComCtrls;
 
Type
  TGrabForm = Class(TForm)
    Procedure FormCreate(Sender : TObject);
  Private
     { Déclarations privées }
  Public
    Procedure Execute(WControl : TWinControl;Container : TWinControl);
    { Déclarations publiques }
  End;
 
Var
  GrabForm : TGrabForm;
Implementation
 
{$R *.DFM}
 
Procedure TGrabForm.Execute(WControl : TWinControl;Container : TWinControl);
Var
  FormImage : TBitmap;
Begin
  Try
    //Le winControl à capturer est collé sur la feuille grabform
    WControl.Parent := GrabForm;
    // GrabForm prend les dimensions du WinControl à capturer
    Height := WControl.Height;
    Width := WControl.Width;
    // Capture 
    FormImage := GetFormImage;
    // Hop dans le presse papier
    Clipboard.Assign(FormImage);
  Finally
    // On redonne à la feuille appelante le WinControl
    WControl.Parent := Container;
    // On libère
    FormImage.Free;
  End;
End;
 
Procedure TGrabForm.FormCreate(Sender : TObject);
Begin
  // Ne pas oublier pour que ça marche
  BorderStyle := bsNone;
End;
 
End.

Appelez la Procedure TGrabForm.Execute(WControl : TWinControl;Container : TWinControl); comme ceci :

Code :

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

  GrabForm.Execute(MyStringGrid, ScrollBox);

En fait on peut passer n'importe quel WinControl à GrabForm en lui indiquant pour Container son parent

Par exemple GrabForm.Execute(MyMemo, Form1);
La feuille GrabForm va prendre une capture du WinControl même s'il a des partie cachées

Remarque GrabForm n'a pas besoin d'être visibles pour faire son job, donc je ne l'affiche jamais

Et voili