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;