changer les dimensions de mon form

Sujet: changer les dimensions de mon form Sam 24 Nov 2012 - 8:44

Bonjour à tous, Smile

J'ai un petit problème que je n'arrive pas à résoudre et vos solutions seront les bienvenues. Je suis sûr que la solution est simple, mais je suis désespérément aveugle en ce moment! Je développe un petit programme pour mes besoins personnels, et je dois pouvoir changer la résolution de mon form en cliquant sur un bouton. Mais, voilà, ça ne bouge pas, et ça reste tout le temps en 1280x768!
Voici mon bout de code en espérant que vous pourrez m'aider!

Code:: label quit,screen
width 0,1280:height 0,768:top 0,(screen_y-height(0)-40)/2
form 100:width 100,320:height 100,748:left 100,1280:top 100,(screen_y-height(0)-40)/2
color 100,200,200,200:command_target_is 100
main_menu 1
sub_menu 2:parent 2,1:caption 2,"Menu"
sub_menu 3:parent 3,2:caption 3,"New"
sub_menu 4:parent 4,2:caption 4,"Open"
sub_menu 5:parent 5,2:caption 5,"Save"
sub_menu 6:parent 6,2:caption 6,"Quit":on_click 6,quit
sub_menu 8:parent 8,1:caption 8,"Screen":on_click 8,screen

form 75:hide 75:width 75,100:height 75,250:left 75,1400:top 75,200:command_target_is 75
button 76:left 76,20:top 76,5:caption 76," 800 X 600 "
button 77:left 77,20:top 77,30:caption 77,"1024 X 768 "
button 78:left 78,20:top 78,55:caption 78,"1152 X 864 "
button 79:left 79,20:top 79,80:caption 79,"1280 X 600 "
button 80:left 80,20:top 80,105:caption 80,"1280 X 720 "
button 81:left 81,20:top 81,130:caption 81,"1280 X 768 "
button 82:left 82,20:top 82,155:caption 82,"1280 X 800 "
button 83:left 83,20:top 83,180:caption 83,"1360 X 768 "
command_target_is 0
end

screen:
show 75
' while scancode=0:end_while
' while scancode=0:end_while
if clicked(76)=1 then width 0,800:height 0,600:top 0,(screen_y-height(0)-40)/2
if clicked(77)=1 then width 0,1024:height 0,768:top 0,(screen_y-height(0)-40)/2
if clicked(78)=1 then width 0,1152:height 0,864:top 0,(screen_y-height(0)-40)/2
if clicked(79)=1 then width 0,1280:height 0,600:top 0,(screen_y-height(0)-40)/2
if clicked(80)=1 then width 0,1280:height 0,720:top 0,(screen_y-height(0)-40)/2
if clicked(81)=1 then width 0,1280:height 0,768:top 0,(screen_y-height(0)-40)/2
if clicked(82)=1 then width 0,1280:height 0,800:top 0,(screen_y-height(0)-40)/2
if clicked(83)=1 then width 0,1360:height 0,768:top 0,(screen_y-height(0)-40)/2
' hide 75
return

quit:
terminate

Merci de votre aide...
A+ Wink

Sujet: Re: changer les dimensions de mon form Sam 24 Nov 2012 - 9:28

C'est par ce que tu ne gère pas le click sur les boutons .... Wink

Le bon code:

Code:: label quit,screen, click
width 0,1280:height 0,768:top 0,(screen_y-height(0)-40)/2
form 100:width 100,320:height 100,748:left 100,1280:top 100,(screen_y-height(100)-40)/2
color 100,200,200,200:command_target_is 100
main_menu 1
sub_menu 2:parent 2,1:caption 2,"Menu"
sub_menu 3:parent 3,2:caption 3,"New"
sub_menu 4:parent 4,2:caption 4,"Open"
sub_menu 5:parent 5,2:caption 5,"Save"
sub_menu 6:parent 6,2:caption 6,"Quit":on_click 6,quit
sub_menu 8:parent 8,1:caption 8,"Screen":on_click 8,screen

form 75:hide 75:width 75,100:height 75,250:left 75,1400:top 75,200:command_target_is 75
button 76:left 76,20:top 76,5:caption 76," 800 X 600 ":on_click 76,click
button 77:left 77,20:top 77,30:caption 77,"1024 X 768 ":on_click 77,click
button 78:left 78,20:top 78,55:caption 78,"1152 X 864 ":on_click 78,click
button 79:left 79,20:top 79,80:caption 79,"1280 X 600 ":on_click 79,click
button 80:left 80,20:top 80,105:caption 80,"1280 X 720 ":on_click 80,click
button 81:left 81,20:top 81,130:caption 81,"1280 X 768 ":on_click 81,click
button 82:left 82,20:top 82,155:caption 82,"1280 X 800 ":on_click 82,click
button 83:left 83,20:top 83,180:caption 83,"1360 X 768 ":on_click 83,click

command_target_is 0
end

screen:
show 75
return

Click:
if clicked(76)=1 then width 0,800:height 0,600:top 0,(screen_y-height(0)-40)/2
if clicked(77)=1 then width 0,1024:height 0,768:top 0,(screen_y-height(0)-40)/2
if clicked(78)=1 then width 0,1152:height 0,864:top 0,(screen_y-height(0)-40)/2
if clicked(79)=1 then width 0,1280:height 0,600:top 0,(screen_y-height(0)-40)/2
if clicked(80)=1 then width 0,1280:height 0,720:top 0,(screen_y-height(0)-40)/2
if clicked(81)=1 then width 0,1280:height 0,768:top 0,(screen_y-height(0)-40)/2
if clicked(82)=1 then width 0,1280:height 0,800:top 0,(screen_y-height(0)-40)/2
if clicked(83)=1 then width 0,1360:height 0,768:top 0,(screen_y-height(0)-40)/2
hide 75
return

quit:
terminate

Par contre je ne comprends pas bien l'interet de (screen_y-height(0)-40)/2
pourquoi pas seulement (screen_y-height(0))/2
Les -40 font sortir le titre de l'écran dans certaines résolution, mais c'est peut être volontaire pour avoir plus de place pour travailler

Sujet: Re: changer les dimensions de mon form Sam 24 Nov 2012 - 9:35

Bonjour Jicehel, Smile

Effectivement, j'ai oublié de gérer le clic sur les boutons, et je venais de m'en appercevoir, quand j'ai vu ta solution sur le post. Je te remercie bien pour ton aide. Le -40 correspond à la hauteur de la barre de menu Windows en bas avec les icones. J'ai choisi de ne pas la masquer automatiquement au démarrage des programmes.
A+ Wink

Sujet: Re: changer les dimensions de mon form Sam 24 Nov 2012 - 10:24

» CHANGER LA TAILLE DU FORM PRINCIPAL ???
» Tableau à 3 dimensions
» Dimensions des sprites
» Dimensions image presse-papier
» Extraire les dimensions d'une image JPG (+ BMP, GIF et TGA)