2003-06-11 14:00

'
'
'     ZECREATOR DATAS BANK EDITIOR
'
'          (c) Zecreator 2003
'     contact: zecreator@yahoo.fr
'

     $APPTYPE GUI
     $INCLUDE "rapidq.inc"
'Include file to the Datas Bank File Engine
     $INCLUDE "ZecBank.inc"
     $OPTION ICON "icon.ico"

' Objects Definitions
     DIM Form1 AS QFORM
     DIM Menu AS QMAINMENU
     DIM Menu1 AS QMENUITEM
     DIM Menu11 AS QMENUITEM
     DIM Menu12 AS QMENUITEM
     DIM Menu13 AS QMENUITEM
     DIM Menu14 AS QMENUITEM
     DIM Menu2 AS QMENUITEM
     DIM Menu21 AS QMENUITEM
     DIM Menu22 AS QMENUITEM
     DIM Menu23 AS QMENUITEM
     DIM Menu24 AS QMENUITEM
     DIM Menu25 AS QMENUITEM
     DIM Menu26 AS QMENUITEM
     DIM Menu15 AS QMENUITEM
     DIM Menu28 AS QMENUITEM

     DIM List AS QLISTBOX
     DIM Fonte AS QFONT
     DIM stat AS QSTATUSBAR
     DIM fopen AS QOPENDIALOG
     DIM fsave AS QSAVEDIALOG

     DIM AddBloc AS QFORM
     DIM AddBloc_Index AS QLABEL
     DIM AddBloc_NameLabel AS QLABEL
     DIM AddBloc_NameText AS QEDIT
     DIM AddBloc_ValueLabel AS QLABEL
     DIM AddBloc_ValueText AS QRICHEDIT
     DIM AddBloc_Cancel AS QBUTTON
     DIM AddBloc_OK AS QBUTTON

     DIM AddBlocFromFile AS QFORM
     DIM AddBlocFromFile_Index AS QLABEL
     DIM AddBlocFromFile_NameLabel AS QLABEL
     DIM AddBlocFromFile_NameText AS QEDIT
     DIM AddBlocFromFile_ValueLabel AS QLABEL
     DIM AddBlocFromFile_ValueText AS QEDIT
     DIM AddBlocFromFile_Cancel AS QBUTTON
     DIM AddBlocFromFile_OK AS QBUTTON
     DIM AddBlocFromFile_Browser AS QBUTTON

     Fonte.size=10
     Fonte.Name="Courier new"

'Call the Include file then generals procs
     $INCLUDE "proc.inc"

     Form1.center
     Form1.CAPTION="Zecreator Datas Bank Editor"
     Form1.width=400
     Form1.height=300
     Form1.borderstyle=1
     Form1.DelBorderIcons=2

     AddBloc.center
     AddBloc.width=320
     AddBloc.height=190
     AddBloc.CAPTION="Add a datas bloc"
     AddBloc.Borderstyle=1
     AddBloc.DelBorderIcons=2

     AddBloc_Index.PARENT=AddBloc
     WITH AddBloc_Index
      .CAPTION=""
      .left=8
      .top=8
      .visible=false
     END WITH

     AddBloc_NameLabel.PARENT=AddBloc
     WITH AddBloc_NameLabel
      .CAPTION="Name of bloc (20 caracters maxi.)"
      .left=8
      .top=8
     END WITH

     AddBloc_NameText.PARENT=AddBloc
     WITH AddBloc_NameText
      .text=""
      .MaxLength=20
      .top=23
      .left=8
      .width=300
     END WITH

     AddBloc_ValueLabel.PARENT=AddBloc
     WITH AddBloc_ValueLabel
      .CAPTION="datas of blocs (65535 caract. maxi.)"
      .top=48
      .left=8
     END WITH

     AddBloc_ValueText.PARENT=AddBloc
     WITH AddBloc_ValueText
      .text=""
      .height=64
      .top=64
      .left=8
      .width=300
     END WITH

     AddBloc_Cancel.PARENT=AddBloc
     WITH AddBloc_Cancel
      .CAPTION="Annuler"
      .left=8
      .top=132
      .onClick=AddBloc_Cancel_OnClick
     END WITH

     AddBloc_OK.PARENT=AddBloc
     WITH AddBloc_OK
      .CAPTION="OK"
      .left=88
      .top=132
      .onClick=AddBloc_OK_OnClick
     END WITH

     AddBlocFromFile.center
     AddBlocFromFile.width=320
     AddBlocFromFile.height=160
     AddBlocFromFile.CAPTION="Add a bloc from a file"
     AddBlocFromFile.Borderstyle=1
     AddBlocFromFile.DelBorderIcons=2

     AddBlocFromFile_Index.PARENT=AddBloc
     WITH AddBlocFromFile_Index
      .CAPTION=""
      .left=8
      .top=8
      .visible=false
     END WITH

     AddBlocFromFile_NameLabel.PARENT=AddBlocFromFile
     WITH AddBlocFromFile_NameLabel
      .CAPTION="Name of bloc (20 caracters maxi.)"
      .left=8
      .top=8
     END WITH

     AddBlocFromFile_NameText.PARENT=AddBlocFromFile
     WITH AddBlocFromFile_NameText
      .text=""
      .MaxLength=20
      .top=23
      .left=8
      .width=300
     END WITH

     AddBlocFromFile_ValueLabel.PARENT=AddBlocFromFile
     WITH AddBlocFromFile_ValueLabel
      .CAPTION="File"
      .top=48
      .left=8
     END WITH

     AddBlocFromFile_ValueText.PARENT=AddBlocFromFile
     WITH AddBlocFromFile_ValueText
      .text=""
      .height=64
      .top=64
      .left=8
      .width=232
      .enabled=false
     END WITH

     AddBlocFromFile_Browser.PARENT=AddBlocFromFile
     WITH AddBlocFromFile_Browser
      .CAPTION="Browser"
      .left=244
      .width=64
      .top=62
      .onClick=AddBlocFromFile_Browser_OnClick
     END WITH

     AddBlocFromFile_Cancel.PARENT=AddBlocFromFile
     WITH AddBlocFromFile_Cancel
      .CAPTION="Cancel"
      .left=8
      .top=100
      .onClick=AddBlocFromFile_Cancel_OnClick
     END WITH

     AddBlocFromFile_OK.PARENT=AddBlocFromFile
     WITH AddBlocFromFile_OK
      .CAPTION="OK"
      .left=88
      .top=100
      .onClick=AddBlocFromFile_OK_OnClick
     END WITH

     stat.PARENT=Form1
     stat.clear
     stat.sizegrip=false
     stat.AddPanels "No bank loaded"

     Menu.PARENT=Form1
     Menu1.CAPTION="Bank"
     Menu11.CAPTION="New bank"
     Menu11.OnClick=Menu11_Click
     Menu12.CAPTION="Open a Bank"
     Menu12.onClick=Menu12_Click
     Menu13.CAPTION="Save Bank as..."
     Menu13.onClick=Menu13_Click
     Menu13.Enabled=false
     Menu15.CAPTION="Compress Bank as..."
     Menu15.onClick=Menu15_Click
     menu15.enabled=false
     Menu14.CAPTION="Quit Editor"
     Menu14.onClick=Menu14_Click
     Menu2.CAPTION="Blocs"
     Menu2.Enabled=false
     Menu21.CAPTION="Add a bloc"
     Menu21.onClick=Menu21_Click
     Menu22.CAPTION="Add a bloc from file..."
     Menu22.onClick=Menu22_Click
     Menu23.CAPTION="Modify bloc"
     Menu23.onClick=Menu23_Click
     Menu24.CAPTION="Modify bloc from file..."
     Menu24.onClick=Menu24_Click
     Menu25.CAPTION="Rename bloc"
     Menu25.onClick=Menu25_Click
     Menu26.CAPTION="Delete bloc"
     Menu26.onClick=Menu26_Click
     Menu28.CAPTION="Extract datas of bloc in the file..."
     Menu28.onClick=Menu28_Click

     Menu2.AddItems Menu21,Menu22,Menu23,Menu24,Menu25,Menu26,Menu28
     Menu1.AddItems Menu11,Menu12,Menu13,Menu15,Menu14
     Menu.Additems Menu1,Menu2

     List.PARENT=Form1
     List.Align=alclient
     List.font=fonte
     List.sorted=true
     Form1.SHOWMODAL

2003-06-11 14:00