Ecran en 600*800
Résolu
Kristel60
cs_morinxav2
- Messages postés
- 10
- Date d'inscription
- vendredi 30 avril 2004
- Statut
- Membre
- Dernière intervention
- 8 février 2011
cs_morinxav2
- Messages postés
- 67
- Date d'inscription
- mercredi 30 juin 2004
- Statut
- Membre
- Dernière intervention
- 6 octobre 2011
A voir également:
- Ecran en 600*800
- Mettee ma fenetre en bas a droite de l'écran en 1027*768 et en 800*600 ? ✓ - Forum - Visual Basic
- Casse brique 800*600 + editeur de niveaux + de 250 briques - Codes sources - Visual Basic / VB.NET (Jeux)
- Fond d'ecran basique ✓ - Forum - Visual Basic
- Comment changer le fond d'écran... etc? - Forum - Visual Basic
- Fond d'écran - Forum - Java
4 réponses
jmp77
1 févr. 2005 à 16:39
- Messages postés
- 1119
- Date d'inscription
- lundi 4 février 2002
- Statut
- Membre
- Dernière intervention
- 4 octobre 2006
1 févr. 2005 à 16:39
Hello,
Voici la fonction que j'utilise pour forcer l'affichage en 1024 * 768 :
{------------------------------------------------------------------------------}
{
Modifie la résolution si elle n'est pas 1024 x
768
}
{------------------------------------------------------------------------------}
function DisplayMode : Boolean;
var
Dm : TdeviceMode;
Hdc : THandle;
ScreenHeight,ScreenWidth,ScreenFrequency,ScreenProf : Real;
Compteur : Integer;
EncoreDesModes : Bool;
WorkDisplayMode : TDevMode;
Change : Integer;
begin
Hdc := FormStart.Canvas.Handle;
ScreenHeight := GetDeviceCaps(Hdc,VertRes);
ScreenWidth := GetDeviceCaps(Hdc,HorzRes);
ScreenFrequency := GetDeviceCaps(Hdc,VREFRESH);
ScreenProf := GetDeviceCaps(Hdc,BITSPIXEL);
If (ScreenHeight < 768) and (ScreenWidth < 1024) then
begin
Change := 0;
Compteur := 0;
Repeat
EncoreDesModes := EnumDisplaySettings(nil,Compteur,Dm);
If (ScreenHeight Dm.DmPelsHeight) and (ScreenWidth Dm.DmPelsWidth) and
(ScreenFrequency dm.dmDisplayFrequency) and (ScreenProf dm.dmBitsPerPel) then
begin
ActiveDisplayMode := Dm;
end;
If (Dm.DmPelsHeight 768) and (Dm.DmPelsWidth 1024) then
begin
WorkDisplayMode := Dm;
Change := 1;
end;
{else
begin
Result := False;
end;}
Inc(Compteur);
until EncoreDesModes = False;
If Change = 1 then
begin
ShowMessage('Le soft est optimisé pour
fonctionner sous une résolution de 1024 x 768.' + Chr(13) +
'Votre résolution actuelle n''est pas
adaptée. Le programme va basculer en 1024 x 768.' + Chr(13) +
'Votre résolution sera rétablie lors de la fermeture du soft.');
ChangeDisplaySettings(WorkDisplayMode,0);
Result := True;
end
else
begin
Result := False;
end;
end
else
begin
Result := True;
end;
end;
Bonne prog,
JMP77.
N'oubliez pas de cliquer sur réponse acceptée.
Voici la fonction que j'utilise pour forcer l'affichage en 1024 * 768 :
{------------------------------------------------------------------------------}
{
Modifie la résolution si elle n'est pas 1024 x
768
}
{------------------------------------------------------------------------------}
function DisplayMode : Boolean;
var
Dm : TdeviceMode;
Hdc : THandle;
ScreenHeight,ScreenWidth,ScreenFrequency,ScreenProf : Real;
Compteur : Integer;
EncoreDesModes : Bool;
WorkDisplayMode : TDevMode;
Change : Integer;
begin
Hdc := FormStart.Canvas.Handle;
ScreenHeight := GetDeviceCaps(Hdc,VertRes);
ScreenWidth := GetDeviceCaps(Hdc,HorzRes);
ScreenFrequency := GetDeviceCaps(Hdc,VREFRESH);
ScreenProf := GetDeviceCaps(Hdc,BITSPIXEL);
If (ScreenHeight < 768) and (ScreenWidth < 1024) then
begin
Change := 0;
Compteur := 0;
Repeat
EncoreDesModes := EnumDisplaySettings(nil,Compteur,Dm);
If (ScreenHeight Dm.DmPelsHeight) and (ScreenWidth Dm.DmPelsWidth) and
(ScreenFrequency dm.dmDisplayFrequency) and (ScreenProf dm.dmBitsPerPel) then
begin
ActiveDisplayMode := Dm;
end;
If (Dm.DmPelsHeight 768) and (Dm.DmPelsWidth 1024) then
begin
WorkDisplayMode := Dm;
Change := 1;
end;
{else
begin
Result := False;
end;}
Inc(Compteur);
until EncoreDesModes = False;
If Change = 1 then
begin
ShowMessage('Le soft est optimisé pour
fonctionner sous une résolution de 1024 x 768.' + Chr(13) +
'Votre résolution actuelle n''est pas
adaptée. Le programme va basculer en 1024 x 768.' + Chr(13) +
'Votre résolution sera rétablie lors de la fermeture du soft.');
ChangeDisplaySettings(WorkDisplayMode,0);
Result := True;
end
else
begin
Result := False;
end;
end
else
begin
Result := True;
end;
end;
Bonne prog,
JMP77.
N'oubliez pas de cliquer sur réponse acceptée.
Kristel60
1 févr. 2005 à 18:53
- Messages postés
- 10
- Date d'inscription
- vendredi 30 avril 2004
- Statut
- Membre
- Dernière intervention
- 8 février 2011
1 févr. 2005 à 18:53
Merci beaucoup tout les deux, c'est exactement ce que je cherchais
Kristel
Kristel
cs_morinxav2
23 mars 2005 à 10:12
- Messages postés
- 67
- Date d'inscription
- mercredi 30 juin 2004
- Statut
- Membre
- Dernière intervention
- 6 octobre 2011
23 mars 2005 à 10:12
Bonjour,
Excuse moi, je suis très interressé par ta fonction, mais comme je suis un peu novice, je ne vois pas comment utiliser celle ci dans un programme. En plus il y a une erreur de compil, je pense que tu as oubliée une declaration de varaiable (ActiveDisplayMode : TDevMode;)?.
J'ai bien compris qu'il faut appeller la fonction a l'ouverture du programme. mais je ne sais pas comment.
Je te remercie d'avance pour ta reponse.
(Genial ce site)
Excuse moi, je suis très interressé par ta fonction, mais comme je suis un peu novice, je ne vois pas comment utiliser celle ci dans un programme. En plus il y a une erreur de compil, je pense que tu as oubliée une declaration de varaiable (ActiveDisplayMode : TDevMode;)?.
J'ai bien compris qu'il faut appeller la fonction a l'ouverture du programme. mais je ne sais pas comment.
Je te remercie d'avance pour ta reponse.
(Genial ce site)
cs_morinxav2
25 mars 2005 à 08:41
- Messages postés
- 67
- Date d'inscription
- mercredi 30 juin 2004
- Statut
- Membre
- Dernière intervention
- 6 octobre 2011
25 mars 2005 à 08:41
Bonjour,
Je peux repondre a ma propre question ci-dessus, il faut declarer la function dans var de votre application (function DisplayMode : Boolean;), vous recopier la function, puis mettre (displaymode;) a l'ouverture de votre Form.
Par contre comment fait on pour revenir a la taille d'origine, a la fermeture de l'application ?
Je continue a chercher..
Merci d'avance, a bientôt.
Je peux repondre a ma propre question ci-dessus, il faut declarer la function dans var de votre application (function DisplayMode : Boolean;), vous recopier la function, puis mettre (displaymode;) a l'ouverture de votre Form.
Par contre comment fait on pour revenir a la taille d'origine, a la fermeture de l'application ?
Je continue a chercher..
Merci d'avance, a bientôt.