Bonjour à toutes et à tous,

Avec la procédure standard pour connaitre la résolution de mon écran qui fait 1920 x 1080, mon code donne un autre résultat soit (1536 x 864).


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.FormActivate(Sender: TObject);
var
HH :HDC;
hauteur, largeur:integer;
begin
HH:=getdc(GetDesktopWindow);
  largeur:=GetDeviceCaps(HH,HORZRES);
  hauteur:=GetDeviceCaps(HH,VERTRES);
  Edtwidth.text := inttostr(largeur);
  Edtheight.text := inttostr(hauteur);
end;

Il y a surement une explication.

@+,


cincap