Discussion :

[tarbala]

Bonjour,
J'ai vu dans la FAQ DELPHI cette fonction permettrait de changer la resolution de mon écran système. Je l'ai l'intégrée dans mon code et l'appel ChangeResolution(1024,768) mais cela ne produit aucun effet à l'excécution. Que dois-je faire pour obtenir le bon résultat.

Code :

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

1
2
3
4
5
6
7
8
9
 
Function ChangeResolution(Width,Height:Integer):Boolean;
Var Dev:TDeviceMode;
begin
  Dev.dmPelsWidth := Width;
  Dev.dmPelsHeight:= Height;
  Dev.dmFields     := DM_PELSWIDTH Or DM_PELSHEIGHT;
  Result:=ChangeDisplaySettings(Dev,0)=DISP_CHANGE_SUCCESSFUL;
end;

Merci.

[LadyWasky]

Salut.

As-tu un écran plat (TFT), ou un tube cathodique ?
Sur les écrans plat, tu n'as pas forcément cette résolution disponible.

D'ailleurs, ton écran te permet-il cette résolution ?

[tarbala]

J'ai un écran plat et il me permet cette résolution, puisque j'arrive à le faire manuellement dans l'onglet 'Paramètres' de la boîte de dialogue 'Propriétés Affichage' de mon bureau système.

[Cl@udius]

Salut,

Le code que tu donne est correct, cependant tu peux afin de faire un test, définir dwFlags à CDS_TEST et voir si ta fonction te renvoie True.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function ChangeResolution(Width,Height:Integer):Boolean;
Var
  Dev:TDeviceMode;
begin
  Dev.dmPelsWidth := Width;
  Dev.dmPelsHeight:= Height;
  Dev.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
  Result:=ChangeDisplaySettings(Dev,CDS_TEST) = DISP_CHANGE_SUCCESSFUL;
end;

@+ Claudius

[tarbala]

tu peux afin de faire un test, définir dwFlags à CDS_TEST et voir si ta fonction te renvoie True.

La fonction retourne bel bien TRUE avec une défintion de dwflags à CDS_TEST, mais toujours aucun effet. Je ne sais pas si mon moniteur y est pour quelque chose ?

Merci davantage de votre contribution.