Discussion :

[Bruno13]

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]

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]

Bonjour Alweber,

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

Merci pour l'info
Bruno

[ALWEBER]

Ci-joint un petit exemple

[Bruno13]

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]

meriterait d'aller dans la FAQ