dimension ecran et form

Version imprimable

un debut de mon application tire des renseignements de la FAQ ce que j'ai reussi a faire d'apres les renseignements recueillis et mes propres recherches
il faut une forme et un bouton
dans form.cpp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
 
#include <vcl.h>
#pragma hdrstop
#include "save_resol.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        // on rend invisible la barre de tache
HWND wd = FindWindow("Shell_TrayWnd", NULL);
ShowWindow(wd, 0);
        // acquisition resolution
Width = Screen->Width;
Height = Screen->Height;
        // on sauve la resolution
save_reso_width = Width;
save_reso_height = Height;
        // on teste la resolution
        // si elle est differente de 800*600
        // alors on change la resolution
if(Width != 800 && Height != 600)
{
TDeviceMode *Dev = new TDeviceMode;
EnumDisplaySettings(0, ENUM_CURRENT_SETTINGS, Dev);
Dev->dmPelsWidth = 800;
Dev->dmPelsHeight = 600;
Dev->dmFields = DM_PELSWIDTH | DM_PELSHEIGHT;
bool result = (ChangeDisplaySettings(Dev, CDS_RESET) == DISP_CHANGE_SUCCESSFUL);
delete Dev;
        // result n'est pas utilise pour l'instant
        //return result;
}
// on positionne la forme en haut a gauche
HWND hwnd = GetForegroundWindow();
        //MoveWindow(hwnd, 0, 0, 800, 600, 1);
SetWindowPos(hwnd, HWND_TOP, 0, 0, 800, 600, SWP_DRAWFRAME);
        // on efface la barre de titre ainsi que
        // minimise, resize, et croix fermeture
        // la barre de titre doit etre effacee apres le
        // positionnement sinon la fonction SetWindowPos
        // est sans effet quand au positionnement en
        // haut a gauche
Form1->BorderStyle = bsNone;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        // on teste la resolution
        // si elle est differente de la sauvegarde
        // alors on change la resolution
Width = Screen->Width;
Height = Screen->Height;
if(Width != save_reso_width && Height != save_reso_height)
{
TDeviceMode *Dev = new TDeviceMode;
EnumDisplaySettings(0, ENUM_CURRENT_SETTINGS, Dev);
Dev->dmPelsWidth = save_reso_width;
Dev->dmPelsHeight = save_reso_height;
Dev->dmFields = DM_PELSWIDTH | DM_PELSHEIGHT;
bool result = (ChangeDisplaySettings(Dev, CDS_RESET) == DISP_CHANGE_SUCCESSFUL);
delete Dev;
        // result n'est pas utilise pour l'instant
        //return result;
}
        // on rend visible la barre de tache
HWND wd = FindWindow("Shell_TrayWnd", NULL);
ShowWindow(wd, 8);
        // on termine le programme
Application->Terminate();
}

dans form.h

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
#ifndef save_resolH
#define save_resolH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
private: // User declarations
public:  // User declarations
int save_reso_width;
int save_reso_height;
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

je remercie tous les intervenants c'est grace a eux si je progresse

07/05/2006, 20h05
bandit boy

Tu poses ton code à titre informatif, ou tu as une question?

Si c'est juste pour info, tu peux demander à faire parti des groupes de discussions. Sinon, j n'ai pas vu ta question, désolé :lol:
07/05/2006, 21h26
blondelle

le code fonctionne chez moi sur XP pro pack1 il est donne a titre d'information mais peut etre ameliore si besoin est le but du forum est de partager et c'est ce que je fais.
08/05/2006, 12h58
bandit boy

D'accord, mais pourquoi rend tu invisible la barre des tâches?
Cette opération la rend juste invisible, mais elle ne libère pas l'espace en bas de l'écran. Pour cela, il faut modifier le paramètre d'affichage de la barre.
08/05/2006, 14h16
blondelle

je rend la barre de tache invisible pour qu'une mauvaise manip ne soit pas faite le programme que je projette, je doit gerer un telescope donc etre utilise la nuit, je vais commander des moteurs pas a pas et, ceux ci ne peuvent rester sous tension sans tourner (c'est le programme qui les commandes).
Je m'etais apercu que toute la surface de l'ecran n'etait pas liberee ma forme ne fait pas tout a fait 800*600 je pensais que cela etait normal pour recuperer cet espace quelle commande utiliser S.V.P.
08/05/2006, 15h36
Neilos

Citation:

Envoyé par blondelle

je rend la barre de tache invisible pour qu'une mauvaise manip ne soit pas faite le programme que je projette, je doit gerer un telescope donc etre utilise la nuit, je vais commander des moteurs pas a pas et, ceux ci ne peuvent rester sous tension sans tourner (c'est le programme qui les commandes).
Je m'etais apercu que toute la surface de l'ecran n'etait pas liberee ma forme ne fait pas tout a fait 800*600 je pensais que cela etait normal pour recuperer cet espace quelle commande utiliser S.V.P.

Pourrais tu être plus précise et t'exprimer un peu mieux s'il te plaît ?
Je ne comprend pas bien ce que tu demandes...
08/05/2006, 15h46
blondelle

comment recuperer l'espace laisse par la barre de tache
08/05/2006, 16h10
Neilos

Ajuster les propriétés Width et Height de ta fiche à respectivement Screen->Width et Screen->Height ne le fait pas ?
08/05/2006, 16h19
blondelle

reponse a neilos
ma forme se redimensionne systematiquement en 790*524
08/05/2006, 16h21
Neilos

Ta form est maximisée ou qqc ?
Si tu la redimensionne à la main (avec la souris) durant l'exécution tu peux l'aggrandir en débordant sur la zone où il y avait la bare des tâches non ?
08/05/2006, 16h23
blondelle

reponse a neilos
le fait d'avoir supprime la barre de titre ne me donne plus la main sur la forme
08/05/2006, 19h04
Neilos

Eh bien pour les tests tu remet la barre de titre :p
08/05/2006, 19h33
blondelle

reponse a neilos
la barre de titre remise aucun changements l'ecran est occupe completement mais la dimension de la forme est toujours de 790*524, par contre la place liberee quand on rend la barre de titre invisible n'est pas recuperee , on ne recupere pas non plus la place de la barre de tache quand on la rend invisible
08/05/2006, 19h49
Neilos

Et tu as essayé comme je t'ai dit en agrandissant la taille via le curseur de la souris ?
08/05/2006, 20h17
blondelle

reponse a neilos
oui mais je n'ai pas la main sur la forme
08/05/2006, 20h45
Neilos

Tu appelles quoi ne pas avoir la main ?
08/05/2006, 20h52
blondelle

Citation:

reponse a neilos
la souris ne peut pas redimensionner la forme

Oui d'accord mais c'est TOI qui développe cette application...donc tu peux faire en sorte que ta fenêtre puisse à nouveau être redimensionnée par la souris pour faire le test et ensuite le désactiver à nouveau....non ?
08/05/2006, 20h59
bandit boy
Salut,
Pour Neilos, je ne comprend pas ta modification:

Citation:

Dernière modification par Neilos Aujourd'hui à 19h50. Motif: Evite de poster deux fois de suite, utilise plutôt le bouton Editer à la place. Merci !

Vu que ce que tu as ajouté à ma conversasion ne viens pas de moi !

Pour Blondelle, voici un code que j'ai fais qui teste l'état de la barre de tâche, si tu veux la modifier, je te donnerais la fonction plus tard
Code:

1 2 3 4 if((UINT) SHAppBarMessage(ABM_GETSTATE, &TaskBar) == ABS_ALWAYSONTOP) {\\traitement }
et je l'ajouterai en modifiant mon post (ne t'inquiète pas Neilos)
08/05/2006, 21h21
Neilos

Citation:

Envoyé par bandit boy

Salut,
Pour Neilos, je ne comprend pas ta modification:

Vu que ce que tu as ajouté à ma conversasion ne viens pas de moi !
et je l'ajouterai en modifiant mon post (ne t'inquiète pas Neilos)

Erf gros plop. Je ne comprend vraiment pas comment ça c'est fusionné...mauvaise manipulation probablement mais je ne m'en suis pas rendu compte.
Toutes mes excuses :oops:
08/05/2006, 21h47
bandit boy
Y'a pas de soucis Neilos.
Du coup je profite de ce post pour donner une fonction qui devrait modifier l'état de la barre des tâches
Code:

1 2 3 4 5 if((UINT) SHAppBarMessage(ABM_SETSTATE, &TaskBar) = ABS_ALWAYSONTOP) { Application->MessageBox("Erreur de changement de propriété","Erreur",MB_OK); }
à tester, je n'ai pas builder sur ce poste. Sinon, je confirmerais surement demain matin.
08/05/2006, 22h37
blondelle

je suis rassure moi croyais avoir fait une betise

Après Test, ce matin, et correction, voici le nouveau programme qui marche pour pouvoir changer de propriété de la barre de tâches d'un seul clic sur le bouton et ainsi libérer l'espace de la barre de tâche et le remettre (AUTOHIDE ou ALWAYSONTOP)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 _AppBarData TaskBar; TaskBar.hWnd = FindWindow("Shell_TrayWnd", NULL); TaskBar.cbSize = sizeof(TaskBar); if((UINT) SHAppBarMessage(ABM_GETSTATE, &TaskBar) == ABS_ALWAYSONTOP) { TaskBar.lParam = ABS_AUTOHIDE ; } else { TaskBar.lParam = ABS_ALWAYSONTOP; } if( (UINT) SHAppBarMessage(ABM_SETSTATE, &TaskBar) == false ) { Application->MessageBox("Erreur de changement de propriété","Erreur",MB_OK); }
Fonction à ajouter pourquoi pas dans la FAQ ?

23/06/2006, 16h32
blondelle

je met un petit resolu