Problème de résolution écran.

dim hnd%, largeur_ecran%, hauteur_ecran%, res%
dim c$, fichier$, fichier99$, k%, langue_source$, numero_exercice%
dim fl, fh

dll_on "kgf.dll"

largeur_ecran%=screen_x
hauteur_ecran%=screen_y

langue_source$="espagnol"

fl=largeur_ecran%/1600
fh=hauteur_ecran%/900

width 0,largeur_ecran%
height 0,hauteur_ecran%

module_soutien()
end

sub module_soutien()

      creer_objet("form",160,0,0,0,largeur_ecran%,hauteur_ecran%,"Soutien scolaire.","",0,0,0,0,0,0)
      command_target_is 160

      creer_objet("alpha",1662,160,360,30,400,30,"Calibri","Choisissez ci-contre le chapitre à étudier.",1,0,14,255,255,255)
      color 1662,0,0,128

      creer_objet("combo",274,160,left(1662)+width(1662)+10,top(1662),400,600,"Calibri","",1,0,12,255,255,128)
      item_add 274,"nombres"
      text 274,item_read$(274,1)

      ' Contient l'exercice à faire.
      creer_objet("memo",1870,160,left(1662),top(1662)+60,width(1662),250,"Calibri","",1,0,12,255,255,255)
      color 1870,0,128,64
      bar_vertical 1870

      ' Contient la grammaire du chapitre.
      creer_objet("memo",1869,160,left(274),top(1870),width(274),height(1870),"Courier","",1,0,12,255,255,255)
      color 1869,0,128,64
      bar_vertical 1869

      ' Contient le corrigé.
      creer_objet("memo",1871,160,left(1870),top(1870)+height(1870)+10,width(1870),210,"Calibri","",1,0,12,255,255,255)
      color 1871,0,128,64
      bar_vertical 1871
      item_add 1871,"Les corrigés apparaîtront ici (voir menu 'fichier', 'correction...')."

      creer_objet("alpha",1663,160,left(1662),top(1662)+600,width(1662),30,"Calibri","Lexique.",1,0,16,255,255,255)
      color 1663,0,0,128

      creer_objet("combo",275,160,left(1663),top(1663)+30,width(1663),600,"Calibri","",1,0,12,255,255,128)
 end_sub

sub creer_objet(type$,no%,param1%,param2%,param3%,param4%,param5%,param6$,label$,param7%,souligne%,param8%,param9%,param10%,param11%)

    dim_local fl, fh

    fl=largeur_ecran%/1600
    fh=hauteur_ecran%/900

    if object_exists(no%)=1
      message_couleur(0,0,"Erreur: l'objet numéro '"+str$(no%)+"' existe déjà !") : ' +CRLF$+"Type de l'objet: "+object_type(no%))
    end_if

    if type$="form"
      form no%
          else
      if type$="alpha" then alpha no%
      if type$="button" then button no%
      if type$="check" then check no%
      if type$="combo" then combo no%
      if type$="container_option" then container_option no%
      if type$="edit" then edit no%
      if type$="form" then form no%
      if type$="list" then list no%
      if type$="memo" then memo no%
      if type$="option" then option no%
      if type$="picture" then picture no%
      parent no%,param1%
    end_if

    if no%=765
      full_space 765
          else
      left no%,param2%*fl
      top no%,param3%*fh
      width no%,param4%*fl
      height no%,param5%*fh
    end_if

    if type$="form"
      caption no%,param6$
      ' Cacher les boutons de réduction, agrandissement et fermeture.
      hnd%=handle(no%)
      res%=dll_call2("SetMinimizeMaximize",hnd%,0)
      res%=dll_call2("SetCloseBox",hnd%,0)
      exit_sub
    end_if

    if len(param6$)>0
      if type$<>"picture"
          font_name no%,param6$
            else
          if no%<>765 then stretch_on no%
          if file_exists(param6$)=1 then file_load no%,param6$
      end_if
    end_if
    if len(label$)>0
      if type$="alpha" or type$="check" or type$="button" or type$="container_option" then caption no%,label$
      if type$="memo" then item_add no%,label$
      if type$="picture" then hint no%,label$
    end_if
    if param7%>0 and type$<>"picture" then font_bold no%

    if souligne%=1 then font_underline no%
    if param8%>0 then font_size no%,param8%

    if type$="button" then exit_sub

    if type$<>"picture"
      if type$<>"combo"
          font_color no%,param9%,param10%,param11%
            else
          color no%,param9%,param10%,param11%
      end_if
    end_if

    if type$="check" then mark_off no%
end_sub