home *** CD-ROM | disk | FTP | other *** search
/ ftp.sberbank.sumy.ua / 2014.11.ftp.sberbank.sumy.ua.tar / ftp.sberbank.sumy.ua / incoming / 1 / BSC12193.eba < prev    next >
Text File  |  2014-02-08  |  3KB  |  106 lines
  1.  
  2. CONST NM_DIALOG = 10
  3. CONST NM_RUN = 11
  4. CONST NM_SR_EDIT = 20
  5. CONST NM_DS_EDIT = 21
  6. CONST NM_DSEXT_EDIT = 24
  7.  
  8. DEF w1 as WINDOW
  9. def b1:int
  10. DEF dlgPLAN:DIALOG
  11.  
  12.  
  13. DEF bChecked as INT
  14. def left,top,width,height,msg,nFlags,temp:int
  15.  
  16. OPENWINDOW w1,0,0,400,200,@MINBOX|@MAXBOX|@SIZE,0,"Prog test",&main
  17. CONTROL w1,@BUTTON,"[_]",320,10,50,25,@CTLBTNDEFAULT, NM_DIALOG
  18. CONTROL w1,@BUTTON,">>>",320,45,50,25,@CTLBTNDEFAULT, NM_RUN
  19. CONTROL w1,@EDIT,"oo",10,10,200,25,@CTEDITAUTOH, NM_SR_EDIT
  20. CONTROL w1,@EDIT,"",220,10,50,25,@CTEDITAUTOH, NM_DSEXT_EDIT
  21. CONTROL w1,@EDIT,"o",10,45,200,25,@CTEDITAUTOH, NM_DS_EDIT
  22. CREATEDIALOG dlgPLAN,0,0,700,500,@CAPTION|@SYSMENU|@SIZE,w1,"PIC",&dialoghandler
  23.  
  24.  
  25. REM when w1 = 0 the window has been closed
  26. WAITUNTIL w1 = 0
  27. END
  28. '---
  29.  
  30. SUB main
  31. SELECT @MESSAGE
  32.     CASE @IDCREATE
  33.         
  34.         CENTERWINDOW w1
  35.         
  36.     CASE @IDSIZE     
  37.         getclientsize w1,left,top,width,height 
  38.         setsize w1, (width-65), 10, 50, 25, NM_DIALOG
  39.  
  40.         getclientsize w1,left,top,width,height 
  41.         setsize w1, (width-65), 45, 50, 25, NM_RUN
  42.  
  43.     CASE @IDCLOSEWINDOW
  44.         REM closes the window and sets w1 = 0
  45.         CLOSEWINDOW w1
  46.  
  47.     CASE @IDCONTROL
  48.         SELECT @CONTROLID
  49.             CASE NM_DIALOG:
  50.                  DOMODAL dlgPLAN
  51.  
  52.             CASE NM_RUN: 
  53.               DEF dir:INT
  54.               DEF filename:STRING
  55.               DEF filenamebf:STRING 
  56.               DEF outdir:STRING 
  57.               DEF cnum:int
  58.  
  59.                cnum = 0   
  60.  
  61.                filename = GETCONTROLTEXT w1,NM_SR_EDIT
  62.                filename = filename +"\\*" + GETCONTROLTEXT w1,NM_DSEXT_EDIT  
  63.               ' filename = USING "0####", 090   
  64.               ' SETCONTROLTEXT w1, NM_DS_EDIT, filename
  65.  
  66.                dir = FINDOPEN filename
  67.                  IF(dir)
  68.                   DO
  69.                    filename = FINDNEXT dir
  70.                    filenamebf = filename
  71.  
  72.                    outdir = GETCONTROLTEXT w1,NM_SR_EDIT
  73.                    filenamebf = outdir + "\\" + filenamebf  
  74.  
  75.                    outdir = GETCONTROLTEXT w1,NM_DS_EDIT 
  76.                    outdir = outdir + "\\" + USING("0####",cnum) + GETCONTROLTEXT w1,NM_DSEXT_EDIT
  77.                    cnum++
  78.  
  79.                    COPYFILE filenamebf, outdir, 1
  80.  
  81.                   UNTIL filename = ""
  82.  
  83.                  FINDCLOSE dir
  84.                  ENDIF
  85.  
  86.         ENDSELECT
  87. ENDSELECT
  88. RETURN
  89. ENDSUB
  90.  
  91. SUB dialoghandler
  92. SELECT @MESSAGE
  93.     CASE @IDCONTROL
  94.         SELECT @CONTROLID
  95.             CASE 1
  96.               '  answer = GETCONTROLTEXT(dlgPLAN, 10)
  97.                 CLOSEDIALOG dlgPLAN,@IDOK
  98.         ENDSELECT
  99.    
  100.     CASE @IDINITDIALOG
  101.         CENTERWINDOW dlgPLAN
  102.        
  103. ENDSELECT
  104. RETURN
  105. ENDSUB
  106.