Atteindre un objet dans une grande fenêtre

' teste scroll de la fenêtre
label menu , page_bas,ligne_bas,page_haut,ligne_haut , ecran
dim handle% , InfoMini%,InfoMaxi%,InfoPosi%,hauteur%
dim a%, g%(20,1) , clic% ,t% , obj% ,xx%,yy%,res%

dll_on "C:\PANO\DLL\KGF.dll"  : width 0,630

main_menu 1:sub_menu 2:parent 2,1:caption 2,"Atteindre"
' d'abord remplir la fenêtre d'objet
memo 3:height 3,1000:item_add 3,"MEMO 3":for a%=1 to 50:item_add 3,str$(a%)+":memo 3":next a%:g%(3,0)=top(3):g%(3,1)=g%(3,0)+height(3)+10
sub_menu 4:parent 4,2:caption 4,"memo 3" :on_click 4,menu

memo 5:height 5,1000:item_add 5,"MEMO 5":top 5,g%(3,1):for a%=1 to 50:item_add 5,str$(a%)+":memo 5":next a% :g%(5,0)=g%(3,1):g%(5,1)=g%(5,0)+height(5)+10
sub_menu 6:parent 6,2:caption 6,"memo 5" :on_click 6,menu

memo 7:height 7,1000:item_add 7,"MEMO 7":top 7,g%(5,1):for a%=1 to 50:item_add 7,str$(a%)+":memo 7":next a% :g%(7,0)=g%(5,1):g%(7,1)=g%(7,0)+height(7)+10
sub_menu 8:parent 8,2:caption 8,"memo 7" :on_click 8,menu

memo 9:height 9,1000:item_add 9,"MEMO 9":top 9,g%(7,1):for a%=1 to 50:item_add 9,str$(a%)+":memo 9":next a% :g%(9,0)=g%(7,1):g%(9,1)=g%(9,0)+height(9)+10
sub_menu 10:parent 10,2:caption 10,"memo 9" :on_click 10,menu
' réglage
sub_menu 11:parent 11,1:caption 11,"_______________controle"
sub_menu 12:parent 12,11:caption 12,"page haut" :on_click 12,page_haut
sub_menu 13:parent 13,11:caption 13,"ligne haut":on_click 13,ligne_haut
sub_menu 14:parent 14,11:caption 14,"page bas"  :on_click 14,page_bas
sub_menu 15:parent 15,11:caption 15,"ligne bas" :on_click 15,ligne_bas
sub_menu 16:parent 16,11:caption 16,"dans forme":on_click 16,ecran

form 19:left 19,950 : top 19,50 :height 19,500
memo 20:parent 20,19: full_space 20
rem finalement g%(x,1) ne sert pas ici
end
' ========================================================================
menu:
  clic% = number_click
  item_add 20,"clic%="+str$(clic%)
  select clic%
      case 4 :obj%=3
      case 6 :obj%=5
      case 8 :obj%=7
      case 10:obj%=9
  end_select
  scroll()
return
' -----
sub info()

  handle%=handle(0) : xx%=left(0)+width(0)-30
  res% = dll_call6("GetScrollBarInfo",handle%,1,adr(InfoMini%),adr(InfoMaxi%),adr(InfoPosi%),adr(hauteur%))
  caption 0,"InfoMini%="+str$(InfoMini%)+"  InfoMaxi%="+str$(InfoMaxi%)+"  InfoPosi%="+str$(InfoPosi%)+"  hauteur%="+str$(hauteur%)+"  xx%="+str$(xx%)
end_sub
' =========================
sub print_()
  item_add 20,"objet: "+str$(obj%)
  item_add 20, "g%(" + str$(obj%) + ",0)=" + str$(g%(obj%,0)) +"  top("+str$(obj%)+")="+str$(top(obj%))
  item_add 20,"--------------"
end_sub
' ========================================================================
sub scroll()
info()
  dim_local i%
  print_()
  if top(obj%)>10
      if top(obj%) > hauteur% then scroll_bas()
  else
      if top(obj%) < hauteur%/2 then scroll_haut()
  end_if
 
  ' -----------ligne
  if top(obj%)>10
      ' ligne bas
      yy%=hauteur%-10
      repeat
          res%= dll_call2("MouseLeftClick",xx%,yy%)  :pause 1
          t%=top(obj%)
          print_()
        '  message "ligne bas  until t%<5"
          if i%= t% then exit_repeat
          i%=t%
      until t% < 5 or scancode = 27
  else
      if top(obj%)<5
        ' ligne haut
        repeat
          res%= dll_call2("MouseLeftClick",xx%,5) :pause 1
          t%=top(obj%)
          print_()
        '  message "ligne haut until t%>10 or t%=0"
        until t% > 10 or t%=0  or scancode = 27
      end_if
  end_if
end_sub

' ==============================================================================
sub scroll_haut()
 a%=1
 repeat
  ' l'objet est trop bas
  res%= dll_call2("MouseLeftClick",xx%,22)  :pause 1
  t%=top(obj%)
  print_()
  ' message "page haut until t% > 0"
  a%=a%+1:if a%=15 then exit_repeat :' normalement inutile
 until t% >= 0  or scancode = 27
end_sub

' ==============================================================================
sub scroll_bas()
 yy%=hauteur%-25
 a%=1
 repeat
  ' l'objet est trop haut
  res%= dll_call2("MouseLeftClick",xx%,yy%) :pause 1
  t%=top(obj%)
  print_()
  ' message "page bas: until t% < hauteur%/2 "
  a%=a%+1:if a%=8 then exit_repeat
 until t% < hauteur%/2 or scancode = 27
end_sub

' ====================testes partie réglage initiale===============
ecran:
' contrôle que le clic se fait bien dans l'écran
  info() :set_focus 0:pause 10
  res%= dll_call2("MouseLeftClick",250,100)
return
' =====================================================
page_haut:
' voir si clic en dessous de la flèche pour saut de page
  info() :set_focus 0
  res%= dll_call2("MouseLeftClick",xx%,22) :pause 100
return
ligne_haut:
' voir si le clic se fait sur la flèche du haut.
    info():set_focus 0
  res%= dll_call2("MouseLeftClick",xx%,2)  :pause 100
return
page_bas:
' voir si le clic se fait au dessus de la flèche du bas.
    info() :yy%=hauteur%-25
  res%= dll_call2("MouseLeftClick",xx%,yy%):wait 100
return
ligne_bas:
' voir si le clic se fait au dessus de la flèche pour saut de page
    info() :yy%=hauteur%-10
  res%= dll_call2("MouseLeftClick",xx%,yy%):pause 100
return

' teste scroll de la fenêtre
label menu
dim handle% , InfoMini%,InfoMaxi%,InfoPosi%,hauteur%
dim a%, g%(20,1) , clic% ,t% , obj% ,xx%,yy%,res% ,x_orig% , y_orig%

dll_on "C:\PANO\DLL\KGF.dll"  : width 0,630

main_menu 1:sub_menu 2:parent 2,1:caption 2,"Atteindre"
' d'abord remplir la fenêtre d'objet
memo 3:height 3,1000:item_add 3,"MEMO 3":for a%=1 to 50:item_add 3,str$(a%)+":memo 3":next a%
  g%(3,0)=top(3):g%(3,1)=g%(3,0)+height(3)+10
  sub_menu 4:parent 4,2:caption 4,"memo 3" :on_click 4,menu    :' pour atteindre le memo 3

memo 5:height 5,1000:item_add 5,"MEMO 5":top 5,g%(3,1):for a%=1 to 50:item_add 5,str$(a%)+":memo 5":next a%
  g%(5,0)=g%(3,1):g%(5,1)=g%(5,0)+height(5)+10
  sub_menu 6:parent 6,2:caption 6,"memo 5" :on_click 6,menu    :' pour atteindre le memo 5

memo 7:height 7,1000:item_add 7,"MEMO 7":top 7,g%(5,1):for a%=1 to 50:item_add 7,str$(a%)+":memo 7":next a%
  g%(7,0)=g%(5,1):g%(7,1)=g%(7,0)+height(7)+10
  sub_menu 8:parent 8,2:caption 8,"memo 7" :on_click 8,menu    :' pour atteindre le memo 7

memo 9:height 9,1000:item_add 9,"MEMO 9":top 9,g%(7,1):for a%=1 to 50:item_add 9,str$(a%)+":memo 9":next a%
  g%(9,0)=g%(7,1):g%(9,1)=g%(9,0)+height(9)+10
  sub_menu 10:parent 10,2:caption 10,"memo 9" :on_click 10,menu :' pour atteindre le memo 9
 
end
' ========================================================================
menu:
  clic% = number_click
  select clic%
      case 4 :obj%=3  :' clic sur le s/menu 4 pour atteindre le memo 3
      case 6 :obj%=5  :' clic sur le s/menu 4 pour atteindre le memo 5
      case 8 :obj%=7  :' clic sur le s/menu 4 pour atteindre le memo 7
      case 10:obj%=9  :' clic sur le s/menu 4 pour atteindre le memo 9
  end_select
  res% = dll_call2("GetAbsoluteMousePosition",adr(x_orig%),adr(y_orig%))  :' récupère la position au départ
  scroll()
  res% = dll_call2("MousePosition",x_orig%,10)  :' remèt le curseur près du clic sur le menu
return

' ========================================================================
sub scroll()
  handle%=handle(0) : xx%=left(0)+width(0)-30
  res% = dll_call6("GetScrollBarInfo",handle%,1,adr(InfoMini%),adr(InfoMaxi%),adr(InfoPosi%),adr(hauteur%))

  dim_local i%
 ' print_()
  if top(obj%)>10
      if top(obj%) > hauteur%
        yy%=hauteur%-25  :  a%=1
        repeat
          ' l'objet est trop haut
          res%= dll_call2("MouseLeftClick",xx%,yy%) :pause 1
          t%=top(obj%)  :  a%=a%+1:if a%=8 then exit_repeat
        until t% < hauteur%/2 or scancode = 27
      end_if
  else
      if top(obj%) < hauteur%/2 : ' déplacement par PAGE
        a%=1
        repeat
        ' l'objet est trop bas
          res%= dll_call2("MouseLeftClick",xx%,22)  :pause 1
          t%=top(obj%)  :  a%=a%+1 : if a%=15 then exit_repeat :' normalement inutile
        until t% >= 0  or scancode = 27
      end_if
  end_if

  ' -----------ligne  par ligne---------------
  if top(obj%)>10
      yy%=hauteur%-10  :  ' ligne bas
      repeat
          res%= dll_call2("MouseLeftClick",xx%,yy%)  :pause 1
          t%=top(obj%)    :    if i%= t% then exit_repeat
          i%=t%
      until t% < 5 or scancode = 27
  else
      if top(obj%)<5    :  ' ligne haut
        repeat
          res%= dll_call2("MouseLeftClick",xx%,5) :pause 1
          t%=top(obj%)
        until t% > 10 or t%=0  or scancode = 27
      end_if
  end_if
end_sub

label controle
picture 3:height 3,5000:hide 3
end
controle:
  caption 0,top(3)
return

' Tests das Fenster scrollen
' teste scroll de la fenêtre
label menu

dim handle%      :' <---
dim InfoMini%    :' <---
dim InfoMaxi%    :' <---
dim InfoPosi%    :' <---
dim hauteur%      :' <---

dim a%            :' <---  variable de comptage  Zählvariable
dim g%(20,1)      :' <---  Forme Hauteur totale  Summe Formhöhe
dim clic%        :' <---
dim t%            :' <---
dim obj%          :' <---  Mémo propriété        Objekt Memo
dim xx%          :' <---
dim yy%          :' <---
dim res%          :' <---
dim x_orig%      :' <---  ? pas de paramètres              keine Werte
dim y_orig%      :' <---  ? pas de paramètres              keine Werte

' ******************************************************************************

' dll_on "C: \ PANO \ DLL \ KGF.dll" width 0,630
dll_on "KGF.dll"  : width 0,630

' ******************************************************************************
' Form 0000
top    0000,0
left  0000,0
' height 0000,1000
width  0000,630

' ***
main_menu 1:sub_menu 2:parent 2,1:caption 2,"Atteindre"
' First füllen Sie das Fenster-Objekt
' d'abord remplir la fenêtre d'objet

memo 3:height 3,1000:item_add 3,"MEMO 3":for a%=1 to 50:item_add 3,str$(a%)+":memo 3":next a%

' Berechnung Höhe von Memo 3
'
g%(3,0)=top(3)
g%(3,1)=g%(3,0)+height(3)+10

sub_menu 4:parent 4,2:caption 4,"memo 3" :on_click 4,menu    :' pour atteindre le memo 3
                                                                ' memo, um die drei zu erreichen

memo 5:height 5,1000:item_add 5,"MEMO 5":top 5,g%(3,1):for a%=1 to 50:item_add 5,str$(a%)+":memo 5":next a%

' Berechnung Höhe von Memo 3
'
g%(5,0)=g%(3,1)
g%(5,1)=g%(5,0)+height(5)+10

sub_menu 6:parent 6,2:caption 6,"memo 5" :on_click 6,menu    :' pour atteindre le memo 5
                                                                ' memo, um die fünf zu erreichen

memo 7:height 7,1000:item_add 7,"MEMO 7":top 7,g%(5,1):for a%=1 to 50:item_add 7,str$(a%)+":memo 7":next a%

' Berechnung Höhe von Memo 3
'
g%(7,0)=g%(5,1)
g%(7,1)=g%(7,0)+height(7)+10

sub_menu 8:parent 8,2:caption 8,"memo 7" :on_click 8,menu    :' pour atteindre le memo 7
                                                                ' Memo bis 7 erreicht

memo 9:height 9,1000:item_add 9,"MEMO 9":top 9,g%(7,1):for a%=1 to 50:item_add 9,str$(a%)+":memo 9":next a%

' Berechnung Höhe von Memo 3
'
g%(9,0)=g%(7,1)
g%(9,1)=g%(9,0)+height(9)+10

sub_menu 10:parent 10,2:caption 10,"memo 9" :on_click 10,menu :' pour atteindre le memo 9
                                                              ' bis 9 memo erreichen

end
' ========================================================================
menu:
  clic% = number_click
  select clic%
      case 4 :obj%=3  :' clic sur le s/menu 4 pour atteindre le memo 3

      case 6 :obj%=5  :' clic sur le s/menu 4 pour atteindre le memo 5

      case 8 :obj%=7  :' clic sur le s/menu 4 pour atteindre le memo 7

      case 10:obj%=9  :' clic sur le s/menu 4 pour atteindre le memo 9
  end_select

' erhält die Startposition
' récupère la position au départ
  res% = dll_call2("GetAbsoluteMousePosition",adr(x_orig%),adr(y_orig%))

  scroll()

' gibt den Cursor in die Nähe Sie auf das Menü
' remèt le curseur près du clic sur le menu
  res% = dll_call2("MousePosition",x_orig%,10)
return

' ========================================================================
sub scroll()
  handle%=handle(0) : xx%=left(0)+width(0)-30
  res% = dll_call6("GetScrollBarInfo",handle%,1,adr(InfoMini%),adr(InfoMaxi%),adr(InfoPosi%),adr(hauteur%))

  dim_local i%
 ' print_()
  if top(obj%)>10
      if top(obj%) > hauteur%
        yy%=hauteur%-25  :  a%=1
        repeat

          ' Das Objekt ist zu hoch
          ' l'objet est trop haut

          res%= dll_call2("MouseLeftClick",xx%,yy%) :pause 1
          t%=top(obj%)  :  a%=a%+1:if a%=8 then exit_repeat
        until t% < hauteur%/2 or scancode = 27
      end_if
  else

' Verschiebung PAGE
' déplacement par PAGE

      if top(obj%) < hauteur%/2
        a%=1
        repeat

' Das Objekt ist zu niedrig
' l'objet est trop bas

          res%= dll_call2("MouseLeftClick",xx%,22)  :pause 1

' normalerweise unnötige
' normalement inutile

          t%=top(obj%)  :  a%=a%+1 : if a%=15 then exit_repeat
        until t% >= 0  or scancode = 27
      end_if
  end_if

 '------------ Zeile für Zeile  ---------------
 ' ----------- ligne  par ligne ---------------
  if top(obj%)>10

' Strich
' ligne bas

      yy%=hauteur%-10
      repeat
          res%= dll_call2("MouseLeftClick",xx%,yy%)  :pause 1
          t%=top(obj%)    :    if i%= t% then exit_repeat
          i%=t%
      until t% < 5 or scancode = 27
  else

' Line up
' ligne haut

      if top(obj%)<5
        repeat
          res%= dll_call2("MouseLeftClick",xx%,5) :pause 1
          t%=top(obj%)
        until t% > 10 or t%=0  or scancode = 27
      end_if
  end_if
end_sub