Un "PAGICIEL" Parcourt de pages Panoramic

' définition des objets, dont l'un en cliquant sur une barre picture verticale, on a on_click 1015,trouve_objet
end

' le clic sur la bande ammène ici, y% est la position du clic sur un picture devant l'objet à controler ou modifier, supprimer...
TROUVE_OBJET:
    timer_off 499 : t%=0
    y% = mouse_y_position(105)+100

    if count(110) >0
        q$=q$+"(1418 trouve_objet) -("+str$(t%)+")- ":text 15,q$
        for a% =  1 to  count(110)
            if y% >= g%(149+a%,0) and y% <=g%(149+a%,1)
                a$ = item_read$(110,a%) :x% = a%
                height 105,0

                message 2                          :' MESSAGE 2

                gosub clic105 :' modifie l'objet

                message 5                          :' MESSAGE 5

                exit_for
            end_if

            message 1                              :' MESSAGE 1  :' apparait jusqu'à atteindre le bon objet'

        next a%

        message 6                                  :' MESSAGE 6

    end_if
    height 105,g%(149+count(110),1) -100                                      :' la bande de clic s'arrète en bas du dernier objet

    message 7                                      :' MESSAGE 7
return

clic105:

    message 3                                      :' MESSAGE 3

    form 109:width 109,500:height 109,100:top 109,top(110)+ x%*15:left 109,80 :color 109,254,255,168: border_hide 109
            command_target_is 109
    alpha  113:top 113,10:left 113,10:color 113,254,255,168

    list    112:top 112,35:left 112,5 :width 112,100:height 112,60 :color 112,255,220,98
                item_add 112,"modifier" : item_add 112,"supprimer l'objet" : item_add 112,"annuler"
                on_click 112,lit_110  : rem  ON_CLICK 112,LIT_110
    inactive 110
    command_target_is 0 : inactive 0 :' target sur 0 pour pouvoir supprimer ensuite 109
    chaine$ = a$:gosub explode
    if check$(6) = "¤"
        caption 113,"FICHIER:"+check$(7)
    else                        :' 3:edit; 4:memo, 6:alpha
        if object_type(149+x%)= 4 then caption 113,item_read$(149+x%,1) :' memo        149+x%= nb_memo% le n° de l'objet concerné
        if object_type(149+x%)= 3 then caption 113,text$(149+x%)        :' edit        x% étant item_index(110)
        if object_type(149+x%)= 6 then caption 113,caption$(149+x%)    :' alpha
    end_if

    message 4                                      :' MESSAGE 4

return


LIT_110:

    if OBJECT_EXISTS(112) = 1
        inactive 110
        select item_index(112)
            case 1:' modification

                    message 8                      :' MESSAGE 8

                    gosub clic110_suite

                    message 16                    :' MESSAGE 16

            case 2:' supprimer

            case 3:' annuler
                    height 105,g%(149+count(110),1) -100 : color 105,179,179,179
                    inactive 350
        end_select
    end_if

    message 17                                    :' MESSAGE 17

    if OBJECT_EXISTS(109) = 1 then delete 109
    active 0 : active 110:' timer_on 499

    message 18                                    :' MESSAGE 18              :rem c'est ici qu'une erreur Abstract Error apparaît
return

clic110_suite:

  message 9                                        :' MESSAGE 9

  active 350
 ' --------------------
 if left$(a$,4) ="memo"
    hide 352  : hide 367
    look%=378 : objet%=4  : ajout%=0

    message 10                                    :' MESSAGE 10

    GOSUB LOOK_ALPHA
 rem =======================================================================
    ' on n'a pas encore lu les attributs du memo
    chaine$ =a$  :gosub explode
    if check$(6) ="¤" then MARK_ON 386: else:MARK_ON 385

    message 11                                    :' MESSAGE 11

rem    "memo  |0|  C  |sup|sup|¤|fichier|programme"             
rem      1    |2|  3  | 4 | 5 |6|  7    |  8                   
rem        |style|copier|                                         
'        memo  |0|0    |  |  | |      ||
    nu%(objet%) = val(check$(2)) :' commence à 0'
    if check$(6) = "¤" then text 387,check$(7)
    if instr(check$(3),"C") > 0 then MARK_ON 366:else:MARK_OFF 366
    chaine$ = item_read$(478, nu%(objet%)+1)

    message 12                                    :' MESSAGE 12

    GOSUB EXPLODE
    attribut$=check$(4)

    message 13                                    :' MESSAGE 13

    GOSUB FONT_ATTRIBUT_MODELE

    message 14                                    :' MESSAGE 14

    fond%(1)=val(check$(1)) :fond%(2)=val(check$(2))  :fond%(3)=val(check$(3))
    encre%(1)=val(check$(4)) :  encre%(2)=val(check$(5)) : encre%(3)=val(check$(6))
    color 358,fond%(1),fond%(2),fond%(3) : color 359,encre%(1),encre%(2),encre%(3)
    color 390,fond%(1),fond%(2),fond%(3) : font_color 390,encre%(1),encre%(2),encre%(3)
    size% = val( check$(8) )  :position 356,size%

    ON_CLICK 353,CAPTION_ALPHA_ : ON_CLICK 354,CAPTION_ALPHA_
    show 350:to_foreground 350 : inactive 0
    rem la form 350 étant affichée, on choisi les options, et on valide ou non

    message 15                                    :' MESSAGE 15

    return
 end_if

return

variable:
SUB variable()
 dim dossier$ , d1$ , d2$ , debut$ , DL$ , disk$ , forum$ ,dll$ ,model$
  disk$="c:\"
  dossier$ = disk$ + "\PANO\temp\"
  dll$ = "c:\PANO\temp\Dlls\KGF.dll"