Mes souhaits d'amélioration de Panoramic.

' Construction d'objets                                                                                                       
  SUB BUILD_OBJECT(Object$,Obj%,Par%,H%,W%,T%,L%)
     dim_local i%,ListObject$,ObjName$,Type%,Fen%
      
     ListObject$ ="SCENE3D BUTTON EDIT MEMO COMBO ALPHA FORM LIST PICTURE CHECK OPTION"+chr$(32)
     ListObject$ = ListObject$ + "MAIN_MENU SUB_MENU SOUND MOVIE TRACK_BAR OPEN_DIALOG SAVE_DIALOG"+chr$(32)
     ListObject$ = ListObject$ + "SCROLL_BAR PROGRESS_BAR SPIN GRID CONTAINER MEMO_RICH BUTTON_PICTURE DLIST SCENE2D TIMER"+chr$(32)
     ListObject$ = ListObject$ + "PANEL - MAIN_MENU_POP CONTAINER_OPTION OPEN_DIALOG_PIC SAVE_DIALOG_PIC SHAPE HVIEWER SERIAL LED1 DIGIT1"+chr$(32)
     ListObject$ = ListObject$ + "SWITCH1 IMAGE CONTAINER_TAB TAB - - SYNEDIT CHART"+chr$(32)   
     for i%=1 to 47
        ObjName$ = left$(ListObject$,instr(ListObject$,chr$(32))-1)
        ListObject$ = right$(ListObject$,len(ListObject$)-instr(ListObject$,chr$(32)))
        if ObjName$ = Object$
           Type% = i%
           exit_for
        end_if
     next i%
      
     select Type%
     case 1  : Fen% = 1 : SCENE3D Obj%
     case 2  : Fen% = 1 : BUTTON Obj%
     case 3  : Fen% = 1 : EDIT Obj%
     case 4  : Fen% = 1 : MEMO Obj%
     case 5  : Fen% = 1 : COMBO Obj%
     case 6  : Fen% = 1 : ALPHA Obj%
     case 7  : Fen% = 1 : FORM Obj%
     case 8  : Fen% = 1 : LIST Obj%
     case 9  : Fen% = 1 : PICTURE Obj%
     case 10 : Fen% = 1 : CHECK Obj%
     case 11 : Fen% = 1 : OPTION Obj%
     case 12 : Fen% = 0 : MAIN_MENU Obj%
     case 13 : Fen% = 0 : SUB_MENU Obj%
     case 14 : Fen% = 0 : SOUND Obj%
     case 15 : Fen% = 0 : MOVIE Obj%
     case 16 : Fen% = 1 : TRACK_BAR Obj%
     case 17 : Fen% = 0 : OPEN_DIALOG Obj%
     case 18 : Fen% = 0 : SAVE_DIALOG Obj%
     case 19 : Fen% = 1 : SCROLL_BAR Obj%
     case 20 : Fen% = 1 : PROGRESS_BAR Obj%
     case 21 : Fen% = 1 : SPIN Obj%
     case 22 : Fen% = 1 : GRID Obj%
     case 23 : Fen% = 1 : CONTAINER Obj%
     case 24 : Fen% = 1 : MEMO_RICH Obj%
     case 25 : Fen% = 1 : BUTTON_PICTURE Obj% : button_picture_target_is_object
     case 26 : Fen% = 0 : DLIST Obj%
     case 27 : Fen% = 1 : SCENE2D Obj%
     case 28 : Fen% = 0 : TIMER Obj%      
     case 29 : Fen% = 1 : PANEL Obj%
     case 30
     case 31 : Fen% = 0 : MAIN_MENU_POP Obj%
     case 32 : Fen% = 1 : CONTAINER_OPTION Obj%
     case 33 : Fen% = 0 : OPEN_DIALOG_PIC Obj%
     case 34 : Fen% = 0 : SAVE_DIALOG_PIC Obj%
     case 35 : Fen% = 1 : SHAPE Obj%
     case 36 : Fen% = 1 : HVIEWER Obj%
     case 37 : Fen% = 0 : SERIAL Obj%
     case 38 : Fen% = 1 : LED1 Obj%
     case 39 : Fen% = 1 : DIGIT1 Obj%
     case 40 : Fen% = 1 : SWITCH1 Obj%   
     case 41 : Fen% = 0 : IMAGE Obj%
     case 42 : Fen% = 1 : CONTAINER_TAB Obj%
     case 43 : Fen% = 0 : TAB Obj%
     case 44
     case 45
     case 46 : Fen% = 1 : SYNEDIT Obj%
     case 47 : Fen% = 1 : CHART Obj%
     end_select
      
     if Par%>0
        parent Obj%,Par%
     end_if
      
     if Fen% = 1   
        height Obj%,H%
        width Obj%,W%
        top Obj%,T%
        left Obj%,L%
     end_if
  END_SUB