2010-12-07 21:18

     DECLARE SUB FormMouseMove(X, Y, Shift AS INTEGER)
     DECLARE SUB Remove
     DECLARE SUB editor_show
     DECLARE SUB form_editor_show
     DECLARE SUB bottonituttisu
     DECLARE SUB creaEdit
     DECLARE SUB creabutton
     DECLARE SUB creacanvas
     DECLARE SUB creacheckbox
     DECLARE SUB creacombobox
     DECLARE SUB creacoolbtn
     DECLARE SUB creafilelistbox
     DECLARE SUB creaform
     DECLARE SUB creagauge
     DECLARE SUB creagroupbox
     DECLARE SUB creaimage
     DECLARE SUB crealabel
     DECLARE SUB crealistbox
     DECLARE SUB creaovalbtn
     DECLARE SUB creapanel
     DECLARE SUB crearadiobutton
     DECLARE SUB crearichedit
     DECLARE SUB creascrollbar
     DECLARE SUB creascrollbox
     DECLARE SUB creastatusbar
     DECLARE SUB creastringgriglia
     DECLARE SUB creastringlista
     DECLARE SUB creatabcontrol
     DECLARE SUB creatrackbar
     DECLARE SUB disegnaquadratini
     DECLARE SUB dragbot1
     DECLARE SUB dragbot2
     DECLARE SUB dragbot3
     DECLARE SUB dragbot4
     DECLARE SUB dragbot5
     DECLARE SUB dragbot6
     DECLARE SUB dragbot7
     DECLARE SUB dragbot8
     DECLARE SUB dragbot9
     DECLARE SUB dragbottoni
     DECLARE SUB drawpuntini
     DECLARE SUB form1show
     DECLARE SUB menuclick(sender AS QCOOLBTN)
     DECLARE SUB proprietabutton
     DECLARE SUB proprietacanvas
     DECLARE SUB proprietacheckbox
     DECLARE SUB proprietacombobox
     DECLARE SUB proprietacoolbtn
     DECLARE SUB proprietaedit
     DECLARE SUB proprietafilelistbox
     DECLARE SUB proprietaform
     DECLARE SUB proprietagauge
     DECLARE SUB proprietagrigliatoform (Key AS BYTE)
     DECLARE SUB proprietagroupbox
     DECLARE SUB proprietaimage
     DECLARE SUB proprietalabel
     DECLARE SUB proprietalistbox
     DECLARE SUB proprietaovalbtn
     DECLARE SUB proprietapanel
     DECLARE SUB proprietaradiobutton
     DECLARE SUB proprietarichedit
     DECLARE SUB proprietascrollbar
     DECLARE SUB proprietascrollbox
     DECLARE SUB proprietastatusbar
     DECLARE SUB proprietastringgriglia
     DECLARE SUB proprietatabcontrol
     DECLARE SUB proprietatrackbar
     DECLARE SUB selezionaitemoggetto


'_____________________header formdesigner_______________________


     DIM bloccobot2 AS INTEGER
     DIM bloccobot4 AS INTEGER
     DIM bloccobot5 AS INTEGER
     DIM bloccobot7 AS INTEGER
     DIM bloccobot9 AS INTEGER
     DIM bloccolarg AS INTEGER
     DIM bloccoalt AS INTEGER


     DIM topox AS INTEGER
     DIM topoy AS INTEGER
     DIM altoc AS INTEGER
     DIM altec AS INTEGER
     DIM sinic AS INTEGER
     DIM largc AS INTEGER
     DIM noggetti AS INTEGER
     DIM index AS INTEGER
     DIM indicepropriet AS INTEGER
     DIM INDICEOGGETTIFORM AS INTEGER
     DIM tipooggetto AS STRING
     indicepropriet=0
     index=0


     DIM stringgriglia AS QSTRINGGRID
     DIM stringlista(20) AS QSTRINGLIST
     DIM form(20) AS QFORM
     DIM label(20) AS QLABEL
     DIM button(20) AS QBUTTON
     DIM edit(20) AS QEDIT
     DIM coolbtn(20) AS QCOOLBTN
     DIM ovalbtn(20) AS QOVALBTN
     DIM image(20) AS QIMAGE
     DIM canvas(20) AS QCANVAS
     DIM pannel(20) AS QPANEL
     DIM gauge(20) AS QGAUGE
     DIM checkbox(20) AS QCHECKBOX
     DIM radiobutton(20) AS QRADIOBUTTON
     DIM combobox(20) AS QCOMBOBOX
     DIM listbox(20) AS QLISTBOX
     DIM scrollbar(20) AS QSCROLLBAR
     DIM trackbar(20) AS QTRACKBAR
     DIM scrollbox(20) AS QSCROLLBOX
     DIM richedit(20) AS QRICHEDIT
     DIM tabcontrol(20) AS QTABCONTROL
     DIM statusbar(20) AS QSTATUSBAR
     DIM filelistbox(20) AS QFILELISTBOX
     DIM groupbox(20) AS QGROUPBOX



     CREATE form99 AS QFORM
      visible=0
     END CREATE



     CREATE FormDesignPanel AS QPANEL        '......pannello centrale 1(form editor).......
      Top  = 1
      Left = 1
      Width = 500
      Height = 353
      CAPTION = "FormDesignPanel"
      COLOR = &HD8E9EC
      Align = alClient
      Visible = 0
     END CREATE



     DECLARE SUB execute_plugin(sender AS QCOOLBTN)


     SUB editor_show
      FormDesignPanel.Visible = 0
     END SUB

     SUB form_editor_show
      FormDesignPanel.Visible = 1
     END SUB


     CREATE Form1 AS QFORM
      Top = 85
      Left = 175
      Height = 460
      Width = 500
      CAPTION = "Form1"
      OnMouseMove = FormMouseMove
      onresize=drawpuntini

      CREATE quadratini AS QCANVAS

       CREATE bot1 AS QBUTTON
        visible=true
        left=10
        top=10
        width=10
        height=10
        onmousedown=dragbot1
       END CREATE

       CREATE bot2 AS QBUTTON
        left=0
        top=0
        width=10
        height=10
        onmousedown=dragbot2
       END CREATE

       CREATE bot3 AS QBUTTON
        left=0
        top=0
        width=10
        height=10
        onmousedown=dragbot3
       END CREATE

       CREATE bot4 AS QBUTTON
        left=0
        top=0
        width=10
        height=10
        onmousedown=dragbot4
       END CREATE

       CREATE bot5 AS QBUTTON
        left=0
        top=0
        width=10
        height=10
        onmousedown=dragbot5
       END CREATE

       CREATE bot6 AS QBUTTON
        left=0
        top=0
        width=10
        height=10
        onmousedown=dragbot6
       END CREATE

       CREATE bot7 AS QBUTTON
        left=0
        top=0
        width=10
        height=10
        onmousedown=dragbot7
       END CREATE

       CREATE bot8 AS QBUTTON
        left=0
        top=0
        width=10
        height=10
        onmousedown=dragbot8
       END CREATE

       CREATE bot9 AS QBUTTON
        left=0
        top=0
        width=10
        height=10
        onmousedown=dragbot9
       END CREATE
      END CREATE



      CREATE StatusBar1 AS QSTATUSBAR
       PARENT = Form1
       Top = 304
       Left = 0
       Width = 542
       Height = 19
       AddPanels ""
      END CREATE
     END CREATE

'**************inizio delle sub******************************

     SUB form1show
      form1.show
      drawpuntini
     END SUB

'-----------disegna i puntini------------------
     SUB drawpuntini
      DEFINT px, py
      FOR py=0 TO 100
       FOR px=0 TO 100
        form1.Pset ( px*10, py*10, RGB(255,0,0) )
       NEXT px
      NEXT py
     END SUB



     SUB Designermenuclick(sender AS QCOOLBTN)'seleziona il tipo di oggetto

      SELECT CASE sender.tag

      CASE 1
       bottonituttisu
       bottone1.flat=1
       form1.onmousedown=crealabel

      CASE 2
       bottonituttisu
       bottone2.flat=1
       form1.onmousedown=creaedit

      CASE 3
       bottonituttisu
       bottone3.flat=1
       form1.onmousedown=creabutton

      CASE 4
       bottonituttisu
       bottone4.flat=1
       form1.onmousedown=creacoolbtn

      CASE 5
       bottonituttisu
       bottone5.flat=1
       form1.onmousedown=creaovalbtn

      CASE 6
       bottonituttisu
       bottone6.flat=1
       form1.onmousedown=creaimage

      CASE 7
       bottonituttisu
       bottone7.flat=1
       form1.onmousedown=creacanvas

      CASE 8
       bottonituttisu
       bottone8.flat=1
       form1.onmousedown=creagauge

      CASE 9
       bottonituttisu
       bottone9.flat=1
       form1.onmousedown=creacheckbox

      CASE 10
       bottonituttisu
       bottone10.flat=1
       form1.onmousedown=crearadiobutton

      CASE 11
       bottonituttisu
       bottone11.flat=1
       form1.onmousedown=creacombobox

      CASE 12
       bottonituttisu
       bottone12.flat=1
       form1.onmousedown=crealistbox

      CASE 13
       bottonituttisu

       bottone13.flat=1
       form1.onmousedown=creascrollbox

      CASE 14
       bottonituttisu
       bottone14.flat=1
       form1.onmousedown=crearichedit

      CASE 15
       bottonituttisu
       bottone15.flat=1
       form1.onmousedown=creastringgriglia

      CASE 16
       bottonituttisu
       bottone16.flat=1
       form1.onmousedown=creatabcontrol

      CASE 17
       bottonituttisu
       bottone17.flat=1
       form1.onmousedown=creastatusbar

      CASE 18
       bottonituttisu
       bottone18.flat=1
       form1.onmousedown=creascrollbar

      CASE 19
       bottonituttisu
       bottone19.flat=1
       form1.onmousedown=creatrackbar

      CASE 20
       bottonituttisu
       bottone20.flat=1
       form1.onmousedown=creafilelistbox

      CASE 21
       bottonituttisu
       bottone21.flat=1
       form1.onmousedown=creagroupbox

      CASE 22
       bottonituttisu
       bottone22.flat=1
       form1.onmousedown=creastringlist

      CASE 23
       bottonituttisu
       bottone23.flat=1
       form1.onmousedown=creapanel

      CASE 24
       bottonituttisu
       bottone24.flat=1

      CASE 25
       bottonituttisu
       bottone25.flat=1

      CASE 26
       bottonituttisu
       bottone26.flat=1
       form1.onmousedown=creacoolbtn

      CASE 27
       bottonituttisu
       bottone27.flat=1

      CASE 28
       bottonituttisu
       bottone28.flat=1

      CASE 29
       bottonituttisu
       bottone29.flat=1

      CASE 30
       bottonituttisu
       bottone30.flat=1

      CASE 31
       bottonituttisu
       bottone31.flat=1

      CASE 32
       bottonituttisu
       bottone32.flat=1

      CASE 33
       bottonituttisu
       bottone33.flat=1

      CASE 34
       bottonituttisu
       bottone34.flat=1

      CASE 35
       bottonituttisu
       bottone35.flat=1

      CASE 36
       bottonituttisu
       bottone36.flat=1

      CASE 37
       bottonituttisu
       bottone37.flat=1

      CASE 38
       bottonituttisu
       bottone38.flat=1

      CASE 39
       bottonituttisu
       bottone39.flat=1

      CASE 40
       bottonituttisu
       bottone40.flat=1

      CASE 41
       bottonituttisu
       bottone41.flat=1

      CASE 42
       bottonituttisu
       bottone42.flat=1

      CASE 43
       bottonituttisu
       bottone43.flat=1

      CASE 44
       bottonituttisu
       bottone44.flat=1

      CASE 45
       bottonituttisu
       bottone45.flat=1

      CASE 46
       bottonituttisu
       bottone46.flat=1

      CASE 47
       bottonituttisu
       bottone47.flat=1

      CASE 48
       bottonituttisu
       bottone48.flat=1

      CASE 49
       bottonituttisu
       bottone49.flat=1

      CASE 50
       bottonituttisu
       bottone50.flat=1

      CASE 51
       bottonituttisu
       bottone51.flat=1

      CASE 52
       bottonituttisu
       bottone52.flat=1

      CASE 53
       bottonituttisu
       bottone53.flat=1

      CASE 54
       bottonituttisu
       bottone54.flat=1

      CASE 55
       bottonituttisu
       bottone55.flat=1

      CASE 56
       bottonituttisu
       bottone56.flat=1

      CASE 57
       bottonituttisu
       bottone57.flat=1

      CASE 58
       bottonituttisu
       bottone58.flat=1

      CASE 59
       bottonituttisu
       bottone59.flat=1

      CASE 60
       bottonituttisu
       bottone60.flat=1

      CASE 61
       bottonituttisu
       bottone61.flat=1

      CASE 62
       bottonituttisu
       bottone62.flat=1

      CASE 63
       bottonituttisu
       bottone63.flat=1

      CASE 64
       bottonituttisu
       bottone64.flat=1

      CASE 65
       bottonituttisu
       bottone65.flat=1

      CASE 66
       bottonituttisu
       bottone66.flat=1

      CASE 67
       bottonituttisu
       bottone67.flat=1

      CASE 68
       bottonituttisu
       bottone68.flat=1

      CASE 69
       bottonituttisu
       bottone69.flat=1

      CASE 70
       bottonituttisu
       bottone70.flat=1

      CASE 71
       bottonituttisu
       bottone71.flat=1

      CASE 72
       bottonituttisu
       bottone72.flat=1

      CASE 73
       bottonituttisu
       bottone73.flat=1

      CASE 74
       bottonituttisu
       bottone74.flat=1

      CASE 75
       bottonituttisu
       bottone75.flat=1

      CASE 76
       bottonituttisu
       bottone76.flat=1

      CASE 77
       bottonituttisu
       bottone77.flat=1

      CASE 78
       bottonituttisu
       bottone78.flat=1

      CASE 79
       bottonituttisu
       bottone79.flat=1

      CASE 80
       bottonituttisu
       bottone80.flat=1

      CASE 81
       bottonituttisu
       bottone81.flat=1

      CASE 82
       bottonituttisu
       bottone82.flat=1

      CASE 83
       bottonituttisu
       bottone83.flat=1

      CASE 84
       bottonituttisu
       bottone84.flat=1

      END SELECT
     END SUB



     SUB bottonituttisu
      bottone1.flat=0
      bottone2.flat=0
      bottone3.flat=0
      bottone4.flat=0
      bottone5.flat=0
      bottone6.flat=0
      bottone7.flat=0
      bottone8.flat=0
      bottone9.flat=0
      bottone10.flat=0
      bottone11.flat=0
      bottone12.flat=0
      bottone13.flat=0
      bottone14.flat=0
      bottone15.flat=0
      bottone16.flat=0
      bottone17.flat=0
      bottone18.flat=0
      bottone19.flat=0
      bottone20.flat=0
      bottone21.flat=0
      bottone22.flat=0
      bottone23.flat=0
      bottone24.flat=0
      bottone25.flat=0
      bottone26.flat=0
      bottone27.flat=0
      bottone28.flat=0
      bottone29.flat=0
      bottone30.flat=0
      bottone31.flat=0
      bottone32.flat=0
      bottone33.flat=0
      bottone34.flat=0
      bottone35.flat=0
      bottone36.flat=0
      bottone37.flat=0
      bottone38.flat=0
      bottone39.flat=0
      bottone40.flat=0
      bottone41.flat=0
      bottone42.flat=0
      bottone43.flat=0
      bottone44.flat=0
      bottone45.flat=0
      bottone46.flat=0
      bottone47.flat=0
      bottone48.flat=0
      bottone49.flat=0
      bottone50.flat=0
      bottone51.flat=0
      bottone52.flat=0
      bottone53.flat=0
      bottone54.flat=0
      bottone55.flat=0
      bottone56.flat=0
      bottone57.flat=0
      bottone58.flat=0
      bottone59.flat=0
      bottone60.flat=0
      bottone61.flat=0
      bottone62.flat=0
      bottone63.flat=0
      bottone64.flat=0
      bottone65.flat=0
      bottone66.flat=0
      bottone67.flat=0
      bottone68.flat=0
      bottone69.flat=0
      bottone70.flat=0
      bottone71.flat=0
      bottone72.flat=0
      bottone73.flat=0
      bottone74.flat=0
      bottone75.flat=0
      bottone76.flat=0
      bottone77.flat=0
      bottone78.flat=0
      bottone79.flat=0
      bottone80.flat=0
      bottone81.flat=0
      bottone82.flat=0
      bottone83.flat=0
      bottone84.flat=0
     END SUB

     SUB FormMouseMove(X, Y, Shift AS INTEGER)
      topox=x
      topoy=y
      StatusBar1.Panel(0).CAPTION = STR$(topoX) + " : " + STR$(topoY) + ":"+STR$(index)
     END SUB

'__________________array di controlli_____________________

'------------------qform----------------
     SUB creaform
      index=index+1
      MainListBox1.additems "Form1"
      indicepropriet=index 'indice per proprieta su box laterale
      proprietaform
     END SUB

'------------------qlabel----------------
     SUB crealabel
      index=index+1
      label(index).PARENT = form1
      label(index).Top = MOUSEY + 1
      label(index).Left = MOUSEX + 1
      label(index).Width = 75
      label(index).Height = 25
      label(index).CAPTION = "Label" + STR$(index)
      label(index).tag=index
      label(index).Visible = 1
      MainListBox1.additems "Label" + STR$(index)
      indicepropriet=index 'indice per proprieta su box laterale
      proprietalabel
     END SUB

'------------qedit-----------------
     SUB creaEdit
      index=index+1
      Edit(index).PARENT = form1
      Edit(index).Top = MOUSEY + 1
      Edit(index).Left = MOUSEX + 1
      Edit(index).Width = 75
      Edit(index).Height = 25
      Edit(index).text = "Edit" + STR$(index)
      Edit(index).tag=index
      Edit(index).Visible = 1
      MainListBox1.additems "Edit" + STR$(index)
      indicepropriet=index 'indice per proprieta su box laterale
      proprietaedit
     END SUB

'------------qbutton-----------------
     SUB creabutton
      index=index+1
      button(index).PARENT = form1
      button(index).Top = MOUSEY + 1
      button(index).Left = MOUSEX + 1
      button(index).Width = 75
      button(index).Height = 25
      button(index).CAPTION = "Button" + STR$(index)
      button(index).tag=index
      button(index).Visible = 1
      MainListBox1.additems "Button" + STR$(index)
      indicepropriet=index
'selezionaitemoggetto
      proprietabutton
     END SUB

'------------qcoolbtn-----------------
     SUB creacoolbtn
      index=index+1
      coolbtn(index).PARENT = form1
      coolbtn(index).Top = MOUSEY + 1
      coolbtn(index).Left = MOUSEX + 1
      coolbtn(index).Width = 75
      coolbtn(index).Height = 25
      coolbtn(index).CAPTION = "Coolbtn" + STR$(index)
      coolbtn(index).tag=index
      coolbtn(index).Visible = 1
      MainListBox1.additems "Coolbtn" + STR$(index)
      indicepropriet=index
      proprietacoolbtn
     END SUB

'------------qovalbtn-----------------
     SUB creaovalbtn
      index=index+1
      ovalbtn(index).PARENT = form1
      ovalbtn(index).Top = MOUSEY + 1
      ovalbtn(index).Left = MOUSEX + 1
      ovalbtn(index).Width = 75
      ovalbtn(index).Height = 25
      ovalbtn(index).CAPTION = "ovalbtn" + STR$(index)
      ovalbtn(index).tag=index
      ovalbtn(index).Visible = 1
      MainListBox1.additems "Ovalbtn" + STR$(index)
      indicepropriet=index
      proprietaovalbtn
     END SUB

'------------qimage-----------------
     SUB creaimage
      index=index+1
      image(index).PARENT = form1
      image(index).Top = MOUSEY + 1
      image(index).Left = MOUSEX + 1
      image(index).Width = 75
      image(index).Height = 25
      image(index).tag=index
      image(index).Visible = 1
      MainListBox1.additems "Image" + STR$(index)
      indicepropriet=index
      proprietaimage
     END SUB

'------------qcanvas-----------------
     SUB creacanvas
      index=index+1
      canvas(index).PARENT = form1
      canvas(index).Top = MOUSEY + 1
      canvas(index).Left = MOUSEX + 1
      canvas(index).Width = 75
      canvas(index).Height = 25
      canvas(index).tag=index
      canvas(index).Visible = 1
      MainListBox1.additems "Canvas" + STR$(index)
      indicepropriet=index
      proprietacanvas
     END SUB

'------------qpanel-----------------
     SUB creapanel
      index=index+1
      pannel(index).PARENT = form1
      pannel(index).Top = MOUSEY + 1
      pannel(index).Left = MOUSEX + 1
      pannel(index).Width = 75
      pannel(index).Height = 25
      pannel(index).CAPTION = "Panel" + STR$(index)
      pannel(index).tag=index
      pannel(index).Visible = 1
      MainListBox1.additems "Panel" + STR$(index)
      indicepropriet=index
      proprietapanel
     END SUB

'------------qgauge-----------------
     SUB creagauge
      index=index+1
      gauge(index).PARENT = form1
      gauge(index).Top = MOUSEY + 1
      gauge(index).Left = MOUSEX + 1
      gauge(index).Width = 75
      gauge(index).Height = 25
      gauge(index).Visible = 1
      MainListBox1.additems "Gauge" + STR$(index)
      indicepropriet=index
      proprietagauge
     END SUB

'------------qcheckbox-----------------
     SUB creacheckbox
      index=index+1
      checkbox(index).PARENT = form1
      checkbox(index).Top = MOUSEY + 1
      checkbox(index).Left = MOUSEX + 1
      checkbox(index).Width = 75
      checkbox(index).Height = 25
      checkbox(index).CAPTION = "checkbox" + STR$(index)
      checkbox(index).tag=index
      checkbox(index).Visible = 1
      MainListBox1.additems "Checkbox" + STR$(index)
      indicepropriet=index
      proprietacheckbox
     END SUB

'------------qradiobutton-----------------
     SUB crearadiobutton
      index=index+1
      radiobutton(index).PARENT = form1
      radiobutton(index).Top = MOUSEY + 1
      radiobutton(index).Left = MOUSEX + 1
      radiobutton(index).Width = 75
      radiobutton(index).Height = 25
      radiobutton(index).CAPTION = "radiobutton" + STR$(index)
      radiobutton(index).tag=index
      radiobutton(index).Visible = 1
      MainListBox1.additems "Radiobutton" + STR$(index)
      indicepropriet=index
      proprietaradiobutton
     END SUB

'------------qcombobox-----------------
     SUB creacombobox
      index=index+1
      combobox(index).PARENT = form1
      combobox(index).Top = MOUSEY + 1
      combobox(index).Left = MOUSEX + 1
      combobox(index).Width = 75
      combobox(index).Height = 25
      combobox(index).tag=index
      combobox(index).Visible = 1
      MainListBox1.additems "Combobox" + STR$(index)
      indicepropriet=index
      proprietacombobox
     END SUB

'------------qlistbox-----------------
     SUB crealistbox
      index=index+1
      listbox(index).PARENT = form1
      listbox(index).Top = MOUSEY + 1
      listbox(index).Left = MOUSEX + 1
      listbox(index).Width = 75
      listbox(index).Height = 25
      listbox(index).tag=index
      listbox(index).Visible = 1
      MainListBox1.additems "Listbox" + STR$(index)
      indicepropriet=index
      proprietalistbox
     END SUB

'------------qscrollbox-----------------
     SUB creascrollbox
      index=index+1
      scrollbox(index).PARENT = form1
      scrollbox(index).Top = MOUSEY + 1
      scrollbox(index).Left = MOUSEX + 1
      scrollbox(index).Width = 75
      scrollbox(index).Height = 25
      scrollbox(index).tag=index
      scrollbox(index).Visible = 1
      MainListBox1.additems "Scrollbox" + STR$(index)
      indicepropriet=index
      proprietascrollbox
     END SUB

'------------qrichedit-----------------
     SUB crearichedit
      index=index+1
      richedit(index).PARENT = form1
      richedit(index).Top = MOUSEY + 1
      richedit(index).Left = MOUSEX + 1
      richedit(index).Width = 75
      richedit(index).Height = 25
      richedit(index).tag=index
      richedit(index).Visible = 1
      MainListBox1.additems "Richedit" + STR$(index)
      indicepropriet=index
      proprietarichedit
     END SUB

'------------qstringgrid----------------- 'funziona solo in parte non permette duplicati
     SUB creastringgriglia
      index=index+1
      stringgriglia.PARENT = form1
      stringgriglia.Top = MOUSEY + 1
      stringgriglia.Left = MOUSEX + 1
      stringgriglia.Width = 75
      stringgriglia.Height = 25
      stringgriglia.tag=index
      stringgriglia.Visible = 1
      MainListBox1.additems "Stringgriglia" + STR$(index)
      indicepropriet=index
      proprietastringgriglia
     END SUB

'------------qstatusbar-----------------
     SUB creastatusbar
      index=index+1
      statusbar(index).PARENT = form1
      statusbar(index).Top = MOUSEY + 1
      statusbar(index).Left = MOUSEX + 1
      statusbar(index).Width = 75
      statusbar(index).Height = 25
      statusbar(index).Visible = 1
      MainListBox1.additems "Statusbar" + STR$(index)
      indicepropriet=index
      proprietastatusbar
     END SUB

'------------qscrollbar-----------------
     SUB creascrollbar
      index=index+1
      scrollbar(index).PARENT = form1
      scrollbar(index).Top = MOUSEY + 1
      scrollbar(index).Left = MOUSEX + 1
      scrollbar(index).Width = 75
      scrollbar(index).Height = 25
      scrollbar(index).tag=index
      scrollbar(index).Visible = 1
      MainListBox1.additems "Scrollbar" + STR$(index)
      indicepropriet=index
      proprietascrollbar
     END SUB

'------------qtrackbar-----------------
     SUB creatrackbar
      index=index+1
      trackbar(index).PARENT = form1
      trackbar(index).Top = MOUSEY + 1
      trackbar(index).Left = MOUSEX + 1
      trackbar(index).Width = 75
      trackbar(index).Height = 25
      trackbar(index).Visible = 1
      MainListBox1.additems "Trackbar" + STR$(index)
      indicepropriet=index
      proprietatrackbar
     END SUB

'------------qtabcontrol-----------------
     SUB creatabcontrol
      index=index+1
      tabcontrol(index).PARENT = form1
      tabcontrol(index).Top = MOUSEY + 1
      tabcontrol(index).Left = MOUSEX + 1
      tabcontrol(index).Width = 200
      tabcontrol(index).Height = 200
      tabcontrol(index).AddTabs "Tab1","Tab2","Tab3"
      tabcontrol(index).Hottrack=True
      tabcontrol(index).tag=index
      tabcontrol(index).Visible = 1
      MainListBox1.additems "Tabcontrol" + STR$(index)
      indicepropriet=index
      proprietatabcontrol
     END SUB

'------------qfilelistbox-----------------
     SUB creafilelistbox
      index=index+1
      filelistbox(index).PARENT = form1
      filelistbox(index).Top = MOUSEY + 1
      filelistbox(index).Left = MOUSEX + 1
      filelistbox(index).Width = 75
      filelistbox(index).Height = 25
      filelistbox(index).tag=index
      filelistbox(index).Visible = 1
      MainListBox1.additems "Filelistbox" + STR$(index)
      indicepropriet=index
      proprietafilelistbox
     END SUB


'------------qgroupbox-----------------
     SUB creagroupbox
      index=index+1
      groupbox(index).PARENT = form1
      groupbox(index).Top = MOUSEY + 1
      groupbox(index).Left = MOUSEX + 1
      groupbox(index).Width = 75
      groupbox(index).tag=index
      groupbox(index).Height = 25
      groupbox(index).CAPTION = "Groupbox" + STR$(index)
      groupbox(index).Visible = 1
      MainListBox1.additems "Groupbox" + STR$(index)
      indicepropriet=index
      proprietagroupbox
     END SUB

'------------qstringlist-----------------
     SUB creastringlista ' non funziona
      index=index+1
      MainListBox1.additems "Stringlista" + STR$(index)
      indicepropriet=index
      proprietastringlista
     END SUB

'---------------------------------------

     SUB selezionaitemoggetto

      IF  codedebug1.checked=1 THEN
       d.PRINT "selezionato item " + STR$(MainListBox1.itemindex) + " oggetto:"+ (MainListBox1.item(MainListBox1.itemindex)-STR$(MainListBox1.itemindex+1)) + " punty:"+STR$(bot1.top)+" puntx:"+STR$(bot1.left)
      END IF

      INDICEOGGETTIFORM = VAL(RIGHT$(MainListBox1.item(MainListBox1.itemindex), 1))
'tipooggetto=(MainListBox1.item(MainListBox1.itemindex) - str$(MainListBox1.itemindex+1))
      tipooggetto=(MainListBox1.item(MainListBox1.itemindex) - STR$(INDICEOGGETTIFORM))

      IF  codedebug1.checked=1 THEN
       d.PRINT "IndiceOggettiForm:"+STR$(INDICEOGGETTIFORM)+" TipoOggetto:"+tipooggetto
      END IF

      SELECT CASE (MainListBox1.item(MainListBox1.itemindex) - STR$(INDICEOGGETTIFORM))
      CASE "Form"
       proprietaform
      CASE "Label"
       altoc=label(INDICEOGGETTIFORM).top
       sinic=label(INDICEOGGETTIFORM).left
       largc=label(INDICEOGGETTIFORM).width
       altec=label(INDICEOGGETTIFORM).height
'ShowMessage str$(altoc)+" "+str$(sinic)+" "+str$(largc)+" "+str$(altec)
       disegnaquadratini
       proprietalabel
      CASE "Edit"
       altoc=edit(INDICEOGGETTIFORM).top
       sinic=edit(INDICEOGGETTIFORM).left
       largc=edit(INDICEOGGETTIFORM).width
       altec=edit(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietaedit
      CASE "Button"
       altoc=button(INDICEOGGETTIFORM).top

       IF  codedebug1.checked=1 THEN
        d.PRINT "altoc:"+STR$(altoc)
       END IF

       sinic=button(INDICEOGGETTIFORM).left
       largc=button(INDICEOGGETTIFORM).width
       altec=button(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietabutton
      CASE "Coolbtn"
       altoc=coolbtn(INDICEOGGETTIFORM).top
       sinic=coolbtn(INDICEOGGETTIFORM).left
       largc=coolbtn(INDICEOGGETTIFORM).width
       altec=coolbtn(INDICEOGGETTIFORM).height

       disegnaquadratini
       proprietacoolbtn
      CASE "Ovalbtn"
       altoc=ovalbtn(INDICEOGGETTIFORM).top
       sinic=ovalbtn(INDICEOGGETTIFORM).left
       largc=ovalbtn(INDICEOGGETTIFORM).width
       altec=ovalbtn(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietaovalbtn
      CASE "Image"
       altoc=image(INDICEOGGETTIFORM).top
       sinic=image(INDICEOGGETTIFORM).left
       largc=image(INDICEOGGETTIFORM).width
       altec=image(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietaimage
      CASE "Canvas"
       altoc=canvas(INDICEOGGETTIFORM).top
       sinic=canvas(INDICEOGGETTIFORM).left
       largc=canvas(INDICEOGGETTIFORM).width
       altec=canvas(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietacanvas
      CASE "Panel"
       altoc=pannel(INDICEOGGETTIFORM).top
       sinic=pannel(INDICEOGGETTIFORM).left
       largc=pannel(INDICEOGGETTIFORM).width
       altec=pannel(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietapanel
      CASE "Gauge"
       altoc=gauge(INDICEOGGETTIFORM).top
       sinic=gauge(INDICEOGGETTIFORM).left
       largc=gauge(INDICEOGGETTIFORM).width
       altec=gauge(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietagauge
      CASE "Checkbox"
       altoc=checkbox(INDICEOGGETTIFORM).top
       sinic=checkbox(INDICEOGGETTIFORM).left
       largc=checkbox(INDICEOGGETTIFORM).width
       altec=checkbox(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietacheckbox
      CASE "Radiobutton"
       altoc=radiobutton(INDICEOGGETTIFORM).top
       sinic=radiobutton(INDICEOGGETTIFORM).left
       largc=radiobutton(INDICEOGGETTIFORM).width
       altec=radiobutton(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietaradiobutton
      CASE "Combobox"
       altoc=combobox(INDICEOGGETTIFORM).top
       sinic=combobox(INDICEOGGETTIFORM).left
       largc=combobox(INDICEOGGETTIFORM).width
       altec=combobox(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietacombobox
      CASE "Listbox"
       altoc=listbox(INDICEOGGETTIFORM).top
       sinic=listbox(INDICEOGGETTIFORM).left
       largc=listbox(INDICEOGGETTIFORM).width
       altec=listbox(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietalistbox
      CASE "Scrollbox"
       altoc=scrollbox(INDICEOGGETTIFORM).top
       sinic=scrollbox(INDICEOGGETTIFORM).left
       largc=scrollbox(INDICEOGGETTIFORM).width
       altec=scrollbox(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietascrollbox
      CASE "Richedit"
       altoc=richedit(INDICEOGGETTIFORM).top
       sinic=richedit(INDICEOGGETTIFORM).left
       largc=richedit(INDICEOGGETTIFORM).width
       altec=richedit(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietarichedit
      CASE "Stringgriglia"'<-----------errore sulla stringgrid
       altoc=stringgriglia.top
       sinic=stringgriglia.left
       largc=stringgriglia.width
       altec=stringgriglia.height
       disegnaquadratini
       proprietastringgriglia
      CASE "Tabcontrol"
       altoc=tabcontrol(INDICEOGGETTIFORM).top
       sinic=tabcontrol(INDICEOGGETTIFORM).left
       largc=tabcontrol(INDICEOGGETTIFORM).width
       altec=tabcontrol(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietatabcontrol
      CASE "Statusbar"
'----con lo statusbar non ci vanno i quadratini------
      CASE "Scrollbar"
       altoc=scrollbar(INDICEOGGETTIFORM).top
       sinic=scrollbar(INDICEOGGETTIFORM).left
       largc=scrollbar(INDICEOGGETTIFORM).width
       altec=scrollbar(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietastatusbar
      CASE "Trackbar"
       altoc=trackbar(INDICEOGGETTIFORM).top
       sinic=trackbar(INDICEOGGETTIFORM).left
       largc=trackbar(INDICEOGGETTIFORM).width
       altec=trackbar(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietatrackbar
      CASE "Filelistbox"
       altoc=filelistbox(INDICEOGGETTIFORM).top
       sinic=filelistbox(INDICEOGGETTIFORM).left
       largc=filelistbox(INDICEOGGETTIFORM).width
       altec=filelistbox(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietafilelistbox
      CASE "Groupbox"
       altoc=groupbox(INDICEOGGETTIFORM).top
       sinic=groupbox(INDICEOGGETTIFORM).left
       largc=groupbox(INDICEOGGETTIFORM).width
       altec=groupbox(INDICEOGGETTIFORM).height
       disegnaquadratini
       proprietagroupbox
      CASE "Stringlista"'<-----------continua a non funzionare
      END SELECT
      drawpuntini
     END SUB

     SUB disegnaquadratini ' -- disegna i quadratini sugli oggetti  --------
      bot1.left=sinic-10:bot1.top=altoc-10:bot1.cursor=-8
      bot2.left=sinic+(largc/2)-5:bot2.top=altoc-10:bot2.cursor=-7
      bot3.left=sinic+largc:bot3.top=altoc-10:bot3.cursor=-6
      bot4.left=sinic-10:bot4.top=altoc+(altec/2)-5:bot4.cursor=-9
      bot5.left=sinic+largc:bot5.top=altoc+(altec/2)-5:bot5.cursor=-9
      bot6.left=sinic-10:bot6.top=altoc+altec:bot6.cursor=-6
      bot7.left=sinic+(largc/2)-5:bot7.top=altoc+altec:bot7.cursor=-7
      bot8.left=sinic+largc:bot8.top=altoc+altec:bot8.cursor=-8
      bot9.left=sinic+(largc/2)-5:bot9.top=altoc+(altec/2)-5:bot9.cursor=-12
      bot1.PARENT=form1:bot2.PARENT=form1:bot3.PARENT=form1
      bot4.PARENT=form1:bot5.PARENT=form1:bot6.PARENT=form1
      bot7.PARENT=form1:bot8.PARENT=form1:bot9.PARENT=form1

     END SUB

'------selezione drag quadratini -----------------------
     SUB dragbot1
      bot1.startdrag
      IF bot1.left>=bot3.left THEN
       bot1.left=bot3.left-20
      END IF
      IF bot1.top>=bot6.top THEN
       bot1.top=bot6.top-20
      END IF
      bot2.left=bot1.left+((bot3.left-bot1.left)/2) : bot2.top=bot1.top
      bot3.top=bot1.top
      bot4.top=bot1.top+((bot6.top-bot1.top)/2): Bot4.left=bot1.left
      bot5.top=bot1.top+((bot8.top-bot1.top)/2)
      bot6.left=bot1.left
      bot7.left=bot1.left+((bot8.left-bot1.left)/2)
      bot9.left=bot1.left+((bot8.left-bot1.left)/2):bot9.top=bot1.top+((bot8.top-bot1.top)/2)
      dragbottoni
     END SUB

     SUB dragbot2
      bloccobot2=bot2.left
      bot2.startdrag
      IF bot2.top>=bot7.top THEN
       bot2.top=bot7.top-20
      END IF
      bot2.left=bloccobot2
      bot1.top=bot2.top
      bot3.top=bot2.top
      bot4.top=bot2.top+((bot6.top-bot2.top)/2)
      bot5.top=bot2.top+((bot8.top-bot2.top)/2)
      bot9.top=bot2.top+((bot8.top-bot2.top)/2)
      dragbottoni
     END SUB

     SUB dragbot3
      bot3.startdrag
      IF bot3.left<=bot1.left THEN
       bot3.left=bot1.left+20
      END IF
      IF bot3.top>=bot6.top THEN
       bot3.top=bot6.top+20
      END IF
      bot1.top=bot3.top
      bot2.left=bot1.left+((bot3.left-bot1.left)/2):bot2.top=bot3.top
      bot4.top=bot3.top+((bot8.top-bot3.top)/2)
      bot5.top=bot3.top+((bot8.top-bot3.top)/2):bot5.left=bot3.left
      bot7.left=bot1.left+((bot3.left-bot1.left)/2)
      bot8.left=bot3.left
      bot9.left=bot1.left+((bot3.left-bot1.left)/2):bot9.top=bot3.top+((bot8.top-bot3.top)/2)
      dragbottoni
     END SUB

     SUB dragbot4
      bloccobot4=bot4.top
      bot4.startdrag
      bot4.top=bloccobot4
      IF bot4.left>=bot5.left THEN
       bot4.left=bot5.left-20
      END IF
      bot1.left=bot4.left
      bot2.left=bot4.left+((bot3.left-bot4.left)/2)
      bot6.left=bot4.left
      bot7.left=bot4.left+((bot8.left-bot4.left)/2)
      bot9.left=bot4.left+((bot8.left-bot4.left)/2)
      dragbottoni
     END SUB

     SUB dragbot5
      bloccobot5=bot5.top
      bot5.startdrag
      bot5.top=bloccobot5
      IF bot5.left <= bot4.left THEN
       bot5.left=bot4.left+20
      END IF
      bot3.left=bot5.left
      bot8.left=bot5.left
      bot2.left=bot1.left+((bot5.left-bot1.left)/2)
      bot7.left=bot1.left+((bot5.left-bot1.left)/2)
      bot9.left=bot1.left+((bot5.left-bot1.left)/2)
      dragbottoni
     END SUB

     SUB dragbot6
      bot6.startdrag
      IF bot6.top<=bot1.top THEN
       bot6.top=bot1.top+20
      END IF
      IF bot6.left>=bot8.left THEN
       bot6.left=bot8.left-20
      END IF
      bot1.left=bot6.left
      bot2.left=bot6.left+((bot8.left-bot6.left)/2)
      bot4.left=bot6.left:bot4.top=bot6.top-((bot6.top-bot1.top)/2)
      bot5.top=bot6.top-((bot6.top-bot1.top)/2)
      bot7.left=bot6.left+((bot8.left-bot6.left)/2):bot7.top=bot6.top
      bot8.top=bot6.top
      bot9.left=bot6.left+((bot8.left-bot6.left)/2):bot9.top=bot6.top-((bot6.top-bot1.top)/2)
      dragbottoni
     END SUB

     SUB dragbot7
      bloccobot7=bot7.left
      bot7.startdrag
      bot7.left=bloccobot7
      IF bot7.top<=bot2.top THEN
       bot7.top=bot2.top+20
      END IF
      bot4.top=bot7.top-((bot7.top-bot1.top)/2)
      bot5.top=bot7.top-((bot7.top-bot1.top)/2)
      bot6.top=bot7.top
      bot8.top=bot7.top
      bot9.top=bot7.top-((bot7.top-bot1.top)/2)
      dragbottoni
     END SUB

     SUB dragbot8
      bot8.startdrag
      IF bot8.top<=bot3.top THEN
       bot8.top=bot3.top+20
      END IF
      IF bot8.left<=bot1.left THEN
       bot8.left=bot1.left+20
      END IF
      bot2.left=bot8.left-((bot8.left-bot1.left)/2)
      bot3.left=bot8.left
      bot4.top=bot8.top-((bot8.top-bot3.top)/2)
      bot5.left=bot8.left:bot5.top=bot8.top-((bot8.top-bot3.top)/2)
      bot6.top=bot8.top
      bot7.top=bot8.top:bot7.left=bot8.left-((bot8.left-bot1.left)/2)
      bot9.left=bot8.left-((bot8.left-bot1.left)/2):bot9.top=bot8.top-((bot8.top-bot3.top)/2)
      dragbottoni
     END SUB

     SUB dragbot9
      bloccolarg=bot3.left-bot1.left
      bloccoalt=bot8.top-bot1.top
      bot9.startdrag
      bot1.left=bot9.left-(bloccolarg/2):bot1.top=bot9.top-(bloccoalt/2)
      bot2.left=bot9.left:bot2.top=bot9.top-(bloccoalt/2)
      bot4.left=bot9.left-(bloccolarg/2):bot4.top=bot9.top
      bot3.left=bot9.left+(bloccolarg/2):bot3.top=bot9.top-(bloccoalt/2)
      bot5.left=bot9.left+(bloccolarg/2):bot5.top=bot9.top
      bot6.left=bot9.left-(bloccolarg/2):bot6.top=bot9.top+(bloccoalt/2)
      bot7.left=bot9.left:bot7.top=bot9.top+(bloccoalt/2)
      bot8.left=bot9.left+(bloccolarg/2):bot8.top=bot9.top+(bloccoalt/2)
      dragbottoni
     END SUB

     SUB dragbottoni
'select case (MainListBox1.item(MainListBox1.itemindex)-str$(MainListBox1.itemindex+1))
      SELECT CASE (MainListBox1.item(MainListBox1.itemindex)-STR$(INDICEOGGETTIFORM))

       IF  codedebug1.checked=1 THEN
        d.PRINT "formdesigner:oggetto selezionato"+(MainListBox1.item(MainListBox1.itemindex)-STR$(INDICEOGGETTIFORM))
       END IF

      CASE "Form"
      CASE "Label"
       label(INDICEOGGETTIFORM).top=bot1.top+10
       label(INDICEOGGETTIFORM).left=bot1.left+10
       label(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       label(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietalabel
      CASE "Edit"
       edit(INDICEOGGETTIFORM).top=bot1.top+10
       edit(INDICEOGGETTIFORM).left=bot1.left+10
       edit(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       edit(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietaedit
      CASE "Button"
       button(INDICEOGGETTIFORM).top=bot1.top+10
       button(INDICEOGGETTIFORM).left=bot1.left+10
       button(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       button(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietabutton
      CASE "Coolbtn"
       coolbtn(INDICEOGGETTIFORM).top=bot1.top+10
       coolbtn(INDICEOGGETTIFORM).left=bot1.left+10
       coolbtn(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       coolbtn(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietacoolbtn
      CASE "Ovalbtn"
       ovalbtn(INDICEOGGETTIFORM).top=bot1.top+10
       ovalbtn(INDICEOGGETTIFORM).left=bot1.left+10
       ovalbtn(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       ovalbtn(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietaovalbtn
      CASE "Image"
       image(INDICEOGGETTIFORM).top=bot1.top+10
       image(INDICEOGGETTIFORM).left=bot1.left+10
       image(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       image(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietaimage
      CASE "Canvas"
       canvas(INDICEOGGETTIFORM).top=bot1.top+10
       canvas(INDICEOGGETTIFORM).left=bot1.left+10
       canvas(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       canvas(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietacanvas
      CASE "Panel"
       pannel(INDICEOGGETTIFORM).top=bot1.top+10
       pannel(INDICEOGGETTIFORM).left=bot1.left+10
       pannel(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       pannel(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietapanel
      CASE "Gauge"
       gauge(INDICEOGGETTIFORM).top=bot1.top+10
       gauge(INDICEOGGETTIFORM).left=bot1.left+10
       gauge(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       gauge(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietagauge
      CASE "Checkbox"
       checkbox(INDICEOGGETTIFORM).top=bot1.top+10
       checkbox(INDICEOGGETTIFORM).left=bot1.left+10
       checkbox(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       checkbox(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietacheckbox
      CASE "Radiobutton"
       radiobutton(INDICEOGGETTIFORM).top=bot1.top+10
       radiobutton(INDICEOGGETTIFORM).left=bot1.left+10
       radiobutton(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       radiobutton(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietaradiobutton
      CASE "Combobox"
       combobox(INDICEOGGETTIFORM).top=bot1.top+10
       combobox(INDICEOGGETTIFORM).left=bot1.left+10
       combobox(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       combobox(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietacombobox
      CASE "Listbox"
       listbox(INDICEOGGETTIFORM).top=bot1.top+10
       listbox(INDICEOGGETTIFORM).left=bot1.left+10
       listbox(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       listbox(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietalistbox
      CASE "Scrollbox"
       scrollbox(INDICEOGGETTIFORM).top=bot1.top+10
       scrollbox(INDICEOGGETTIFORM).left=bot1.left+10
       scrollbox(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       scrollbox(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietascrollbox
      CASE "Richedit"
       richedit(INDICEOGGETTIFORM).top=bot1.top+10
       richedit(INDICEOGGETTIFORM).left=bot1.left+10
       richedit(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       richedit(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietarichedit
      CASE "Stringgriglia"
       stringgriglia.top=bot1.top+10
       stringgriglia.left=bot1.left+10
       stringgriglia.width=bot8.left-bot1.left-10
       stringgriglia.height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
      CASE "Tabcontrol"
       tabcontrol(INDICEOGGETTIFORM).top=bot1.top+10
       tabcontrol(INDICEOGGETTIFORM).left=bot1.left+10
       tabcontrol(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       tabcontrol(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietatabcontrol
      CASE "Statusbar"
'------sempre fissa
       indicepropriet=INDICEOGGETTIFORM
       proprietastatusbar
      CASE "Scrollbar"
       scrollbar(INDICEOGGETTIFORM).top=bot1.top+10
       scrollbar(INDICEOGGETTIFORM).left=bot1.left+10
       scrollbar(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       scrollbar(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietascrollbar
      CASE "Trackbar"
       trackbar(INDICEOGGETTIFORM).top=bot1.top+10
       trackbar(INDICEOGGETTIFORM).left=bot1.left+10
       trackbar(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       trackbar(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietatrackbar
      CASE "Filelistbox"
       filelistbox(INDICEOGGETTIFORM).top=bot1.top+10
       filelistbox(INDICEOGGETTIFORM).left=bot1.left+10
       filelistbox(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       filelistbox(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietafilelistbox
      CASE "Groupbox"
       groupbox(INDICEOGGETTIFORM).top=bot1.top+10
       groupbox(INDICEOGGETTIFORM).left=bot1.left+10
       groupbox(INDICEOGGETTIFORM).width=bot8.left-bot1.left-10
       groupbox(INDICEOGGETTIFORM).height=bot8.top-bot1.top-10
       indicepropriet=INDICEOGGETTIFORM
       proprietagroupbox
      CASE "Stringlista"'<-------nothing to do
      END SELECT
      drawpuntini
     END SUB

'----------------------rimozione degli oggetti-------------------------

     SUB Remove
'ShowMessage (MainListBox1.item(MainListBox1.itemindex)-str$(MainListBox1.itemindex+1))
      SELECT CASE (MainListBox1.item(MainListBox1.itemindex)-STR$(INDICEOGGETTIFORM))
      CASE "Form"
       SHOWMESSAGE "Form cant be deleted"
       Proprietaform
      CASE "Label"
       label(INDICEOGGETTIFORM).PARENT=form99
      CASE "Edit"
       edit(INDICEOGGETTIFORM).PARENT=form99
      CASE "Button"
       button(INDICEOGGETTIFORM).PARENT=form99
      CASE "Coolbtn"
       coolbtn(INDICEOGGETTIFORM).PARENT=form99
      CASE "Ovalbtn"
       ovalbtn(INDICEOGGETTIFORM).PARENT=form99
      CASE "Image"
       image(INDICEOGGETTIFORM).PARENT=form99
      CASE "Canvas"
       canvas(INDICEOGGETTIFORM).PARENT=form99
      CASE "Panel"
       pannel(INDICEOGGETTIFORM).PARENT=form99
      CASE "Gauge"
       gauge(INDICEOGGETTIFORM).PARENT=form99
      CASE "Checkbox"
       checkbox(INDICEOGGETTIFORM).PARENT=form99
      CASE "Radiobutton"
       radiobutton(INDICEOGGETTIFORM).PARENT=form99
      CASE "Combobox"
       combobox(INDICEOGGETTIFORM).PARENT=form99
      CASE "Listbox"
       listbox(INDICEOGGETTIFORM).PARENT=form99
      CASE "Scrollbox"
       scrollbox(INDICEOGGETTIFORM).PARENT=form99
      CASE "Richedit"
       richedit(INDICEOGGETTIFORM).PARENT=form99
      CASE "Stringgriglia"
       stringgriglia.PARENT=form99
      CASE "Tabcontrol"
       tabcontrol(INDICEOGGETTIFORM).PARENT=form99
      CASE "Statusbar"
       statusbar(INDICEOGGETTIFORM).PARENT=form99
      CASE "Scrollbar"
       scrollbar(INDICEOGGETTIFORM).PARENT=form99
      CASE "Trackbar"
       trackbar(INDICEOGGETTIFORM).PARENT=form99
      CASE "Filelistbox"
       filelistbox(INDICEOGGETTIFORM).PARENT=form99
      CASE "Groupbox"
       groupbox(INDICEOGGETTIFORM).PARENT=form99
      CASE "Stringlist"'<----------------sempre errore mi da
      END SELECT

      MainListBox1.Text = REPLACESUBSTR$(MainListBox1.Text, CRLF + MainListBox1.item(MainListBox1.itemindex) + CRLF, CRLF)
      StringGridProperties.Cell(0,0) = "":StringGridProperties.Cell(1,0) =  ""
      StringGridProperties.Cell(0,1) = "":StringGridProperties.Cell(1,1) =  ""
      StringGridProperties.Cell(0,2) = "":StringGridProperties.Cell(1,2) =  ""
      StringGridProperties.Cell(0,3) = "":StringGridProperties.Cell(1,3) =  ""
      StringGridProperties.Cell(0,4) = "":StringGridProperties.Cell(1,4) =  ""
      StringGridProperties.Cell(0,5) = "":StringGridProperties.Cell(1,5) =  ""
      StringGridProperties.Cell(0,6) = "":StringGridProperties.Cell(1,6) =  ""
      StringGridProperties.Cell(0,7) = "":StringGridProperties.Cell(1,7) =  ""
      StringGridProperties.Cell(0,8) = "":StringGridProperties.Cell(1,8) =  ""
      StringGridProperties.Cell(0,9) = "":StringGridProperties.Cell(1,9) =  ""
      StringGridProperties.Cell(0,10) = "":StringGridProperties.Cell(1,10) =  ""
      StringGridProperties.Cell(0,11) = "":StringGridProperties.Cell(1,11) =  ""
      StringGridProperties.Cell(0,12) = "":StringGridProperties.Cell(1,12) =  ""
      StringGridProperties.Cell(0,13) = "":StringGridProperties.Cell(1,13) =  ""
      StringGridProperties.Cell(0,14) = "":StringGridProperties.Cell(1,14) =  ""
      StringGridProperties.Cell(0,15) = "":StringGridProperties.Cell(1,15) =  ""
      StringGridProperties.Cell(0,16) = "":StringGridProperties.Cell(1,16) =  ""
      StringGridProperties.Cell(0,17) = "":StringGridProperties.Cell(1,17) =  ""
      StringGridProperties.Cell(0,18) = "":StringGridProperties.Cell(1,18) =  ""
      StringGridProperties.Cell(0,19) = "":StringGridProperties.Cell(1,19) =  ""
      StringGridProperties.Cell(0,20) = "":StringGridProperties.Cell(1,20) =  ""
      StringGridProperties.Cell(0,21) = "":StringGridProperties.Cell(1,21) =  ""
      StringGridProperties.Cell(0,22) = "":StringGridProperties.Cell(1,22) =  ""
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""

'bot1.left=-100:bot1.top=-100
'bot2.left=-100:bot2.top=-100
'bot3.left=-100:bot3.top=-100
'bot4.left=-100:bot4.top=-100
'bot5.left=-100:bot5.top=-100
'bot6.left=-100:bot6.top=-100
'bot7.left=-100:bot7.top=-100
'bot8.left=-100:bot8.top=-100
'bot9.left=-100:bot9.top=-100

      drawpuntini
     END SUB

     SUB proprietaform
      StringGridProperties.Cell(0,0) = "AutoScroll":StringGridProperties.Cell(1,0) =  STR$(Form1.AutoScroll)
      StringGridProperties.Cell(0,1) = "BorderStyle" :StringGridProperties.Cell(1,1) =  STR$(Form1.BorderStyle)
      StringGridProperties.Cell(0,2) = "Caption":StringGridProperties.Cell(1,2) =  Form1.CAPTION
      StringGridProperties.Cell(0,3) = "ClientHeight":StringGridProperties.Cell(1,3) =  STR$(Form1.ClientHeight)
      StringGridProperties.Cell(0,4) = "ClientWidth":StringGridProperties.Cell(1,4) =  STR$(Form1.ClientWidth)
      StringGridProperties.Cell(0,5) = "Color":StringGridProperties.Cell(1,5) =  STR$(Form1.COLOR)
      StringGridProperties.Cell(0,6) = "Cursor":StringGridProperties.Cell(1,6) =  STR$(Form1.cursor)
      StringGridProperties.Cell(0,7) = "Font":StringGridProperties.Cell(1,7) =  Form1.font
      StringGridProperties.Cell(0,8) = "FormStyle":StringGridProperties.Cell(1,8) =  STR$(Form1.FormStyle)
      StringGridProperties.Cell(0,9) = "Handle":StringGridProperties.Cell(1,9) =  STR$(Form1.handle)
      StringGridProperties.Cell(0,10) = "Height":StringGridProperties.Cell(1,10) =  STR$(Form1.height)
      StringGridProperties.Cell(0,11) = "Hint":StringGridProperties.Cell(1,11) =  Form(indicepropriet).hint
      StringGridProperties.Cell(0,12) = "IcoHandle":StringGridProperties.Cell(1,12) =  STR$(Form1.IcoHandle)
      StringGridProperties.Cell(0,13) = "Icon":StringGridProperties.Cell(1,13) =  Form(indicepropriet).Icon
      StringGridProperties.Cell(0,14) = "KeyPreview":StringGridProperties.Cell(1,14) =  STR$(Form1.KeyPreview)
      StringGridProperties.Cell(0,15) = "Left":StringGridProperties.Cell(1,15) =  STR$(Form1.Left)
      StringGridProperties.Cell(0,16) = "ModalResult":StringGridProperties.Cell(1,16) =  STR$(Form1.ModalResult)
      StringGridProperties.Cell(0,17) = "Parent":StringGridProperties.Cell(1,17) =  Form1.PARENT
      StringGridProperties.Cell(0,18) = "PopupMenu":StringGridProperties.Cell(1,18) =  STR$(Form1.popupmenu)
      StringGridProperties.Cell(0,19) = "ShowHint":StringGridProperties.Cell(1,19) =  Form1.showhint
      StringGridProperties.Cell(0,20) = "Top":StringGridProperties.Cell(1,20) =  STR$(Form1.top)
      StringGridProperties.Cell(0,21) = "Visible":StringGridProperties.Cell(1,21) =  STR$(Form1.visible)
      StringGridProperties.Cell(0,22) = "Width":StringGridProperties.Cell(1,22) =  STR$(Form1.width)
      StringGridProperties.Cell(0,23) = "WindowState":StringGridProperties.Cell(1,23) =  STR$(Form1.WindowState)
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietalabel
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(label(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Alignment" :StringGridProperties.Cell(1,1) =  STR$(label(indicepropriet).alignment)
      StringGridProperties.Cell(0,2) = "Angle"  :StringGridProperties.Cell(1,2) =  STR$(label(indicepropriet).angle)
      StringGridProperties.Cell(0,3) = "Autosize" :StringGridProperties.Cell(1,3) =  STR$(label(indicepropriet).autosize)
      StringGridProperties.Cell(0,4) = "Caption":StringGridProperties.Cell(1,4) =  label(indicepropriet).CAPTION
      StringGridProperties.Cell(0,5) = "Color":StringGridProperties.Cell(1,5) =  STR$(label(indicepropriet).COLOR)
      StringGridProperties.Cell(0,6) = "Cursor":StringGridProperties.Cell(1,6) =  STR$(label(indicepropriet).cursor)
      StringGridProperties.Cell(0,7) = "Enabled":StringGridProperties.Cell(1,7) =  STR$(label(indicepropriet).enabled)
      StringGridProperties.Cell(0,8) = "Font":StringGridProperties.Cell(1,8) =  label(indicepropriet).font
      StringGridProperties.Cell(0,9) = "Handle":StringGridProperties.Cell(1,9) =  STR$(label(indicepropriet).handle)
      StringGridProperties.Cell(0,10) = "Height":StringGridProperties.Cell(1,10) =  STR$(label(indicepropriet).height)
      StringGridProperties.Cell(0,11) = "Hint":StringGridProperties.Cell(1,11) =  label(indicepropriet).hint
      StringGridProperties.Cell(0,12) = "LabelStyle":StringGridProperties.Cell(1,12) =  STR$(label(indicepropriet).labelstyle)
      StringGridProperties.Cell(0,13) = "Layout":StringGridProperties.Cell(1,13) =  STR$(label(indicepropriet).layout)
      StringGridProperties.Cell(0,14) = "Left":StringGridProperties.Cell(1,14) =  STR$(label(indicepropriet).left)
      StringGridProperties.Cell(0,15) = "LowerColor":StringGridProperties.Cell(1,15) =  STR$(label(indicepropriet).lowercolor)
      StringGridProperties.Cell(0,16) = "Parent":StringGridProperties.Cell(1,16) =  label(indicepropriet).PARENT
      StringGridProperties.Cell(0,17) = "PopupMenu":StringGridProperties.Cell(1,17) =  STR$(label(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,18) = "ShowHint":StringGridProperties.Cell(1,18) =  label(indicepropriet).showhint
      StringGridProperties.Cell(0,19) = "Tag":StringGridProperties.Cell(1,19) =  STR$(label(indicepropriet).tag)
      StringGridProperties.Cell(0,20) = "Top":StringGridProperties.Cell(1,20) =  STR$(label(indicepropriet).top)
      StringGridProperties.Cell(0,21) = "Transparent":StringGridProperties.Cell(1,21) =  STR$(label(indicepropriet).transparent)
      StringGridProperties.Cell(0,22) = "UpperColor":StringGridProperties.Cell(1,22) =  STR$(label(indicepropriet).uppercolor)
      StringGridProperties.Cell(0,23) = "Visible":StringGridProperties.Cell(1,23) =  STR$(label(indicepropriet).visible)
      StringGridProperties.Cell(0,24) = "Width":StringGridProperties.Cell(1,24) =  STR$(label(indicepropriet).width)
      StringGridProperties.Cell(0,25) = "Wordwrap":StringGridProperties.Cell(1,25) =  STR$(label(indicepropriet).wordwrap)
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietaedit
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(edit(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "AutoSize" :StringGridProperties.Cell(1,1) =  STR$(edit(indicepropriet).autosize)
      StringGridProperties.Cell(0,2) = "BorderStyle"  :StringGridProperties.Cell(1,2) =  STR$(edit(indicepropriet).borderstyle)
      StringGridProperties.Cell(0,3) = "Charcase" :StringGridProperties.Cell(1,3) =  STR$(edit(indicepropriet).charcase)
      StringGridProperties.Cell(0,4) = "Color":StringGridProperties.Cell(1,4) =  STR$(edit(indicepropriet).COLOR)
      StringGridProperties.Cell(0,5) = "EditText":StringGridProperties.Cell(1,5) =  STR$(edit(indicepropriet).edittext)
      StringGridProperties.Cell(0,6) = "Enabled":StringGridProperties.Cell(1,6) =  STR$(edit(indicepropriet).enabled)
      StringGridProperties.Cell(0,7) = "Font":StringGridProperties.Cell(1,7) =  edit(indicepropriet).font
      StringGridProperties.Cell(0,8) = "Handle":StringGridProperties.Cell(1,8) =  STR$(edit(indicepropriet).handle)
      StringGridProperties.Cell(0,9) = "Height":StringGridProperties.Cell(1,9) =  STR$(edit(indicepropriet).height)
      StringGridProperties.Cell(0,10) = "Hint":StringGridProperties.Cell(1,10) =  edit(indicepropriet).hint
      StringGridProperties.Cell(0,11) = "InputMask":StringGridProperties.Cell(1,11) =  STR$(edit(indicepropriet).inputmask)
      StringGridProperties.Cell(0,12) = "IsMasked":StringGridProperties.Cell(1,12) =  STR$(edit(indicepropriet).ismasked)
      StringGridProperties.Cell(0,13) = "Left":StringGridProperties.Cell(1,13) =  STR$(edit(indicepropriet).left)
      StringGridProperties.Cell(0,14) = "MaxLength":StringGridProperties.Cell(1,14) =  STR$(edit(indicepropriet).maxlength)
      StringGridProperties.Cell(0,15) = "Modified":StringGridProperties.Cell(1,15) =  STR$(edit(indicepropriet).modified)
      StringGridProperties.Cell(0,16) = "Parent":StringGridProperties.Cell(1,16) =  edit(indicepropriet).PARENT
      StringGridProperties.Cell(0,17) = "PasswordChar":StringGridProperties.Cell(1,17) =  STR$(edit(indicepropriet).passwordchar)
      StringGridProperties.Cell(0,18) = "PopupMenu":StringGridProperties.Cell(1,18) =  STR$(edit(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,19) = "ReadOnly":StringGridProperties.Cell(1,19) =  STR$(edit(indicepropriet).readonly)
      StringGridProperties.Cell(0,20) = "SelLength":StringGridProperties.Cell(1,20) =  STR$(edit(indicepropriet).SelLength)
      StringGridProperties.Cell(0,21) = "SelStart":StringGridProperties.Cell(1,21) =  STR$(edit(indicepropriet).SelStart)
      StringGridProperties.Cell(0,22) = "SelText":StringGridProperties.Cell(1,22) =  STR$(edit(indicepropriet).seltext)
      StringGridProperties.Cell(0,23) = "ShowHint":StringGridProperties.Cell(1,23) =  edit(indicepropriet).showhint
      StringGridProperties.Cell(0,24) = "Taborder":StringGridProperties.Cell(1,24) =  STR$(edit(indicepropriet).taborder)
      StringGridProperties.Cell(0,25) = "Tag":StringGridProperties.Cell(1,25) =  STR$(edit(indicepropriet).tag)
      StringGridProperties.Cell(0,26) = "Text":StringGridProperties.Cell(1,26) =  edit(indicepropriet).text
      StringGridProperties.Cell(0,27) = "Top":StringGridProperties.Cell(1,27) =  STR$(edit(indicepropriet).top)
      StringGridProperties.Cell(0,28) = "Visible":StringGridProperties.Cell(1,28) =  STR$(edit(indicepropriet).visible)
      StringGridProperties.Cell(0,29) = "Width":StringGridProperties.Cell(1,29) =  STR$(edit(indicepropriet).width)
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietabutton
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(button(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Bmp" :StringGridProperties.Cell(1,1) =  STR$(button(indicepropriet).bmp)

      StringGridProperties.Cell(0,2) = "BmpHandle"  :StringGridProperties.Cell(1,2) =  STR$(button(indicepropriet).bmphandle)
      StringGridProperties.Cell(0,3) = "Cancel" :StringGridProperties.Cell(1,3) =  STR$(button(indicepropriet).cancel)
      StringGridProperties.Cell(0,4) = "Caption":StringGridProperties.Cell(1,4) =  button(indicepropriet).CAPTION
      StringGridProperties.Cell(0,5) = "Color":StringGridProperties.Cell(1,5) =  STR$(button(indicepropriet).COLOR)
      StringGridProperties.Cell(0,6) = "Cursor":StringGridProperties.Cell(1,6) =  STR$(button(indicepropriet).cursor)
      StringGridProperties.Cell(0,7) = "Default":StringGridProperties.Cell(1,7) =  STR$(button(indicepropriet).default)
      StringGridProperties.Cell(0,8) = "Enabled":StringGridProperties.Cell(1,8) =  STR$(button(indicepropriet).enabled)
      StringGridProperties.Cell(0,9) = "Font":StringGridProperties.Cell(1,9) =  button(indicepropriet).font
      StringGridProperties.Cell(0,10) = "Handle":StringGridProperties.Cell(1,10) =  STR$(button(indicepropriet).handle)
      StringGridProperties.Cell(0,11) = "Height":StringGridProperties.Cell(1,11) =  STR$(button(indicepropriet).height)
      StringGridProperties.Cell(0,12) = "Hint":StringGridProperties.Cell(1,12) =  button(indicepropriet).hint
      StringGridProperties.Cell(0,13) = "Kind":StringGridProperties.Cell(1,13) =  STR$(button(indicepropriet).kind)
      StringGridProperties.Cell(0,14) = "Layout":StringGridProperties.Cell(1,14) =  STR$(button(indicepropriet).layout)
      StringGridProperties.Cell(0,15) = "Left":StringGridProperties.Cell(1,15) =  STR$(button(indicepropriet).left)
      StringGridProperties.Cell(0,16) = "ModalResult":StringGridProperties.Cell(1,16) =  STR$(button(indicepropriet).modalresult)
      StringGridProperties.Cell(0,17) = "NumBMPs":StringGridProperties.Cell(1,17) =  STR$(button(indicepropriet).NumBMPs)
      StringGridProperties.Cell(0,18) = "Parent":StringGridProperties.Cell(1,18) =  button(indicepropriet).PARENT
      StringGridProperties.Cell(0,19) = "PopupMenu":StringGridProperties.Cell(1,19) =  STR$(button(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,20) = "ShowHint":StringGridProperties.Cell(1,20) =  button(indicepropriet).showhint
      StringGridProperties.Cell(0,21) = "Spacing":StringGridProperties.Cell(1,21) =  STR$(button(indicepropriet).Spacing)
      StringGridProperties.Cell(0,22) = "Taborder":StringGridProperties.Cell(1,22) =  STR$(button(indicepropriet).taborder)
      StringGridProperties.Cell(0,23) = "Tag":StringGridProperties.Cell(1,23) =  STR$(button(indicepropriet).tag)
      StringGridProperties.Cell(0,24) = "Top":StringGridProperties.Cell(1,24) =  STR$(button(indicepropriet).top)
      StringGridProperties.Cell(0,25) = "Visible":StringGridProperties.Cell(1,25) =  STR$(button(indicepropriet).visible)
      StringGridProperties.Cell(0,26) = "Width":StringGridProperties.Cell(1,26) =  STR$(button(indicepropriet).width)
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietacoolbtn
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(coolbtn(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "AllowAllUp":StringGridProperties.Cell(1,1) =  STR$(coolbtn(indicepropriet).AllowAllUp)
      StringGridProperties.Cell(0,2) = "Bmp" :StringGridProperties.Cell(1,2) =  STR$(coolbtn(indicepropriet).bmp)
      StringGridProperties.Cell(0,3) = "BmpHandle"  :StringGridProperties.Cell(1,3) =  STR$(coolbtn(indicepropriet).bmphandle)
      StringGridProperties.Cell(0,4) = "Caption":StringGridProperties.Cell(1,4) =  coolbtn(indicepropriet).CAPTION

      StringGridProperties.Cell(0,5) = "Cursor":StringGridProperties.Cell(1,5) =  STR$(coolbtn(indicepropriet).cursor)
      StringGridProperties.Cell(0,6) = "Down":StringGridProperties.Cell(1,6) =  STR$(coolbtn(indicepropriet).down)
      StringGridProperties.Cell(0,7) = "Enabled":StringGridProperties.Cell(1,7) =  STR$(coolbtn(indicepropriet).enabled)
      StringGridProperties.Cell(0,8) = "Flat":StringGridProperties.Cell(1,8) =  STR$(coolbtn(indicepropriet).flat)
      StringGridProperties.Cell(0,9) = "Font":StringGridProperties.Cell(1,9) =  coolbtn(indicepropriet).font
      StringGridProperties.Cell(0,10) = "GroupIndex":StringGridProperties.Cell(1,10) =  STR$(coolbtn(indicepropriet).GroupIndex)
      StringGridProperties.Cell(0,11) = "Height":StringGridProperties.Cell(1,11) =  STR$(coolbtn(indicepropriet).height)
      StringGridProperties.Cell(0,12) = "Hint":StringGridProperties.Cell(1,12) =  coolbtn(indicepropriet).hint
      StringGridProperties.Cell(0,13) = "Layout":StringGridProperties.Cell(1,13) =  STR$(coolbtn(indicepropriet).layout)
      StringGridProperties.Cell(0,14) = "Left":StringGridProperties.Cell(1,14) =  STR$(coolbtn(indicepropriet).left)
      StringGridProperties.Cell(0,15) = "NumBMPs":StringGridProperties.Cell(1,15) =  STR$(coolbtn(indicepropriet).NumBMPs)
      StringGridProperties.Cell(0,16) = "Parent":StringGridProperties.Cell(1,16) =  coolbtn(indicepropriet).PARENT
      StringGridProperties.Cell(0,17) = "ShowHint":StringGridProperties.Cell(1,17) =  coolbtn(indicepropriet).showhint
      StringGridProperties.Cell(0,18) = "Spacing":StringGridProperties.Cell(1,18) =  STR$(coolbtn(indicepropriet).Spacing)
      StringGridProperties.Cell(0,19) = "Tag":StringGridProperties.Cell(1,19) =  STR$(coolbtn(indicepropriet).tag)
      StringGridProperties.Cell(0,20) = "Top":StringGridProperties.Cell(1,20) =  STR$(coolbtn(indicepropriet).top)
      StringGridProperties.Cell(0,21) = "Visible":StringGridProperties.Cell(1,21) =  STR$(coolbtn(indicepropriet).visible)
      StringGridProperties.Cell(0,22) = "Width":StringGridProperties.Cell(1,22) =  STR$(coolbtn(indicepropriet).width)
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietaovalbtn
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(ovalbtn(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Bmp" :StringGridProperties.Cell(1,1) =  STR$(ovalbtn(indicepropriet).bmp)
      StringGridProperties.Cell(0,2) = "BmpHandle"  :StringGridProperties.Cell(1,2) =  STR$(ovalbtn(indicepropriet).bmphandle)
      StringGridProperties.Cell(0,3) = "Caption":StringGridProperties.Cell(1,3) =  ovalbtn(indicepropriet).CAPTION
      StringGridProperties.Cell(0,4) = "Color":StringGridProperties.Cell(1,4) =  STR$(ovalbtn(indicepropriet).COLOR)
      StringGridProperties.Cell(0,5) = "Colorhighlight":StringGridProperties.Cell(1,5) =  STR$(ovalbtn(indicepropriet).ColorHighLight)
      StringGridProperties.Cell(0,6)="ColorShadow":StringGridProperties.Cell(1,6)=STR$(ovalbtn(indicepropriet).ColorShadow)
      StringGridProperties.Cell(0,7) = "Cursor":StringGridProperties.Cell(1,7) =  STR$(ovalbtn(indicepropriet).cursor)
      StringGridProperties.Cell(0,8) = "Down":StringGridProperties.Cell(1,8) =  STR$(ovalbtn(indicepropriet).down)
      StringGridProperties.Cell(0,9) = "Enabled":StringGridProperties.Cell(1,9) =  STR$(ovalbtn(indicepropriet).enabled)
      StringGridProperties.Cell(0,10) = "Flat":StringGridProperties.Cell(1,10) =  STR$(ovalbtn(indicepropriet).flat)
      StringGridProperties.Cell(0,11) = "Font":StringGridProperties.Cell(1,11) =  STR$(ovalbtn(indicepropriet).font)
      StringGridProperties.Cell(0,12) = "GroupIndex":StringGridProperties.Cell(1,12) =  STR$(ovalbtn(indicepropriet).GroupIndex)
      StringGridProperties.Cell(0,13) = "Height":StringGridProperties.Cell(1,13) =  STR$(ovalbtn(indicepropriet).height)
      StringGridProperties.Cell(0,14) = "Hint":StringGridProperties.Cell(1,14) =  ovalbtn(indicepropriet).hint
      StringGridProperties.Cell(0,15) = "Layout":StringGridProperties.Cell(1,15) =  STR$(ovalbtn(indicepropriet).layout)
      StringGridProperties.Cell(0,16) = "Left":StringGridProperties.Cell(1,16) =  STR$(ovalbtn(indicepropriet).left)
      StringGridProperties.Cell(0,17) = "NumBMPs":StringGridProperties.Cell(1,17) =  STR$(ovalbtn(indicepropriet).NumBMPs)
      StringGridProperties.Cell(0,18) = "Parent":StringGridProperties.Cell(1,18) =  ovalbtn(indicepropriet).PARENT
      StringGridProperties.Cell(0,19) = "ShowHint":StringGridProperties.Cell(1,19) =  ovalbtn(indicepropriet).showhint
      StringGridProperties.Cell(0,20) = "Spacing":StringGridProperties.Cell(1,20) =  STR$(ovalbtn(indicepropriet).Spacing)
      StringGridProperties.Cell(0,21) = "Tag":StringGridProperties.Cell(1,21) =  STR$(ovalbtn(indicepropriet).tag)
      StringGridProperties.Cell(0,22) = "Top":StringGridProperties.Cell(1,22) =  STR$(ovalbtn(indicepropriet).top)
      StringGridProperties.Cell(0,23) = "Transparent":StringGridProperties.Cell(1,23) =  STR$(ovalbtn(indicepropriet).Transparent)
      StringGridProperties.Cell(0,24) = "TransParentColor":StringGridProperties.Cell(1,24) =  STR$(ovalbtn(indicepropriet).TransParentColor)
      StringGridProperties.Cell(0,25) = "Visible":StringGridProperties.Cell(1,25) =  STR$(ovalbtn(indicepropriet).visible)
      StringGridProperties.Cell(0,26) = "Width":StringGridProperties.Cell(1,26) =  STR$(ovalbtn(indicepropriet).width)
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietaimage
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(image(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Autosize":StringGridProperties.Cell(1,1) =  STR$(image(indicepropriet).Autosize)
      StringGridProperties.Cell(0,2) = "Bmp" :StringGridProperties.Cell(1,2) =  STR$(image(indicepropriet).bmp)
      StringGridProperties.Cell(0,3) = "BmpHandle"  :StringGridProperties.Cell(1,3) =  STR$(image(indicepropriet).bmphandle)
      StringGridProperties.Cell(0,4) = "Center":StringGridProperties.Cell(1,4) =  STR$(image(indicepropriet).Center)
      StringGridProperties.Cell(0,5) = "CopyMode":StringGridProperties.Cell(1,5) =  STR$(image(indicepropriet).CopyMode)
      StringGridProperties.Cell(0,6) = "Cursor":StringGridProperties.Cell(1,6) =  STR$(image(indicepropriet).cursor)
      StringGridProperties.Cell(0,7) = "Enabled":StringGridProperties.Cell(1,7) =  STR$(image(indicepropriet).enabled)
      StringGridProperties.Cell(0,8) = "Font":StringGridProperties.Cell(1,8) =  image(indicepropriet).font
      StringGridProperties.Cell(0,9) = "Handle":StringGridProperties.Cell(1,9) =  STR$(image(indicepropriet).handle)
      StringGridProperties.Cell(0,10) = "Height":StringGridProperties.Cell(1,10) =  STR$(image(indicepropriet).height)
      StringGridProperties.Cell(0,11) = "Hint":StringGridProperties.Cell(1,11) =  image(indicepropriet).hint
      StringGridProperties.Cell(0,12) = "ICOHandle":StringGridProperties.Cell(1,12) =  image(indicepropriet).ICOHandle
      StringGridProperties.Cell(0,13) = "Icon":StringGridProperties.Cell(1,13) =  STR$(image(indicepropriet).Icon)
      StringGridProperties.Cell(0,14) = "IncrementalDisplay":StringGridProperties.Cell(1,14) =  STR$(image(indicepropriet).IncrementalDisplay)
      StringGridProperties.Cell(0,15) = "Left":StringGridProperties.Cell(1,15) =  STR$(image(indicepropriet).left)
      StringGridProperties.Cell(0,16) = "Parent":StringGridProperties.Cell(1,16) =  image(indicepropriet).PARENT
      StringGridProperties.Cell(0,17) = "PopupMenu":StringGridProperties.Cell(1,17) =  STR$(image(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,18) = "ShowHint":StringGridProperties.Cell(1,18) =  image(indicepropriet).showhint
      StringGridProperties.Cell(0,19) = "Stretch":StringGridProperties.Cell(1,19) =  STR$(image(indicepropriet).Stretch)
      StringGridProperties.Cell(0,20) = "Tag":StringGridProperties.Cell(1,20) =  STR$(image(indicepropriet).tag)
      StringGridProperties.Cell(0,21) = "Top":StringGridProperties.Cell(1,21) =  STR$(image(indicepropriet).top)
      StringGridProperties.Cell(0,22) = "Transparent":StringGridProperties.Cell(1,22) =  STR$(image(indicepropriet).Transparent)
      StringGridProperties.Cell(0,23) = "Visible":StringGridProperties.Cell(1,23) =  STR$(image(indicepropriet).visible)
      StringGridProperties.Cell(0,24) = "Width":StringGridProperties.Cell(1,24) =  STR$(image(indicepropriet).width)
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietacanvas
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(canvas(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "ClientHeight":StringGridProperties.Cell(1,1) =  STR$(canvas(indicepropriet).ClientHeight)
      StringGridProperties.Cell(0,2) = "ClientWidth" :StringGridProperties.Cell(1,2) =  STR$(canvas(indicepropriet).ClientWidth)
      StringGridProperties.Cell(0,3) = "Color":StringGridProperties.Cell(1,3) =  STR$(canvas(indicepropriet).COLOR)
      StringGridProperties.Cell(0,4) = "CopyMode":StringGridProperties.Cell(1,4) =  STR$(canvas(indicepropriet).CopyMode)
      StringGridProperties.Cell(0,5) = "Cursor":StringGridProperties.Cell(1,5) =  STR$(canvas(indicepropriet).cursor)
      StringGridProperties.Cell(0,6) = "Enabled":StringGridProperties.Cell(1,6) =  STR$(canvas(indicepropriet).enabled)
      StringGridProperties.Cell(0,7) = "Font":StringGridProperties.Cell(1,7) =  canvas(indicepropriet).font
      StringGridProperties.Cell(0,8) = "Height":StringGridProperties.Cell(1,8) =  STR$(canvas(indicepropriet).height)
      StringGridProperties.Cell(0,9) = "Hint":StringGridProperties.Cell(1,9) =  canvas(indicepropriet).hint
      StringGridProperties.Cell(0,10) = "Left":StringGridProperties.Cell(1,10) =  STR$(canvas(indicepropriet).left)
      StringGridProperties.Cell(0,11) = "Parent":StringGridProperties.Cell(1,11) =  canvas(indicepropriet).PARENT
      StringGridProperties.Cell(0,12) = "":StringGridProperties.Cell(1,12) =  ""
      StringGridProperties.Cell(0,13) = "PopupMenu":StringGridProperties.Cell(1,13) =  STR$(canvas(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,14) = "ShowHint":StringGridProperties.Cell(1,14) =  canvas(indicepropriet).showhint
      StringGridProperties.Cell(0,15) = "Tag":StringGridProperties.Cell(1,15) =  STR$(canvas(indicepropriet).tag)
      StringGridProperties.Cell(0,16) = "Top":StringGridProperties.Cell(1,161) =  STR$(canvas(indicepropriet).top)
      StringGridProperties.Cell(0,17) = "Visible":StringGridProperties.Cell(1,17) =  STR$(canvas(indicepropriet).visible)
      StringGridProperties.Cell(0,18) = "Width":StringGridProperties.Cell(1,18) =  STR$(canvas(indicepropriet).width)
      StringGridProperties.Cell(0,19) = "":StringGridProperties.Cell(1,19) =  ""
      StringGridProperties.Cell(0,20) = "":StringGridProperties.Cell(1,20) =  ""
      StringGridProperties.Cell(0,21) = "":StringGridProperties.Cell(1,21) =  ""
      StringGridProperties.Cell(0,22) = "":StringGridProperties.Cell(1,22) =  ""
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietapanel
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(pannel(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Alignment":StringGridProperties.Cell(1,1) =  STR$(pannel(indicepropriet).alignment)
      StringGridProperties.Cell(0,2) = "BevelInner" :StringGridProperties.Cell(1,2) =  STR$(pannel(indicepropriet).BevelInner)
      StringGridProperties.Cell(0,3) = "BevelOuter" :StringGridProperties.Cell(1,3) =  STR$(pannel(indicepropriet).BevelOuter)
      StringGridProperties.Cell(0,4) = "BevelWidth" :StringGridProperties.Cell(1,4) =  STR$(pannel(indicepropriet).BevelWidth)
      StringGridProperties.Cell(0,5) = "BorderStyle" :StringGridProperties.Cell(1,5) =  STR$(pannel(indicepropriet).BorderStyle)
      StringGridProperties.Cell(0,6) = "Caption" :StringGridProperties.Cell(1,6) =  pannel(indicepropriet).CAPTION
      StringGridProperties.Cell(0,7) = "ClientHeight" :StringGridProperties.Cell(1,7) =  STR$(pannel(indicepropriet).ClientHeight)
      StringGridProperties.Cell(0,8) = "ClientWidth" :StringGridProperties.Cell(1,8) =  STR$(pannel(indicepropriet).ClientWidth)
      StringGridProperties.Cell(0,9) = "Color" :StringGridProperties.Cell(1,9) =  STR$(pannel(indicepropriet).COLOR)
      StringGridProperties.Cell(0,10) = "Cursor" :StringGridProperties.Cell(1,10) =  STR$(pannel(indicepropriet).Cursor)
      StringGridProperties.Cell(0,11) = "Enabled":StringGridProperties.Cell(1,11) =  STR$(pannel(indicepropriet).enabled)
      StringGridProperties.Cell(0,12) = "Font":StringGridProperties.Cell(1,12) =  pannel(indicepropriet).font
      StringGridProperties.Cell(0,13) = "Height":StringGridProperties.Cell(1,13) =  STR$(pannel(indicepropriet).height)
      StringGridProperties.Cell(0,14) = "Hint":StringGridProperties.Cell(1,14) =  pannel(indicepropriet).hint
      StringGridProperties.Cell(0,15) = "Left":StringGridProperties.Cell(1,15) =  STR$(pannel(indicepropriet).left)
      StringGridProperties.Cell(0,16) = "Parent":StringGridProperties.Cell(1,16) =  pannel(indicepropriet).PARENT
      StringGridProperties.Cell(0,17) = "ShowHint":StringGridProperties.Cell(1,17) =  pannel(indicepropriet).showhint
      StringGridProperties.Cell(0,18) = "TabOrder":StringGridProperties.Cell(1,18) =  STR$(pannel(indicepropriet).TabOrder)
      StringGridProperties.Cell(0,19) = "Tag":StringGridProperties.Cell(1,19) =  STR$(pannel(indicepropriet).Tag)
      StringGridProperties.Cell(0,20) = "Top":StringGridProperties.Cell(1,20) =  STR$(pannel(indicepropriet).top)
      StringGridProperties.Cell(0,21) = "Visible":StringGridProperties.Cell(1,21) =  STR$(pannel(indicepropriet).visible)
      StringGridProperties.Cell(0,22) = "Width":StringGridProperties.Cell(1,22) =  STR$(pannel(indicepropriet).width)
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietagauge
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(gauge(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "BackColor":StringGridProperties.Cell(1,1) =  STR$(gauge(indicepropriet).BackColor)
      StringGridProperties.Cell(0,2) = "BorderStyle" :StringGridProperties.Cell(1,2) =  STR$(gauge(indicepropriet).BorderStyle)
      StringGridProperties.Cell(0,3) = "Color":StringGridProperties.Cell(1,3) =  STR$(gauge(indicepropriet).COLOR)
      StringGridProperties.Cell(0,4) = "Cursor":StringGridProperties.Cell(1,4) =  STR$(gauge(indicepropriet).cursor)
      StringGridProperties.Cell(0,5) = "Enabled":StringGridProperties.Cell(1,5) =  STR$(gauge(indicepropriet).enabled)
      StringGridProperties.Cell(0,6) = "Font":StringGridProperties.Cell(1,6) =  gauge(indicepropriet).font
      StringGridProperties.Cell(0,7) = "ForeColor":StringGridProperties.Cell(1,7) =  STR$(gauge(indicepropriet).ForeColor)
      StringGridProperties.Cell(0,8) = "Height":StringGridProperties.Cell(1,8) =  STR$(gauge(indicepropriet).height)
      StringGridProperties.Cell(0,9) = "Hint":StringGridProperties.Cell(1,9) =  gauge(indicepropriet).hint
      StringGridProperties.Cell(0,10) = "Kind":StringGridProperties.Cell(1,10) =  STR$(gauge(indicepropriet).Kind)
      StringGridProperties.Cell(0,11) = "Left":StringGridProperties.Cell(1,11) =  STR$(gauge(indicepropriet).left)
      StringGridProperties.Cell(0,12) = "Max":StringGridProperties.Cell(1,12) =  STR$(gauge(indicepropriet).Max)
      StringGridProperties.Cell(0,13) = "Min":StringGridProperties.Cell(1,13) =  STR$(gauge(indicepropriet).Min)
      StringGridProperties.Cell(0,14) = "Parent":StringGridProperties.Cell(1,14) =  gauge(indicepropriet).PARENT
      StringGridProperties.Cell(0,15) = "Position":StringGridProperties.Cell(1,15) =  STR$(gauge(indicepropriet).Position)
      StringGridProperties.Cell(0,16) = "ShowHint":StringGridProperties.Cell(1,16) =  gauge(indicepropriet).showhint
      StringGridProperties.Cell(0,17) = "ShowText":StringGridProperties.Cell(1,17) =  STR$(gauge(indicepropriet).ShowText)
      StringGridProperties.Cell(0,18) = "Top":StringGridProperties.Cell(1,18) =  STR$(gauge(indicepropriet).top)
      StringGridProperties.Cell(0,19) = "Visible":StringGridProperties.Cell(1,19) =  STR$(gauge(indicepropriet).visible)
      StringGridProperties.Cell(0,20) = "Width":StringGridProperties.Cell(1,20) =  STR$(gauge(indicepropriet).width)
      StringGridProperties.Cell(0,21) = "":StringGridProperties.Cell(1,21) =  ""
      StringGridProperties.Cell(0,22) = "":StringGridProperties.Cell(1,22) =  ""
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietacheckbox
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(checkbox(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Caption":StringGridProperties.Cell(1,1) =  checkbox(indicepropriet).CAPTION
      StringGridProperties.Cell(0,2) = "Checked" :StringGridProperties.Cell(1,2) =  STR$(checkbox(indicepropriet).Checked)
      StringGridProperties.Cell(0,3) = "Enabled":StringGridProperties.Cell(1,3) =  STR$(checkbox(indicepropriet).enabled)
      StringGridProperties.Cell(0,4) = "Font":StringGridProperties.Cell(1,4) =  checkbox(indicepropriet).font
      StringGridProperties.Cell(0,5) = "Height":StringGridProperties.Cell(1,5) =  STR$(checkbox(indicepropriet).height)
      StringGridProperties.Cell(0,6) = "Hint":StringGridProperties.Cell(1,6) =  checkbox(indicepropriet).hint
      StringGridProperties.Cell(0,7) = "Left":StringGridProperties.Cell(1,7) =  STR$(checkbox(indicepropriet).left)
      StringGridProperties.Cell(0,8) = "Parent":StringGridProperties.Cell(1,8) =  checkbox(indicepropriet).PARENT
      StringGridProperties.Cell(0,9) = "PopupMenu":StringGridProperties.Cell(1,9) =  STR$(checkbox(indicepropriet).PopupMenu)
      StringGridProperties.Cell(0,10) = "ShowHint":StringGridProperties.Cell(1,10) =  checkbox(indicepropriet).showhint
      StringGridProperties.Cell(0,11) = "TabOrder":StringGridProperties.Cell(1,11) =  STR$(checkbox(indicepropriet).TabOrder)
      StringGridProperties.Cell(0,12) = "Tag":StringGridProperties.Cell(1,12) =  STR$(checkbox(indicepropriet).Tag)
      StringGridProperties.Cell(0,13) = "Top":StringGridProperties.Cell(1,13) =  STR$(checkbox(indicepropriet).top)
      StringGridProperties.Cell(0,14) = "Visible":StringGridProperties.Cell(1,14) =  STR$(checkbox(indicepropriet).visible)
      StringGridProperties.Cell(0,15) = "Width":StringGridProperties.Cell(1,15) =  STR$(checkbox(indicepropriet).width)
      StringGridProperties.Cell(0,16) = "":StringGridProperties.Cell(1,16) =  ""
      StringGridProperties.Cell(0,17) = "":StringGridProperties.Cell(1,17) =  ""
      StringGridProperties.Cell(0,18) = "":StringGridProperties.Cell(1,18) =  ""
      StringGridProperties.Cell(0,19) = "":StringGridProperties.Cell(1,19) =  ""
      StringGridProperties.Cell(0,20) = "":StringGridProperties.Cell(1,20) =  ""
      StringGridProperties.Cell(0,21) = "":StringGridProperties.Cell(1,21) =  ""
      StringGridProperties.Cell(0,22) = "":StringGridProperties.Cell(1,22) =  ""
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietaradiobutton
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(radiobutton(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Caption":StringGridProperties.Cell(1,1) =  radiobutton(indicepropriet).CAPTION
      StringGridProperties.Cell(0,2) = "Checked" :StringGridProperties.Cell(1,2) =  STR$(radiobutton(indicepropriet).Checked)
      StringGridProperties.Cell(0,3) = "Enabled":StringGridProperties.Cell(1,3) =  STR$(radiobutton(indicepropriet).enabled)
      StringGridProperties.Cell(0,4) = "Font":StringGridProperties.Cell(1,4) =  radiobutton(indicepropriet).font
      StringGridProperties.Cell(0,5) = "Height":StringGridProperties.Cell(1,5) =  STR$(radiobutton(indicepropriet).height)
      StringGridProperties.Cell(0,6) = "Hint":StringGridProperties.Cell(1,6) =  radiobutton(indicepropriet).hint
      StringGridProperties.Cell(0,7) = "Left":StringGridProperties.Cell(1,7) =  STR$(radiobutton(indicepropriet).left)
      StringGridProperties.Cell(0,8) = "Parent":StringGridProperties.Cell(1,8) =  radiobutton(indicepropriet).PARENT
      StringGridProperties.Cell(0,9) = "PopupMenu":StringGridProperties.Cell(1,9) =  STR$(radiobutton(indicepropriet).PopupMenu)
      StringGridProperties.Cell(0,10) = "ShowHint":StringGridProperties.Cell(1,10) =  radiobutton(indicepropriet).showhint
      StringGridProperties.Cell(0,11) = "TabOrder":StringGridProperties.Cell(1,11) =  STR$(radiobutton(indicepropriet).TabOrder)
      StringGridProperties.Cell(0,12) = "Tag":StringGridProperties.Cell(1,12) =  STR$(radiobutton(indicepropriet).Tag)
      StringGridProperties.Cell(0,13) = "Top":StringGridProperties.Cell(1,13) =  STR$(radiobutton(indicepropriet).top)
      StringGridProperties.Cell(0,14) = "Visible":StringGridProperties.Cell(1,14) =  STR$(radiobutton(indicepropriet).visible)
      StringGridProperties.Cell(0,15) = "Width":StringGridProperties.Cell(1,15) =  STR$(radiobutton(indicepropriet).width)
      StringGridProperties.Cell(0,16) = "":StringGridProperties.Cell(1,16) =  ""
      StringGridProperties.Cell(0,17) = "":StringGridProperties.Cell(1,17) =  ""
      StringGridProperties.Cell(0,18) = "":StringGridProperties.Cell(1,18) =  ""
      StringGridProperties.Cell(0,19) = "":StringGridProperties.Cell(1,19) =  ""
      StringGridProperties.Cell(0,20) = "":StringGridProperties.Cell(1,20) =  ""
      StringGridProperties.Cell(0,21) = "":StringGridProperties.Cell(1,21) =  ""
      StringGridProperties.Cell(0,22) = "":StringGridProperties.Cell(1,22) =  ""
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietacombobox
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(combobox(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Color" :StringGridProperties.Cell(1,1) =  STR$(combobox(indicepropriet).COLOR)
      StringGridProperties.Cell(0,2) = "CopyMode" :StringGridProperties.Cell(1,2) =  STR$(combobox(indicepropriet).CopyMode)
      StringGridProperties.Cell(0,3) = "Cursor" :StringGridProperties.Cell(1,3) =  STR$(combobox(indicepropriet).Cursor)
      StringGridProperties.Cell(0,4) = "DropDownCount" :StringGridProperties.Cell(1,4) =  STR$(combobox(indicepropriet).DropDownCount)
      StringGridProperties.Cell(0,5) = "Enabled":StringGridProperties.Cell(1,5) =  STR$(combobox(indicepropriet).enabled)
      StringGridProperties.Cell(0,6) = "Font":StringGridProperties.Cell(1,6) =  combobox(indicepropriet).font
      StringGridProperties.Cell(0,7) = "Height":StringGridProperties.Cell(1,7) =  STR$(combobox(indicepropriet).height)
      StringGridProperties.Cell(0,8) = "Hint":StringGridProperties.Cell(1,8) =  combobox(indicepropriet).hint
      StringGridProperties.Cell(0,9) = "ItemCount":StringGridProperties.Cell(1,9) =  STR$(combobox(indicepropriet).ItemCount)
      StringGridProperties.Cell(0,10) = "ItemHeight":StringGridProperties.Cell(1,10) =  STR$(combobox(indicepropriet).ItemHeight)
      StringGridProperties.Cell(0,11) = "ItemIndex":StringGridProperties.Cell(1,11) =  STR$(combobox(indicepropriet).ItemIndex)
      StringGridProperties.Cell(0,12) = "Left":StringGridProperties.Cell(1,12) =  STR$(combobox(indicepropriet).left)
      StringGridProperties.Cell(0,13) = "MaxLength":StringGridProperties.Cell(1,13) =  STR$(combobox(indicepropriet).MaxLength)
      StringGridProperties.Cell(0,14) = "Parent":StringGridProperties.Cell(1,14) =  combobox(indicepropriet).PARENT
      StringGridProperties.Cell(0,15) = "PopupMenu":StringGridProperties.Cell(1,15) =  STR$(combobox(indicepropriet).PopupMenu)
      StringGridProperties.Cell(0,16) = "ShowHint":StringGridProperties.Cell(1,16) =  combobox(indicepropriet).showhint
      StringGridProperties.Cell(0,17) = "Sorted":StringGridProperties.Cell(1,17) =  STR$(combobox(indicepropriet).Sorted)
      StringGridProperties.Cell(0,18) = "Style":StringGridProperties.Cell(1,18) =  STR$(combobox(indicepropriet).Style)
      StringGridProperties.Cell(0,19) = "TabOrder":StringGridProperties.Cell(1,19) =  STR$(combobox(indicepropriet).TabOrder)
      StringGridProperties.Cell(0,20) = "Tag":StringGridProperties.Cell(1,20) =  STR$(combobox(indicepropriet).Tag)
      StringGridProperties.Cell(0,21) = "Text":StringGridProperties.Cell(1,21) =  combobox(indicepropriet).Text
      StringGridProperties.Cell(0,22) = "Top":StringGridProperties.Cell(1,22) =  STR$(combobox(indicepropriet).top)
      StringGridProperties.Cell(0,23) = "Visible":StringGridProperties.Cell(1,23) =  STR$(combobox(indicepropriet).visible)
      StringGridProperties.Cell(0,24) = "Width":StringGridProperties.Cell(1,24) =  STR$(combobox(indicepropriet).width)
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietalistbox
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(listbox(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "BorderStyle" :StringGridProperties.Cell(1,1) =  STR$(listbox(indicepropriet).BorderStyle)
      StringGridProperties.Cell(0,2) = "Color" :StringGridProperties.Cell(1,2) =  STR$(listbox(indicepropriet).COLOR)
      StringGridProperties.Cell(0,3) = "Columns" :StringGridProperties.Cell(1,3) =  STR$(listbox(indicepropriet).Columns)
      StringGridProperties.Cell(0,4) = "CopyMode" :StringGridProperties.Cell(1,4) =  STR$(listbox(indicepropriet).CopyMode)
      StringGridProperties.Cell(0,5) = "Cursor" :StringGridProperties.Cell(1,5) =  STR$(listbox(indicepropriet).Cursor)
      StringGridProperties.Cell(0,6) = "Enabled":StringGridProperties.Cell(1,6) =  STR$(listbox(indicepropriet).enabled)
      StringGridProperties.Cell(0,7) = "ExtendedSelect":StringGridProperties.Cell(1,7) =  STR$(listbox(indicepropriet).ExtendedSelect)
      StringGridProperties.Cell(0,8) = "Font":StringGridProperties.Cell(1,8) =  listbox(indicepropriet).font
      StringGridProperties.Cell(0,9) = "Height":StringGridProperties.Cell(1,9) =  STR$(listbox(indicepropriet).height)
      StringGridProperties.Cell(0,10) = "Hint":StringGridProperties.Cell(1,10) =  listbox(indicepropriet).hint
      StringGridProperties.Cell(0,11) = "ItemCount":StringGridProperties.Cell(1,11) =  STR$(listbox(indicepropriet).ItemCount)
      StringGridProperties.Cell(0,12) = "ItemHeight":StringGridProperties.Cell(1,12) =  STR$(listbox(indicepropriet).ItemHeight)
      StringGridProperties.Cell(0,13) = "ItemIndex":StringGridProperties.Cell(1,13) =  STR$(listbox(indicepropriet).ItemIndex)
      StringGridProperties.Cell(0,14) = "Left":StringGridProperties.Cell(1,14) =  STR$(listbox(indicepropriet).left)
      StringGridProperties.Cell(0,15) = "MultiSelect":StringGridProperties.Cell(1,15) =  STR$(listbox(indicepropriet).MultiSelect)
      StringGridProperties.Cell(0,16) = "Parent":StringGridProperties.Cell(1,16) =  listbox(indicepropriet).PARENT
      StringGridProperties.Cell(0,17) = "PopupMenu":StringGridProperties.Cell(1,17) =  STR$(listbox(indicepropriet).PopupMenu)
      StringGridProperties.Cell(0,18) = "SelCount":StringGridProperties.Cell(1,18) =  STR$(listbox(indicepropriet).SelCount)
      StringGridProperties.Cell(0,19) = "ShowHint":StringGridProperties.Cell(1,19) =  listbox(indicepropriet).showhint
      StringGridProperties.Cell(0,20) = "Sorted":StringGridProperties.Cell(1,20) =  STR$(listbox(indicepropriet).Sorted)
      StringGridProperties.Cell(0,21) = "Style":StringGridProperties.Cell(1,21) =  STR$(listbox(indicepropriet).Style)
      StringGridProperties.Cell(0,22) = "TabOrder":StringGridProperties.Cell(1,22) =  STR$(listbox(indicepropriet).TabOrder)
      StringGridProperties.Cell(0,23) = "TabWidth":StringGridProperties.Cell(1,23) =  STR$(listbox(indicepropriet).TabWidth)
      StringGridProperties.Cell(0,24) = "Tag":StringGridProperties.Cell(1,24) =  STR$(listbox(indicepropriet).Tag)
      StringGridProperties.Cell(0,25) = "Text":StringGridProperties.Cell(1,25) =  listbox(indicepropriet).Text
      StringGridProperties.Cell(0,26) = "Top":StringGridProperties.Cell(1,26) =  STR$(listbox(indicepropriet).top)
      StringGridProperties.Cell(0,27) = "TopIndex":StringGridProperties.Cell(1,27) =  STR$(listbox(indicepropriet).topindex)
      StringGridProperties.Cell(0,28) = "Visible":StringGridProperties.Cell(1,28) =  STR$(listbox(indicepropriet).visible)
      StringGridProperties.Cell(0,29) = "Width":StringGridProperties.Cell(1,29) =  STR$(listbox(indicepropriet).width)
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietascrollbox
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(scrollbox(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "AutoScroll":StringGridProperties.Cell(1,1) =  STR$(scrollbox(indicepropriet).AutoScroll)
      StringGridProperties.Cell(0,2) = "BorderStyle" :StringGridProperties.Cell(1,2) =  STR$(scrollbox(indicepropriet).BorderStyle)
      StringGridProperties.Cell(0,3) = "Color" :StringGridProperties.Cell(1,3) =  STR$(scrollbox(indicepropriet).COLOR)
      StringGridProperties.Cell(0,4) = "Cursor" :StringGridProperties.Cell(1,4) =  STR$(scrollbox(indicepropriet).Cursor)
      StringGridProperties.Cell(0,5) = "Enabled":StringGridProperties.Cell(1,5) =  STR$(scrollbox(indicepropriet).enabled)
      StringGridProperties.Cell(0,6) = "Font":StringGridProperties.Cell(1,6) =  scrollbox(indicepropriet).font
      StringGridProperties.Cell(0,7) = "Handle":StringGridProperties.Cell(1,7) =  STR$(scrollbox(indicepropriet).Handle)
      StringGridProperties.Cell(0,8) = "Height":StringGridProperties.Cell(1,8) =  STR$(scrollbox(indicepropriet).height)
      StringGridProperties.Cell(0,9) = "Hint":StringGridProperties.Cell(1,9) =  scrollbox(indicepropriet).hint
      StringGridProperties.Cell(0,10) = "HorzIncrement":StringGridProperties.Cell(1,10) =  STR$(scrollbox(indicepropriet).HorzIncrement)
      StringGridProperties.Cell(0,11) = "HorzMargin":StringGridProperties.Cell(1,11) =  STR$(scrollbox(indicepropriet).HorzMargin)
      StringGridProperties.Cell(0,12) = "HorzPosition":StringGridProperties.Cell(1,12) =  STR$(scrollbox(indicepropriet).HorzPosition)
      StringGridProperties.Cell(0,13) = "HorzRange":StringGridProperties.Cell(1,13) =  STR$(scrollbox(indicepropriet).HorzRange)
      StringGridProperties.Cell(0,14) = "HorzTracking":StringGridProperties.Cell(1,14) =  STR$(scrollbox(indicepropriet).HorzTracking)
      StringGridProperties.Cell(0,15) = "HorzVisible":StringGridProperties.Cell(1,15) =  STR$(scrollbox(indicepropriet).HorzVisible)
      StringGridProperties.Cell(0,16) = "Left":StringGridProperties.Cell(1,16) =  STR$(scrollbox(indicepropriet).left)
      StringGridProperties.Cell(0,17) = "Parent":StringGridProperties.Cell(1,17) =  scrollbox(indicepropriet).PARENT
      StringGridProperties.Cell(0,18) = "PopupMenu":StringGridProperties.Cell(1,18) =  STR$(scrollbox(indicepropriet).PopupMenu)
      StringGridProperties.Cell(0,19) = "ShowHint":StringGridProperties.Cell(1,19) =  scrollbox(indicepropriet).showhint
      StringGridProperties.Cell(0,20) = "TabOrder":StringGridProperties.Cell(1,20) =  STR$(scrollbox(indicepropriet).TabOrder)
      StringGridProperties.Cell(0,21) = "Tag":StringGridProperties.Cell(1,21) =  STR$(scrollbox(indicepropriet).Tag)
      StringGridProperties.Cell(0,22) = "Top":StringGridProperties.Cell(1,22) =  STR$(scrollbox(indicepropriet).top)
      StringGridProperties.Cell(0,23) = "Width":StringGridProperties.Cell(1,23) =  STR$(scrollbox(indicepropriet).width)
      StringGridProperties.Cell(0,24) = "VertIncrement":StringGridProperties.Cell(1,24) =  STR$(scrollbox(indicepropriet).VertIncrement)
      StringGridProperties.Cell(0,25) = "VertMargin":StringGridProperties.Cell(1,25) =  STR$(scrollbox(indicepropriet).VertMargin)
      StringGridProperties.Cell(0,26) = "VertPosition":StringGridProperties.Cell(1,26) =  STR$(scrollbox(indicepropriet).VertPosition)
      StringGridProperties.Cell(0,27) = "VertRange":StringGridProperties.Cell(1,27) =  STR$(scrollbox(indicepropriet).VertRange)
      StringGridProperties.Cell(0,28) = "VertTracking":StringGridProperties.Cell(1,28) =  STR$(scrollbox(indicepropriet).VertTracking)
      StringGridProperties.Cell(0,29) = "VertVisible":StringGridProperties.Cell(1,29) =  STR$(scrollbox(indicepropriet).VertVisible)
      StringGridProperties.Cell(0,30) = "Visible":StringGridProperties.Cell(1,30) =  STR$(scrollbox(indicepropriet).visible)
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietarichedit
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(richedit(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Alignment" :StringGridProperties.Cell(1,1) =  STR$(richedit(indicepropriet).Alignment)
      StringGridProperties.Cell(0,2) = "BorderStyle"  :StringGridProperties.Cell(1,2) =  STR$(richedit(indicepropriet).borderstyle)
      StringGridProperties.Cell(0,3) = "Color":StringGridProperties.Cell(1,3) =  STR$(richedit(indicepropriet).COLOR)
      StringGridProperties.Cell(0,4) = "Enabled":StringGridProperties.Cell(1,4) =  STR$(richedit(indicepropriet).enabled)
      StringGridProperties.Cell(0,5) = "Font":StringGridProperties.Cell(1,5) =  richedit(indicepropriet).font
      StringGridProperties.Cell(0,6) = "Handle":StringGridProperties.Cell(1,6) =  STR$(richedit(indicepropriet).handle)
      StringGridProperties.Cell(0,7) = "Height":StringGridProperties.Cell(1,7) =  STR$(richedit(indicepropriet).height)
      StringGridProperties.Cell(0,8) = "HideScrollBars":StringGridProperties.Cell(1,8) =  STR$(richedit(indicepropriet).HideScrollBars)
      StringGridProperties.Cell(0,9) = "HideSelection":StringGridProperties.Cell(1,9) =  STR$(richedit(indicepropriet).HideSelection)
      StringGridProperties.Cell(0,10) = "Hint":StringGridProperties.Cell(1,10) =  richedit(indicepropriet).hint
      StringGridProperties.Cell(0,11) = "Left":StringGridProperties.Cell(1,11) =  STR$(richedit(indicepropriet).left)
      StringGridProperties.Cell(0,12) = "LineCount":StringGridProperties.Cell(1,12) =  STR$(richedit(indicepropriet).LineCount)
      StringGridProperties.Cell(0,13) = "Modified":StringGridProperties.Cell(1,13) =  STR$(richedit(indicepropriet).modified)
      StringGridProperties.Cell(0,14) = "Parent":StringGridProperties.Cell(1,14) =  richedit(indicepropriet).PARENT
      StringGridProperties.Cell(0,15) = "PopupMenu":StringGridProperties.Cell(1,15) =  STR$(richedit(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,16) = "Plaintext":StringGridProperties.Cell(1,16) =  STR$(richedit(indicepropriet).Plaintext)
      StringGridProperties.Cell(0,17) = "ReadOnly":StringGridProperties.Cell(1,17) =  STR$(richedit(indicepropriet).readonly)
      StringGridProperties.Cell(0,18) = "ScrollBars":StringGridProperties.Cell(1,18) =  STR$(richedit(indicepropriet).ScrollBars)
      StringGridProperties.Cell(0,19) = "SelAttributes":StringGridProperties.Cell(1,19) =  STR$(richedit(indicepropriet).SelAttributes)
      StringGridProperties.Cell(0,20) = "SelLength":StringGridProperties.Cell(1,20) =  STR$(richedit(indicepropriet).SelLength)
      StringGridProperties.Cell(0,21) = "SelStart":StringGridProperties.Cell(1,21) =  STR$(richedit(indicepropriet).SelStart)
      StringGridProperties.Cell(0,22) = "SelText":StringGridProperties.Cell(1,22) =  STR$(richedit(indicepropriet).seltext)
      StringGridProperties.Cell(0,23) = "ShowHint":StringGridProperties.Cell(1,23) =  richedit(indicepropriet).showhint
      StringGridProperties.Cell(0,24) = "Taborder":StringGridProperties.Cell(1,24) =  STR$(richedit(indicepropriet).taborder)
      StringGridProperties.Cell(0,25) = "Tag":StringGridProperties.Cell(1,25) =  STR$(richedit(indicepropriet).tag)
      StringGridProperties.Cell(0,26) = "Text":StringGridProperties.Cell(1,26) =  richedit(indicepropriet).text
      StringGridProperties.Cell(0,27) = "Top":StringGridProperties.Cell(1,27) =  STR$(richedit(indicepropriet).top)
      StringGridProperties.Cell(0,28) = "Visible":StringGridProperties.Cell(1,28) =  STR$(richedit(indicepropriet).visible)
      StringGridProperties.Cell(0,29) = "WantTabs":StringGridProperties.Cell(1,29) =  STR$(richedit(indicepropriet).WantTabs)
      StringGridProperties.Cell(0,30) = "Width":StringGridProperties.Cell(1,30) =  STR$(richedit(indicepropriet).width)
      StringGridProperties.Cell(0,31) = "WhereX":StringGridProperties.Cell(1,31) =  STR$(richedit(indicepropriet).WhereX)
      StringGridProperties.Cell(0,32) = "WhereY":StringGridProperties.Cell(1,32) =  STR$(richedit(indicepropriet).WhereY)
      StringGridProperties.Cell(0,33) = "Wordwrap":StringGridProperties.Cell(1,33) =  STR$(richedit(indicepropriet).Wordwrap)
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietastringgriglia
     END SUB

     SUB proprietatabcontrol
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(tabcontrol(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "ButtonStyle" :StringGridProperties.Cell(1,1) =  STR$(tabcontrol(indicepropriet).ButtonStyle)
      StringGridProperties.Cell(0,2) = "ClientHeight"  :StringGridProperties.Cell(1,2) =  STR$(tabcontrol(indicepropriet).ClientHeight)
      StringGridProperties.Cell(0,3) = "ClientWidth"  :StringGridProperties.Cell(1,3) =  STR$(tabcontrol(indicepropriet).ClientWidth)
      StringGridProperties.Cell(0,4) = "Color":StringGridProperties.Cell(1,4) =  STR$(tabcontrol(indicepropriet).COLOR)
      StringGridProperties.Cell(0,5) = "Cursor":StringGridProperties.Cell(1,5) =  STR$(tabcontrol(indicepropriet).Cursor)
      StringGridProperties.Cell(0,6) = "Enabled":StringGridProperties.Cell(1,6) =  STR$(tabcontrol(indicepropriet).enabled)
      StringGridProperties.Cell(0,7) = "FlatButtons":StringGridProperties.Cell(1,7) =  STR$(tabcontrol(indicepropriet).FlatButtons)
      StringGridProperties.Cell(0,8) = "FlatSeperators":StringGridProperties.Cell(1,8) =  STR$(tabcontrol(indicepropriet).FlatSeperators)
      StringGridProperties.Cell(0,9) = "FocusButtons":StringGridProperties.Cell(1,9) =  STR$(tabcontrol(indicepropriet).FocusButtons)
      StringGridProperties.Cell(0,10) = "Font":StringGridProperties.Cell(1,10) =  tabcontrol(indicepropriet).font
      StringGridProperties.Cell(0,11) = "Height":StringGridProperties.Cell(1,11) =  STR$(tabcontrol(indicepropriet).height)
      StringGridProperties.Cell(0,12) = "Hint":StringGridProperties.Cell(1,12) =  tabcontrol(indicepropriet).hint
      StringGridProperties.Cell(0,13) = "HotTrack":StringGridProperties.Cell(1,13) =  STR$(tabcontrol(indicepropriet).HotTrack)
      StringGridProperties.Cell(0,14) = "Left":StringGridProperties.Cell(1,14) =  STR$(tabcontrol(indicepropriet).left)
      StringGridProperties.Cell(0,15) = "MultiLine":StringGridProperties.Cell(1,15) =  STR$(tabcontrol(indicepropriet).MultiLine)
      StringGridProperties.Cell(0,16) = "Parent":StringGridProperties.Cell(1,16) =  tabcontrol(indicepropriet).PARENT
      StringGridProperties.Cell(0,17) = "PopupMenu":StringGridProperties.Cell(1,17) =  STR$(tabcontrol(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,18) = "ScrollOpposite":StringGridProperties.Cell(1,18) =  STR$(tabcontrol(indicepropriet).ScrollOpposite)
      StringGridProperties.Cell(0,19) = "ShowHint":StringGridProperties.Cell(1,19) =  tabcontrol(indicepropriet).showhint
      StringGridProperties.Cell(0,20) = "TabHeight":StringGridProperties.Cell(1,20) =  STR$(tabcontrol(indicepropriet).TabHeight)
      StringGridProperties.Cell(0,21) = "TabInactiveColor":StringGridProperties.Cell(1,21) =  STR$(tabcontrol(indicepropriet).TabInactiveColor)
      StringGridProperties.Cell(0,22) = "TabInactiveFont":StringGridProperties.Cell(1,22) =  tabcontrol(indicepropriet).TabInactiveFont
      StringGridProperties.Cell(0,23) = "TabIndex":StringGridProperties.Cell(1,23) =  STR$(tabcontrol(indicepropriet).TabIndex)
      StringGridProperties.Cell(0,24) = "Taborder":StringGridProperties.Cell(1,24) =  STR$(tabcontrol(indicepropriet).taborder)
      StringGridProperties.Cell(0,25) = "TabPosition":StringGridProperties.Cell(1,25) =  STR$(tabcontrol(indicepropriet).TabPosition)
      StringGridProperties.Cell(0,26) = "TabWidth":StringGridProperties.Cell(1,26) =  STR$(tabcontrol(indicepropriet).TabWidth)
      StringGridProperties.Cell(0,27) = "Tag":StringGridProperties.Cell(1,27) =  STR$(tabcontrol(indicepropriet).tag)
      StringGridProperties.Cell(0,28) = "Top":StringGridProperties.Cell(1,28) =  STR$(tabcontrol(indicepropriet).top)
      StringGridProperties.Cell(0,29) = "Visible":StringGridProperties.Cell(1,29) =  STR$(tabcontrol(indicepropriet).visible)
      StringGridProperties.Cell(0,30) = "VerticalTabs":StringGridProperties.Cell(1,30) =  STR$(tabcontrol(indicepropriet).VerticalTabs)
      StringGridProperties.Cell(0,31) = "Width":StringGridProperties.Cell(1,31) =  STR$(tabcontrol(indicepropriet).width)
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietastatusbar
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(statusbar(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Cursor":StringGridProperties.Cell(1,1) =  STR$(statusbar(indicepropriet).Cursor)
      StringGridProperties.Cell(0,2) = "Enabled":StringGridProperties.Cell(1,2) =  STR$(statusbar(indicepropriet).enabled)
      StringGridProperties.Cell(0,3) = "Handle":StringGridProperties.Cell(1,3) =  STR$(statusbar(indicepropriet).Handle)
      StringGridProperties.Cell(0,4) = "Height":StringGridProperties.Cell(1,4) =  STR$(statusbar(indicepropriet).height)
      StringGridProperties.Cell(0,5) = "Hint":StringGridProperties.Cell(1,5) =  statusbar(indicepropriet).hint
      StringGridProperties.Cell(0,6) = "Left":StringGridProperties.Cell(1,6) =  STR$(statusbar(indicepropriet).left)
      StringGridProperties.Cell(0,7) = "Parent":StringGridProperties.Cell(1,7) =  statusbar(indicepropriet).PARENT
      StringGridProperties.Cell(0,8) = "PopupMenu":StringGridProperties.Cell(1,8) =  STR$(statusbar(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,9) = "ShowHint":StringGridProperties.Cell(1,9) =  statusbar(indicepropriet).showhint
      StringGridProperties.Cell(0,10) = "SimplePanel":StringGridProperties.Cell(1,10) =  STR$(statusbar(indicepropriet).SimplePanel)
      StringGridProperties.Cell(0,11) = "SimpleText":StringGridProperties.Cell(1,11) =  statusbar(indicepropriet).SimpleText
      StringGridProperties.Cell(0,12) = "SizeGrip":StringGridProperties.Cell(1,12) =  STR$(statusbar(indicepropriet).SizeGrip)
      StringGridProperties.Cell(0,13) = "Taborder":StringGridProperties.Cell(1,13) =  STR$(statusbar(indicepropriet).taborder)
      StringGridProperties.Cell(0,14) = "Top":StringGridProperties.Cell(1,14) =  STR$(statusbar(indicepropriet).top)
      StringGridProperties.Cell(0,15) = "Visible":StringGridProperties.Cell(1,15) =  STR$(statusbar(indicepropriet).visible)
      StringGridProperties.Cell(0,16) = "Width":StringGridProperties.Cell(1,16) =  STR$(statusbar(indicepropriet).width)
      StringGridProperties.Cell(0,17) = "":StringGridProperties.Cell(1,17) =  ""
      StringGridProperties.Cell(0,18) = "":StringGridProperties.Cell(1,18) =  ""
      StringGridProperties.Cell(0,19) = "":StringGridProperties.Cell(1,19) =  ""
      StringGridProperties.Cell(0,20) = "":StringGridProperties.Cell(1,20) =  ""
      StringGridProperties.Cell(0,21) = "":StringGridProperties.Cell(1,21) =  ""
      StringGridProperties.Cell(0,22) = "":StringGridProperties.Cell(1,22) =  ""
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietascrollbar
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(scrollbar(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Cursor":StringGridProperties.Cell(1,1) =  STR$(scrollbar(indicepropriet).Cursor)
      StringGridProperties.Cell(0,2) = "Enabled":StringGridProperties.Cell(1,2) =  STR$(scrollbar(indicepropriet).enabled)
      StringGridProperties.Cell(0,3) = "Handle":StringGridProperties.Cell(1,3) =  STR$(scrollbar(indicepropriet).Handle)
      StringGridProperties.Cell(0,4) = "Height":StringGridProperties.Cell(1,4) =  STR$(scrollbar(indicepropriet).height)
      StringGridProperties.Cell(0,5) = "Hint":StringGridProperties.Cell(1,5) =  scrollbar(indicepropriet).hint
      StringGridProperties.Cell(0,6) = "Kind":StringGridProperties.Cell(1,6) =  STR$(scrollbar(indicepropriet).Kind)
      StringGridProperties.Cell(0,7) = "LargeChange":StringGridProperties.Cell(1,7) =  STR$(scrollbar(indicepropriet).LargeChange)
      StringGridProperties.Cell(0,8) = "Left":StringGridProperties.Cell(1,8) =  STR$(scrollbar(indicepropriet).left)
      StringGridProperties.Cell(0,9) = "Max":StringGridProperties.Cell(1,9) =  STR$(scrollbar(indicepropriet).Max)
      StringGridProperties.Cell(0,10) = "Min":StringGridProperties.Cell(1,10) =  STR$(scrollbar(indicepropriet).Min)
      StringGridProperties.Cell(0,11) = "PageSize":StringGridProperties.Cell(1,11) =  STR$(scrollbar(indicepropriet).PageSize)
      StringGridProperties.Cell(0,12) = "Parent":StringGridProperties.Cell(1,12) =  scrollbar(indicepropriet).PARENT
      StringGridProperties.Cell(0,13) = "PopupMenu":StringGridProperties.Cell(1,13) =  STR$(scrollbar(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,14) = "Position":StringGridProperties.Cell(1,14) =  STR$(scrollbar(indicepropriet).Position)
      StringGridProperties.Cell(0,15) = "ShowHint":StringGridProperties.Cell(1,15) =  scrollbar(indicepropriet).showhint
      StringGridProperties.Cell(0,16) = "SmallChange":StringGridProperties.Cell(1,16) =  STR$(scrollbar(indicepropriet).SmallChange)
      StringGridProperties.Cell(0,17) = "Taborder":StringGridProperties.Cell(1,17) =  STR$(scrollbar(indicepropriet).taborder)
      StringGridProperties.Cell(0,18) = "Tag":StringGridProperties.Cell(1,18) =  STR$(scrollbar(indicepropriet).tag)
      StringGridProperties.Cell(0,19) = "Top":StringGridProperties.Cell(1,19) =  STR$(scrollbar(indicepropriet).top)
      StringGridProperties.Cell(0,20) = "Visible":StringGridProperties.Cell(1,20) =  STR$(scrollbar(indicepropriet).visible)
      StringGridProperties.Cell(0,21) = "Width":StringGridProperties.Cell(1,21) =  STR$(scrollbar(indicepropriet).width)
      StringGridProperties.Cell(0,22) = "":StringGridProperties.Cell(1,22) =  ""
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietatrackbar
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(trackbar(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Cursor":StringGridProperties.Cell(1,1) =  STR$(trackbar(indicepropriet).Cursor)
      StringGridProperties.Cell(0,2) = "Enabled":StringGridProperties.Cell(1,2) =  STR$(trackbar(indicepropriet).enabled)
      StringGridProperties.Cell(0,3) = "Frequency":StringGridProperties.Cell(1,3) =  STR$(trackbar(indicepropriet).Frequency)
      StringGridProperties.Cell(0,4) = "Handle":StringGridProperties.Cell(1,4) =  STR$(trackbar(indicepropriet).Handle)
      StringGridProperties.Cell(0,5) = "Height":StringGridProperties.Cell(1,5) =  STR$(trackbar(indicepropriet).height)
      StringGridProperties.Cell(0,6) = "Hint":StringGridProperties.Cell(1,6) =  trackbar(indicepropriet).hint
      StringGridProperties.Cell(0,7) = "Left":StringGridProperties.Cell(1,7) =  STR$(trackbar(indicepropriet).left)
      StringGridProperties.Cell(0,8) = "LineSize":StringGridProperties.Cell(1,8) =  STR$(trackbar(indicepropriet).LineSize)
      StringGridProperties.Cell(0,9) = "Max":StringGridProperties.Cell(1,9) =  STR$(trackbar(indicepropriet).Max)
      StringGridProperties.Cell(0,10) = "Min":StringGridProperties.Cell(1,10) =  STR$(trackbar(indicepropriet).Min)
      StringGridProperties.Cell(0,11) = "Orientation":StringGridProperties.Cell(1,11) =  STR$(trackbar(indicepropriet).Orientation)
      StringGridProperties.Cell(0,12) = "PageSize":StringGridProperties.Cell(1,12) =  STR$(trackbar(indicepropriet).PageSize)
      StringGridProperties.Cell(0,13) = "Parent":StringGridProperties.Cell(1,13) =  trackbar(indicepropriet).PARENT
      StringGridProperties.Cell(0,14) = "PopupMenu":StringGridProperties.Cell(1,14) =  STR$(trackbar(indicepropriet).popupmenu)
      StringGridProperties.Cell(0,15) = "Position":StringGridProperties.Cell(1,15) =  STR$(trackbar(indicepropriet).Position)
      StringGridProperties.Cell(0,16) = "SelEnd":StringGridProperties.Cell(1,16) =  STR$(trackbar(indicepropriet).SelEnd)
      StringGridProperties.Cell(0,17) = "SelStart":StringGridProperties.Cell(1,17) =  STR$(trackbar(indicepropriet).SelStart)
      StringGridProperties.Cell(0,18) = "ShowHint":StringGridProperties.Cell(1,18) =  trackbar(indicepropriet).showhint
      StringGridProperties.Cell(0,19) = "Taborder":StringGridProperties.Cell(1,19) =  STR$(trackbar(indicepropriet).taborder)
      StringGridProperties.Cell(0,20) = "TickMarks":StringGridProperties.Cell(1,20) =  STR$(trackbar(indicepropriet).TickMarks)
      StringGridProperties.Cell(0,21) = "TickStyle":StringGridProperties.Cell(1,21) =  STR$(trackbar(indicepropriet).TickStyle)
      StringGridProperties.Cell(0,22) = "Top":StringGridProperties.Cell(1,22) =  STR$(trackbar(indicepropriet).top)
      StringGridProperties.Cell(0,23) = "Visible":StringGridProperties.Cell(1,23) =  STR$(trackbar(indicepropriet).visible)
      StringGridProperties.Cell(0,24) = "Width":StringGridProperties.Cell(1,24) =  STR$(trackbar(indicepropriet).width)
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietafilelistbox
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(filelistbox(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Color" :StringGridProperties.Cell(1,1) =  STR$(filelistbox(indicepropriet).COLOR)
      StringGridProperties.Cell(0,2) = "Cursor" :StringGridProperties.Cell(1,2) =  STR$(filelistbox(indicepropriet).Cursor)
      StringGridProperties.Cell(0,3) = "Directory" :StringGridProperties.Cell(1,3) =  filelistbox(indicepropriet).Directory
      StringGridProperties.Cell(0,4) = "Drive" :StringGridProperties.Cell(1,4) =  filelistbox(indicepropriet).Drive
      StringGridProperties.Cell(0,5) = "Enabled":StringGridProperties.Cell(1,5) =  STR$(filelistbox(indicepropriet).enabled)
      StringGridProperties.Cell(0,6) = "ExtendedSelect":StringGridProperties.Cell(1,6) =  STR$(filelistbox(indicepropriet).ExtendedSelect)
      StringGridProperties.Cell(0,7) = "Filename":StringGridProperties.Cell(1,7) =  filelistbox(indicepropriet).Filename
      StringGridProperties.Cell(0,8) = "Font":StringGridProperties.Cell(1,8) =  filelistbox(indicepropriet).font
      StringGridProperties.Cell(0,9) = "Height":StringGridProperties.Cell(1,9) =  STR$(filelistbox(indicepropriet).height)
      StringGridProperties.Cell(0,10) = "Hint":StringGridProperties.Cell(1,10) =  filelistbox(indicepropriet).hint
      StringGridProperties.Cell(0,11) = "ItemCount":StringGridProperties.Cell(1,11) =  STR$(filelistbox(indicepropriet).ItemCount)
      StringGridProperties.Cell(0,12) = "ItemHeight":StringGridProperties.Cell(1,12) =  STR$(filelistbox(indicepropriet).ItemHeight)
      StringGridProperties.Cell(0,13) = "ItemIndex":StringGridProperties.Cell(1,13) =  STR$(filelistbox(indicepropriet).ItemIndex)
      StringGridProperties.Cell(0,14) = "Left":StringGridProperties.Cell(1,14) =  STR$(filelistbox(indicepropriet).left)
      StringGridProperties.Cell(0,15) = "Mask":StringGridProperties.Cell(1,15) =  STR$(filelistbox(indicepropriet).Mask)
      StringGridProperties.Cell(0,16) = "MultiSelect":StringGridProperties.Cell(1,16) =  STR$(filelistbox(indicepropriet).MultiSelect)
      StringGridProperties.Cell(0,17) = "Parent":StringGridProperties.Cell(1,17) =  filelistbox(indicepropriet).PARENT
      StringGridProperties.Cell(0,18) = "PopupMenu":StringGridProperties.Cell(1,18) =  STR$(filelistbox(indicepropriet).PopupMenu)
      StringGridProperties.Cell(0,19) = "SelCount":StringGridProperties.Cell(1,19) =  STR$(filelistbox(indicepropriet).SelCount)
      StringGridProperties.Cell(0,20) = "ShowHint":StringGridProperties.Cell(1,20) =  STR$(filelistbox(indicepropriet).showhint)
      StringGridProperties.Cell(0,21) = "ShowIcons":StringGridProperties.Cell(1,21) =  STR$(filelistbox(indicepropriet).ShowIcons)
      StringGridProperties.Cell(0,22) = "TabOrder":StringGridProperties.Cell(1,22) =  STR$(filelistbox(indicepropriet).TabOrder)
      StringGridProperties.Cell(0,23) = "Tag":StringGridProperties.Cell(1,23) =  STR$(filelistbox(indicepropriet).Tag)
      StringGridProperties.Cell(0,24) = "Top":StringGridProperties.Cell(1,24) =  STR$(filelistbox(indicepropriet).top)
      StringGridProperties.Cell(0,25) = "TopIndex":StringGridProperties.Cell(1,25) =  STR$(filelistbox(indicepropriet).topindex)
      StringGridProperties.Cell(0,26) = "Visible":StringGridProperties.Cell(1,26) =  STR$(filelistbox(indicepropriet).visible)
      StringGridProperties.Cell(0,27) = "Width":StringGridProperties.Cell(1,27) =  STR$(filelistbox(indicepropriet).width)
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietagroupbox
      StringGridProperties.Cell(0,0) = "Align":StringGridProperties.Cell(1,0) =  STR$(groupbox(indicepropriet).align)
      StringGridProperties.Cell(0,1) = "Caption" :StringGridProperties.Cell(1,1) =  STR$(groupbox(indicepropriet).CAPTION)
      StringGridProperties.Cell(0,2) = "Color" :StringGridProperties.Cell(1,2) =  STR$(groupbox(indicepropriet).COLOR)
      StringGridProperties.Cell(0,3) = "Cursor" :StringGridProperties.Cell(1,3) =  STR$(groupbox(indicepropriet).Cursor)
      StringGridProperties.Cell(0,4) = "Enabled":StringGridProperties.Cell(1,4) =  STR$(groupbox(indicepropriet).enabled)
      StringGridProperties.Cell(0,5) = "Font":StringGridProperties.Cell(1,5) =  groupbox(indicepropriet).font
      StringGridProperties.Cell(0,6) = "Handle":StringGridProperties.Cell(1,6) =  STR$(groupbox(indicepropriet).Handle)
      StringGridProperties.Cell(0,7) = "Height":StringGridProperties.Cell(1,7) =  STR$(groupbox(indicepropriet).height)
      StringGridProperties.Cell(0,8) = "Hint":StringGridProperties.Cell(1,8) =  groupbox(indicepropriet).hint
      StringGridProperties.Cell(0,9) = "Left":StringGridProperties.Cell(1,9) =  STR$(groupbox(indicepropriet).left)
      StringGridProperties.Cell(0,10) = "Parent":StringGridProperties.Cell(1,10) =  groupbox(indicepropriet).PARENT
      StringGridProperties.Cell(0,11) = "PopupMenu":StringGridProperties.Cell(1,11) =  STR$(groupbox(indicepropriet).PopupMenu)
      StringGridProperties.Cell(0,12) = "ShowHint":StringGridProperties.Cell(1,12) =  groupbox(indicepropriet).showhint
      StringGridProperties.Cell(0,13) = "TabOrder":StringGridProperties.Cell(1,13) =  STR$(groupbox(indicepropriet).TabOrder)
      StringGridProperties.Cell(0,14) = "Tag":StringGridProperties.Cell(1,14) =  STR$(groupbox(indicepropriet).Tag)
      StringGridProperties.Cell(0,15) = "Top":StringGridProperties.Cell(1,15) =  STR$(groupbox(indicepropriet).top)
      StringGridProperties.Cell(0,16) = "Visible":StringGridProperties.Cell(1,16) =  STR$(groupbox(indicepropriet).visible)
      StringGridProperties.Cell(0,17) = "Width":StringGridProperties.Cell(1,17) =  STR$(groupbox(indicepropriet).width)
      StringGridProperties.Cell(0,18) = "":StringGridProperties.Cell(1,18) =  ""
      StringGridProperties.Cell(0,19) = "":StringGridProperties.Cell(1,19) =  ""
      StringGridProperties.Cell(0,20) = "":StringGridProperties.Cell(1,20) =  ""
      StringGridProperties.Cell(0,21) = "":StringGridProperties.Cell(1,21) =  ""
      StringGridProperties.Cell(0,22) = "":StringGridProperties.Cell(1,22) =  ""
      StringGridProperties.Cell(0,23) = "":StringGridProperties.Cell(1,23) =  ""
      StringGridProperties.Cell(0,24) = "":StringGridProperties.Cell(1,24) =  ""
      StringGridProperties.Cell(0,25) = "":StringGridProperties.Cell(1,25) =  ""
      StringGridProperties.Cell(0,26) = "":StringGridProperties.Cell(1,26) =  ""
      StringGridProperties.Cell(0,27) = "":StringGridProperties.Cell(1,27) =  ""
      StringGridProperties.Cell(0,28) = "":StringGridProperties.Cell(1,28) =  ""
      StringGridProperties.Cell(0,29) = "":StringGridProperties.Cell(1,29) =  ""
      StringGridProperties.Cell(0,30) = "":StringGridProperties.Cell(1,30) =  ""
      StringGridProperties.Cell(0,31) = "":StringGridProperties.Cell(1,31) =  ""
      StringGridProperties.Cell(0,32) = "":StringGridProperties.Cell(1,32) =  ""
      StringGridProperties.Cell(0,33) = "":StringGridProperties.Cell(1,33) =  ""
      StringGridProperties.Cell(0,34) = "":StringGridProperties.Cell(1,34) =  ""
     END SUB

     SUB proprietagrigliatoform (Key AS BYTE)
      SELECT CASE tipooggetto
      CASE "Label"
'ShowMessage "altezza " + StringGridProperties.Cell(1,10) + " indice:" + str$(indicepropriet)
       label(indicepropriet).height=VAL(StringGridProperties.Cell(1,10))
       label(indicepropriet).left=VAL(StringGridProperties.Cell(1,14))
       label(indicepropriet).top=VAL(StringGridProperties.Cell(1,20))
       label(indicepropriet).visible=VAL(StringGridProperties.Cell(1,23))
       label(indicepropriet).width=VAL(StringGridProperties.Cell(1,24))
       label(indicepropriet).align=VAL(StringGridProperties.Cell(1,0))
       label(indicepropriet).alignment =VAL(StringGridProperties.Cell(1,1))
       label(indicepropriet).angle=VAL(StringGridProperties.Cell(1,2))
       label(indicepropriet).autosize=VAL(StringGridProperties.Cell(1,3))
       label(indicepropriet).CAPTION =VAL(StringGridProperties.Cell(1,4))
       label(indicepropriet).COLOR =VAL(StringGridProperties.Cell(1,5))
       label(indicepropriet).cursor=VAL(StringGridProperties.Cell(1,6))
       label(indicepropriet).enabled=VAL(StringGridProperties.Cell(1,7))
'label(indicepropriet).font =VAL(StringGridProperties.Cell(1,8))----->qui vuole qfont
       label(indicepropriet).hint =VAL(StringGridProperties.Cell(1,11))
       label(indicepropriet).labelstyle =VAL(StringGridProperties.Cell(1,12))
       label(indicepropriet).layout =VAL(StringGridProperties.Cell(1,13))
       label(indicepropriet).lowercolor=VAL(StringGridProperties.Cell(1,15))
'label(indicepropriet).popupmenu =VAL(StringGridProperties.Cell(1,17))------>qui vuole qpopupmenu
       label(indicepropriet).showhint=VAL(StringGridProperties.Cell(1,18))
       label(indicepropriet).tag=VAL(StringGridProperties.Cell(1,19))
       label(indicepropriet).transparent=VAL(StringGridProperties.Cell(1,21))
       label(indicepropriet).uppercolor=VAL(StringGridProperties.Cell(1,22))
       label(indicepropriet).wordwrap=VAL(StringGridProperties.Cell(1,25))

      CASE "Edit"
       edit(indicepropriet).height=VAL(StringGridProperties.Cell(1,10))
       edit(indicepropriet).left=VAL(StringGridProperties.Cell(1,14))
       edit(indicepropriet).top=VAL(StringGridProperties.Cell(1,20))
       edit(indicepropriet).visible=VAL(StringGridProperties.Cell(1,23))
       edit(indicepropriet).width=VAL(StringGridProperties.Cell(1,24))
      CASE "Button"
       button(indicepropriet).height=VAL(StringGridProperties.Cell(1,10))
       button(indicepropriet).left=VAL(StringGridProperties.Cell(1,14))
       button(indicepropriet).top=VAL(StringGridProperties.Cell(1,20))
       button(indicepropriet).visible=VAL(StringGridProperties.Cell(1,23))
       button(indicepropriet).width=VAL(StringGridProperties.Cell(1,24))

      CASE "Coolbtn"

      CASE "Ovalbtn"

      CASE "Image"

      CASE "Canvas"

      CASE "Gauge"

      CASE "Checkbox"

      CASE "Radiobutton"

      CASE "Combobox"

      CASE "Listbox"

      CASE "Scrollbox"

      CASE "Richedit"

      CASE "Stringgriglia"

      CASE "Tabcontrol"
       tabcontrol(indicepropriet).height=VAL(StringGridProperties.Cell(1,10))
       tabcontrol(indicepropriet).left=VAL(StringGridProperties.Cell(1,14))
       tabcontrol(indicepropriet).top=VAL(StringGridProperties.Cell(1,20))
       tabcontrol(indicepropriet).visible=VAL(StringGridProperties.Cell(1,23))
       tabcontrol(indicepropriet).width=VAL(StringGridProperties.Cell(1,24))

      CASE "Statusbar"

      CASE "Scrollbar"

      CASE "Trackbar"

      CASE "Filelistbox"

      CASE "Groupbox"
       groupbox(indicepropriet).height=VAL(StringGridProperties.Cell(1,10))
       groupbox(indicepropriet).left=VAL(StringGridProperties.Cell(1,14))
       groupbox(indicepropriet).top=VAL(StringGridProperties.Cell(1,20))
       groupbox(indicepropriet).visible=VAL(StringGridProperties.Cell(1,23))
       groupbox(indicepropriet).width=VAL(StringGridProperties.Cell(1,24))

      CASE "Stringlist"'

      END SELECT
'_________________________________________________________
      selezionaitemoggetto
     END SUB
'_________________________________________________________