Dessiner un DIB sur un TForm ou TPanel

Version imprimable

09/11/2005, 23h10
Neilos

Dessiner un DIB sur un TForm ou TPanel

Bonjour à tous,

je cherche le moyen de dessiner un DIB sur un TForm ou TPanel.

J'ai bien regardé du côté de la fonction DrawDIBDraw mais je ne vois pas trop comment l'utiliser.

Merci d'avance pour vos lumières,

Neilos

Il faut utiliser les fonctions du Canvas de la TForm Exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
void __fastcall TForm1::Button1Click(TObject *Sender)
 
{
  Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
  try
  {
    pBitmap->LoadFromFile("MyBitmap.png");
    pBitmap->Transparent = true;
    pBitmap->TransparentColor = pBitmap->Canvas->Brush->Color;
    Form1->Canvas->Draw(0,0,pBitmap);
    pBitmap->TransparentMode = tmAuto;  
    Form1->Canvas->Draw(50,50,pBitmap);
  }
  catch (...)
  {
    ShowMessage("Could not load or display bitmap");
  }
  delete pBitmap;
 
}

10/11/2005, 22h59
Neilos

Oui mais je n'ai pas un TBitmap j'ai un DIB retourné par les fonctions VCM pour récupérer des frame....

Je peut le caster en TBitmap ?
11/11/2005, 12h23
jobigoud

Tu peux probablement le caster en TBitmap... j'ai jamais essayé...

J'utilise DrawDibDraw dans un de mes programmes, ça marche bien.

il te faut une variable de type HDRAWDIB et l'initialiser avec DrawDibOpen();

Ensuite au niveau du code de dessin, une variable HDC juste temporaire le temps de dessinner dessus.

la fonction DrawDibDraw prend en params 1 et 2 les deux variables précédemment évoquées.
les paramètres suivants détérminent l'emplacement de dessin.

Le suivant, un LPBITMAPINFOHEADER est en fait contenu dans le DIB qu'on t'as refilé. tu peux faire un cast de ton DIB vers (LPBITMAPINFOHEADER).

le suivant correspond aux données (LPVOID) elles sont dans le DIB, à la suite du header. mon buffer DIB est en char* je fais donc buffer+40 pour ce paramètre. ( le header prend 40 octets )

les paramètres suivants determinent la part de la source qui est dessiné.
11/11/2005, 12h30
Neilos

Ok merci je vais tester ça dimanche soir (dès que je serais de retour chez moi !)
14/11/2005, 22h17
Neilos

Salut il me reste un petit pb....je met quoi dans HDC ?
14/11/2005, 23h46
jobigoud
Ah oui c'est vrai...

Dans une fonction d'initialisation du programme:

Code:

mainDC = DrawDibOpen(); // mainDC est de type HDRAWDIB

A l'intérieur de la fonction de dessin
Code:

1 2 3 4 5 6 7 8 9 HDC hdc; //... hdc = GetDC(Frm_main->Handle); //Frm_main est la form sur laquelle on dessine. // ... appel de DrawDibDraw(...) ReleaseDC(mainDC, hdc);
et en sortie de prog :

Code:

if (mainDC) DrawDibClose(mainDC);

Voilà normalement ça devrait marcher...