Accueil > Manip’s > Delphi > Images > Transformer un Panel en Image

Transformer un Panel en Image

dimanche 26 septembre 2010, par bluegyn_spip

Cette fonction est utilisée dans une application de code barres

Le code barres est affiché dans un PANEL puis enregistré sous forme d’image

La question revient à "Capturer" le contenu du Panel puis à l’enregistrer sous forme d’Image sur le disque afin de pouvoir réutiliser le code-barres dans n’importe quel document même si la machine ne possède pas de police de type "CodeBarres.ttf"

PRINCIPE

Capturer l’image du Panel

La placer dans un BitMap

Assigner le BitMAP à l’image

EXEMPLE "CopyPanelToImage"

procedure Tform1.CopyPanelToImageExecute(Sender: TObject);



var

  bmp:Tbitmap;          // Image en mémoire

  HDC_Panel:HDC;        // Handle du Panel

  area:Trect;           // Zone de capture

  Canvas_tmp:TCanvas;   // Canevas temporaire



begin



  try

  { CREATION DES OBJETS }

    HDC_panel:=GetWindowDC(panel1.handle);    // Pointe le Panel

    bmp:=TBitmap.Create;                      // Créer une image en mémoire

    Canvas_tmp:=TCanvas.create;               // Crée un Canevas temporaire



  { AFFECTATION DES OBJETS }

    Canvas_tmp.Handle := HDC_Panel; // Place le PANEL dans le canevas

    bmp.width  := panel1.width;     // Ajuste le BitMAP au PANEL

    bmp.height := panel1.height;

    area:=rect(0,0,panel1.width,panel1.height); // définit une zone de capture

    bmp.canvas.copyrect(area,Canvas_tmp,area);  // copie le canevas dans le BitMap



  { CONSTRUIT L'IMAGE }

    image1.picture.assign(bmp);



  finally

  { LIBERE LES OBJETS }

    ReleaseDC(Canvas_tmp.handle,HDC_Panel);

    bmp.free;

    Canvas_tmp.free;

  end;



end;

Voir en ligne : http://www.developpez.net/forums/d1...

Transformer un Panel en Image

EXEMPLE "CopyPanelToImage"

Manip’s

Dans la même rubrique