Aggiunto programma di generazione .ini per TFiletext

git-svn-id: svn://10.65.10.50/trunk@6019 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba1800.h

@@ -0,0 +1,17 @@
+#define F_FIELD      101
+#define F_DESCR      102
+
+#define F_FILE       201
+#define F_INI        202
+#define F_FIXEDLEN   203
+#define F_RECSEP     204
+#define F_RECLEN     205
+#define F_SKIPLINES  206
+#define F_FIELDSEP   207
+#define F_DISPLINES  208
+#define F_ISAM       209
+#define F_ZAP        210
+#define F_SAVE       250
+#define F_IMPORT     251
+#define F_COLUMNIZER 300
+#define F_FIELDS     301

ba/ba1800a.uml

@@ -0,0 +1,134 @@
+#include "ba1800.h"
+
+TOOLBAR "" 0 20 0 3
+
+BUTTON F_SAVE 10 2
+BEGIN
+  PROMPT -13 -11 "~Registra"
+  PICTURE BMP_SAVEREC
+  PICTURE BMP_SAVERECDN
+END
+
+BUTTON F_IMPORT 10 2
+BEGIN
+  PROMPT -23 -11 "~Importa"
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN          
+  PROMPT -33 -11 ""
+END
+
+ENDPAGE
+
+PAGE "Importazione" -1 -1 78 23
+
+STRING F_FILE 50
+BEGIN
+  PROMPT 1 1 "File da importare      "
+  FLAGS "B"
+END
+
+STRING F_INI 50
+BEGIN
+  PROMPT 1 2 "File di configurazione " 
+  FLAGS "B"
+END
+
+BOOLEAN F_FIXEDLEN
+BEGIN
+  PROMPT 1 3 "Record a lunghezza fissa"
+  MESSAGE FALSE HIDE,F_RECLEN|SHOW,F_RECSEP
+  MESSAGE TRUE SHOW,F_RECLEN|HIDE,F_RECSEP
+END
+
+STRING F_RECSEP 4
+BEGIN
+  PROMPT 45 3 "Separatore di record     "
+END
+
+NUMBER F_RECLEN 6
+BEGIN
+  PROMPT 45 3 "Lunghezza              "
+  FLAGFS "U"    
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_SKIPLINES 6
+BEGIN
+  PROMPT 1 4 "Righe iniziali da ignorare "
+  FLAGS "U"
+END   
+
+STRING F_FIELDSEP 1
+BEGIN
+  PROMPT 45 4 "Separatore dei campi        "
+END
+
+NUMBER F_DISPLINES 6
+BEGIN
+  PROMPT 1 5 "Righe da visualizzare      "
+  FLAGS "U"
+END   
+
+
+STRING F_ISAM 4
+BEGIN
+  PROMPT 1 6 "File ISAM di destinazione  "
+  FLAGS "BU"
+END
+
+BOOLEAN F_ZAP
+BEGIN
+  PROMPT 41 6 "Azzera il file di destinazione"
+END
+
+BROWSEFILE F_COLUMNIZER 76 4
+BEGIN
+  PROMPT 1 6 ""
+  FLAGS "R"
+END
+
+SPREADSHEET F_FIELDS 78 
+BEGIN 
+  PROMPT 1 13 ""
+  ITEM "Campo@12"
+  ITEM "Descrizione@50"
+END
+
+ENDPAGE
+
+ENDMASK   
+
+PAGE "Riga" -1 -1 70 5
+
+STRING F_FIELD 12
+BEGIN
+  PROMPT 1 1 "Campo       "
+  FLAGS "BU"
+END
+
+STRING F_DESCR 50
+BEGIN
+  PROMPT 1 2 "Descrizione "
+  FLAGS "D"
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -13 -1 ""
+END
+
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -23 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -33 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK