Connaître la résolution de l'écran et celle de l'espace de travail 1.0

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 482 fois - Téléchargée 32 fois

Contenu du snippet

Tout est dit dans le titre

Source / Exemple :


//*************************************************************
//  Fonction trouvant la résolution de l'écran en X
//*************************************************************
function GetScreenResolutionX     ():integer;
var
  res : integer;
begin

  res := 0;
  res := GetSystemMetrics(SM_CXSCREEN);

  result := res;

end;

//*************************************************************
//  Fonction trouvant la résolution de l'écran en Y
//*************************************************************
function GetScreenResolutionY     ():integer;
var
  res : integer;
begin

  res := 0;
  res := GetSystemMetrics(SM_CYSCREEN);

  result := res;

end;

//*************************************************************
//  Fonction trouvant la résolution en X de l'espace de travaille sans la barre des tache
//*************************************************************
function GetScreenResolutionWorkAreaX     ():integer;
var
  res : integer;
begin

  res := 0;
  res := GetSystemMetrics(SM_CXFULLSCREEN);

  result := res;

end;

//*************************************************************
//  Fonction trouvant la résolution en Y de l'espace de travaille sans la barre des tache
//*************************************************************
function GetScreenResolutionWorkAreaY     ():integer;
var
  res : integer;
begin

  res := 0;
  res := GetSystemMetrics(SM_CYFULLSCREEN);

  result := res;

end;

Conclusion :


Toutes Fonctions que je propose a été créé et donc testé par moi-même alors si problème il y a ne pas hésiter à m'écrire. :)

A voir également

Ajouter un commentaire Commentaires
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 9
18 mars 2008 à 17:55
Bonjour,
Cirec d'abord merci pour ce court rappel de la programmation.
C'est vrai que ma méthode n'est pas très élégante (l'utilisateur verra son écran scintiller pendant le changement du style de la fiche) et n'est pas valable en mode console ...
Merci encore !

Cordialement, Bacterius !

PS : 'J'espère avoir éclairer ta lanterne ;)' Ah oui tu as même jeté de l'huile dessus ! :p (a prendre du bon coté !)
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 9
17 mars 2008 à 23:37
Bonjour,
oui en effet, mais dans ce cas, on fait ca :

Form1.WindowStyle := wsMaximized;
ResolutionX := Form1.Width;
ResolutionY := Form1.Height;

Enfin chez moi quand je maximize ca couvre tout sauf la barre des taches... Alors pourquoi faire compliqué quand on peut faire simple ?
Bien sur on peut ajuster (Form1.(Client)Width/Height) selon les besoins.

Mais je crois que je n'ai pas cerné le but de cette source vraiment ... (Je dois me tromper)

Cordialement, Bacterius !

PS : J'assume la responsabilité entière de ce commentaire ...
cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
16 mars 2008 à 14:18
@Bacterius

Les fonctions de LittleRoswell tiennent compte de la barre des tâches ce qui n'est pas le cas avec Screen.

Screen ne donne que la taille de l'écran et non la taille de la zone de travaille ce qui, je te le rappel, est le sujet de cette source :
"CONNAÎTRE LA RÉSOLUTION DE L'ÉCRAN ET CELLE DE L'ESPACE DE TRAVAIL 1.0"

@+
Cirec
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 9
16 mars 2008 à 11:20
Bonjour, il y a plus simple :

function GetResolution: String;
begin
Result := 'Résolution de l''écran : ' + IntToStr(Screen.Width) + ' pixels sur ' + IntToStr(Screen.Height) + ' pixels.'.
end;

// Résultat := " Résolution de l'écran : xxxx pixels sur xxxx pixels. "

Cordialement, Bacterius !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.