Discussion :

[rellik]

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 :

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
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;

[magic corp.]

Essaye :

Code :

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

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-

[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.

[rellik]

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)

[Thierry G.]

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

Code :

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

form.Height - form.clientheight

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

[rellik]

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 ??

[Mindark]

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

[antp]

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/

[rellik]

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 :

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

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);