Screenshot

Voilà, j'ai fait un ptit programme qui fait un screenshot du panel que j'ai dans ma form (je remercie ce site, j'ai trouvé comment faire) mais j'ai un probleme, le screenshot ne correspond pas tout a fait au panel, il est décalé vers le haut de la taille de la barre de titre de la form. C'est comme si elle n'etait pas compté dans la taille de la form ??? Et je ne voudrais pas mettre une valeur fixe, tout le monde n'a pas la meme config de windows... Si qqun sait comment faire, merci de me l'expliquer ...

a tout hasard voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

DtCanvas: TCanvas; Bitmap: TBitmap; Src, Dst: TRect; JPEG: TJPEGImage; begin DtCanvas := TCanvas.Create; DtCanvas.Handle := GetDC(0); Bitmap := TBitmap.Create; Bitmap.Height := panel1.Height; Bitmap.Width := panel1.Width; Src := Rect(form1.Left + panel1.Left , form1.Top + panel1.Top , form1.Left + panel1.Left + panel1.Width , form1.top+ panel1.top + panel1.height); Dst := Rect(0, 0, panel1.Width , panel1.height); Bitmap.Canvas.CopyRect(Dst, DtCanvas, Src); ReleaseDC(0, DtCanvas.Handle); DtCanvas.Free; JPEG := TJPEGImage.Create; JPEG.Assign(Bitmap); JPEG.SaveToFile('BOB.jpg'); JPEG.Free;

---

Essaye :

Code:

---

Src := Rect(form1.ClientLeft + panel1.Left , form1.ClientTop + panel1.Top , form1.ClientLeft + panel1.Left + panel1.Width , form1.ClientTop + panel1.top + panel1.height);

---

J'espère que les propriétés ClientLeft et ClientTop exicte bien :? . J'ai pas delphi sous la main.

-Magic-

salut,

attention, le top de ton panel est pris a partir de la zone disponible de la form c est a dire juste en dessous de la barre de titre de la fenetre.

petite precision, le 0,0 de ref pour ton panel est le coin sup gauche sous la barre de titre.

Citation:

---

Envoyé par Thierry G.

salut,

attention, le top de ton panel est pris a partir de la zone disponible de la form c est a dire juste en dessous de la barre de titre de la fenetre.

petite precision, le 0,0 de ref pour ton panel est le coin sup gauche sous la barre de titre.

---

oui et c'est bien là le probleme... comment on connait la taille de la barre de titre ? parce que la il va trop haut :(

(remarque : clientleft et clienttop n'existent pas, c clientwidth et clientheight)

tu peux connaitre la hauteur de la barre de titre avec:

Code:

---

form.Height - form.clientheight

---

a plus ou moins peut etre la bordure de ta form je pense.

cool c'est ca. maintenant faut que je trouve comment on récupère la taille des bords... mon borderwidth == 0 mais g qd meme des bords avec mon theme windows, comment on les récupère ??

faut utiliser l'API GetSystemMetrics pour la taille des bordures, ou un truc dans le genre (pas le SDK ss la main)

Un screenshot en JPEG c'est un peu crado :o
En PNG ça serait mieux, mais bon faut utiliser une librairie supplémentaire pour ça : http://pngdelphi.sourceforge.net/

merci bien, j'ai enfin le screenshot de ce que je voulais...

les calculs sont quelques peu goré mais bon (d'ailleurs le * 4, m'etonne un peu) :

Code:

---

1 2 3 4 5 6 7

Src := Rect(form1.Left + panel1.Left + form1.width - form1.clientwidth - GetSystemMetrics(SM_CXBORDER) * 3, form1.Top + panel1.Top + form1.Height - form1.clientheight - GetSystemMetrics(SM_CYBORDER) * 3, form1.Left + panel1.Left + panel1.Width + form1.width - form1.clientwidth - GetSystemMetrics(SM_CXBORDER) * 4, form1.top + panel1.top + panel1.height + form1.Height - form1.clientheight - GetSystemMetrics(SM_CYBORDER) * 4);

---