Problèmes de résolution écran avec Panoramic.

dim largeur_ecran%, hauteur_ecran%, fl, fh
largeur_ecran%=screen_x
hauteur_ecran%=screen_y
fl=largeur_ecran%/1600
fh=hauteur_ecran%/900

maximize 0
caption 0,str$(largeur_ecran%)+"x"+str$(hauteur_ecran%)

button 1
 
left(1,largeur_ecran%-200)
top(1,hauteur_ecran%/2-200)
width(1,200)
height(1,50)
caption 1,"Test"

end

sub left(param1%,param2%)
    left param1%,int(param2%*fl)
end_sub

sub top(param1%,param2%)
    top param1%,int(param2%*fh)
end_sub

sub width(param1%,param2%)
    width param1%,int(param2%*fl)
end_sub

sub height(param1%,param2%)
    height param1%,int(param2%*fh)
end_sub

largeur_ecran%=screen_x
hauteur_ecran%=screen_y

largeur_ecran%=width_client(0)
hauteur_ecran%=height_client(0)

' TEST coef kx et ky pour adaptation aux différentes résolutions d'écrans
' tous les écrans n'ayant pas le même rapport largeur / hauteur, deux corrections
' séparées sont ncessaires (en x et en y)

DIM kx : ' coefficient de dilatation horizontal
DIM ky : ' coefficient de dilatation vertical

' le programme sera conçu à partir de la plus petite résolution autorisée.
' Cet essai est réalisé à partir d'une résolution mini de 1360x768
' puis je l'afficherai sur un ecran 1920 x 1080

BORDER_HIDE 0
MAXIMIZE 0
color 0,0,0,0

' Determination hauteur et largeur ecran

DIM Largeur
DIM Hauteur

Largeur = WIDTH_CLIENT(0)
Hauteur = HEIGHT_CLIENT(0)

' Détermination kx et ky

kx=largeur/1360
ky=hauteur/768

BUTTON 1
TOP 1,25*ky
LEFT 1,25*kx

BUTTON 2
TOP 2,25*ky
LEFT 2,1250*kx

BUTTON 3
TOP 3,720*ky
LEFT 3,25*kx

BUTTON 4
TOP 4,720*ky
LEFT 4,1250*kx

BUTTON 5
TOP 5,334*ky
LEFT 5,630*kx
WIDTH 5,100
HEIGHT 5,100
CAPTION 5, STR$(largeur)+" x "+STR$(hauteur)

PAUSE 2000
TERMINATE

END

DIM fl : ' coefficient de dilatation horizontal
DIM fh : ' coefficient de dilatation vertical

label fin

BORDER_HIDE 0
MAXIMIZE 0
color 0,0,0,0

' Determination hauteur et largeur ecran

DIM Largeur
DIM Hauteur

largeur = screen_x
hauteur = screen_y
fl=largeur/1366
fh=hauteur/768

largeur=largeur/fl
hauteur=hauteur/fh

BUTTON 1
TOP(1,25)
LEFT(1,25)

BUTTON 2
TOP(2,25)
LEFT(2,1250)

BUTTON 3
TOP(3,720)
LEFT(3,25)

BUTTON 4
TOP(4,720)
LEFT(4,1250)

BUTTON 5
TOP(5,334)
LEFT(5,630)
WIDTH(5,100)
HEIGHT(5,100)
CAPTION 5, "Test"
on_click 5,fin

END

fin:
   terminate
return
  
sub left(param1%,param2%)
    left param1%,int(param2%*fl)
end_sub

sub top(param1%,param2%)
    top param1%,int(param2%*fh)
end_sub

sub width(param1%,param2%)
    width param1%,int(param2%*fl)
end_sub

sub height(param1%,param2%)
    height param1%,int(param2%*fh)
end_s

' proportion
label fin
dim kx,ky
color 0,0,0,0

rem ============================ ici faites plusieurs essais de taille de FORM 0
' width 0,900 : height 0,500
 full_space 0
' border_hide 0

' coëf
kx=screen_x/width_client(0) :ky=screen_y/height_client(0)

button 1
width 1,100 : caption 1,"Quitter"
top 1,10/ky : left 1,10/kx
on_click 1,fin

button 2 : caption 2,"2"
width 2,100
top 2,10/ky : left 2,width_client(0)-width(2)-10/kx

button 3 : caption 3,"3"
width 3,100
top 3,height_client(0)-height(3)-10/ky : left 3,width_client(0)-width(3)-10/kx

button 4 : caption 4,"4"
width 4,100
top 4,height_client(0)-height(4)-10/ky : left 4,10/kx

message "Dimensions de travail: "+str$(width_client(0))+" X "+str$(height_client(0))
END

fin:
 terminate
RETURN