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 370 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
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
9
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é !)
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
9
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 ...
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
@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
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
9
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.