Comment créer une image de mon TStringGrid ? [FAQ]

**Bruno13** · 21/08/2007, 04h36

Bonjour à tous,

je voudrais savoir si quelqu'un sait comment je peux faire pour créer une image de mon StringGrid ?

J'aimerais bien une function du style :

Code :

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

sgTest.SaveToBmp('toto.bmp');

Là cela serait le top !

Merci à tous.
Bruno

**ALWEBER** · 21/08/2007, 07h25

Regarde du côté des économiseurs d'ecran écrits en Delphi. Il y a le code pour récupérer les points écrits à l'écran.

**Bruno13** · 21/08/2007, 16h09

Bonjour Alweber,

je vais jeter un coup d'oeil à ce principe.

Merci pour l'info
Bruno

**ALWEBER** · 21/08/2007, 16h41

Ci-joint un petit exemple

**Bruno13** · 22/08/2007, 15h37

Bonjour à tous,

voici une solution proposée par FAUST, trouvée sur une NewsGroup.
Et qui marche trés bien !!

Merci FAUST.

une solution générique applicable à tous les descendants de TWinControl
est de passer par PaintWindows:

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
type
  TCrackWinControl = class(TWinControl);
 
procedure Compo2Bitmap(Ctrl: TWinControl; const FileName: string);
var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.Width := Ctrl.Width;
    Bmp.Height := Ctrl.Height;
    TCrackWinControl(Ctrl).PaintWindow(Bmp.Canvas.Handle);
    Bmp.SaveToFile(FileName);
  finally
    Bmp.Free;
  end;
end;

(le passage par TCrackWinControl est imposé par le fait que PaintWindow
est en protected et qu'il n'est donc accessible que dans les classes
descendant de TWinControl)

**SergioMaster** · 23/08/2007, 08h15

meriterait d'aller dans la FAQ

**ALWEBER** · 23/08/2007, 09h01

Juste une petite question. Cette fonction retourne le composant dans son dessin original. Par exemple un listBox sans son texte. Est-ce que le résultat est le même chez-toi ?