PC Toledo

Código: Selecionar todos

#include "directry.ch"
PROCEDURE FileList()
  LOCAL aFList := DIRECTORY( "C:\Harbour\*.*" )
  LOCAL a1File
 
  FOR EACH a1File IN aFList 
     ? SPACE( 4 ),;
       PAD( a1File[ F_NAME ], 13 ),; /* File name */ 
       TRAN( a1File[ F_SIZE ], "999,999,999" ),; /* File size */
       a1File[ F_DATE ],; /* File date */
       a1File[ F_TIME ],; /* File time */
       a1File[ F_ATTR ] /* File attribute */
 NEXT
 
RETURN // FileList()

Código: Selecionar todos

#include <hmg.ch>
#include "Directry.ch"

Function Main(cPath)
Public aFiles:={}, aTemp, nTam, I

If cPath=Nil
   cPath:="C:\IMAGENS\TIF"
Endif

aTemp:=Directory(cPath + "\*.tif")
nTam:=Len(aTemp)
For I=1 To nTam
    AaDd(aFiles,{aTemp[I,1]})
Next

        DEFINE WINDOW Form_1 AT 211 , 242 WIDTH 698 HEIGHT 449;
        TITLE "Visualizador de Imagens" ICON NIL MAIN
        

    DEFINE GRID Grid_1
        ROW    10
        COL    10
        WIDTH  300
        HEIGHT 670
        ITEMS aFiles
        VALUE 1
        WIDTHS { 300 }
        HEADERS {'Nome do Arquivo'}
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Exibir(cPath, This.Value)
        ONENTER nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONDBLCLICK nil
        ONHEADCLICK Nil
        ONQUERYDATA Nil
        MULTISELECT .F.
        ALLOWEDIT .F.
        VIRTUAL .F.
        DYNAMICBACKCOLOR Nil
        DYNAMICFORECOLOR Nil
        COLUMNWHEN Nil
        COLUMNVALID Nil
        COLUMNCONTROLS Nil
        SHOWHEADERS .T.
        CELLNAVIGATION .F.
        NOLINES .F.
        HELPID Nil
        IMAGE Nil
        JUSTIFY Nil
        ITEMCOUNT Nil
        BACKCOLOR NIL
        FONTCOLOR NIL
        HEADERIMAGES Nil
        ROWSOURCE Nil
        COLUMNFIELDS Nil
        ALLOWAPPEND .F.
        ALLOWDELETE .F.
        BUFFERED .F.
        DYNAMICDISPLAY Nil
        ONSAVE Nil
        LOCKCOLUMNS NIL
    END GRID

    DEFINE IMAGE Image_1
        ROW    80
        COL    330
        WIDTH  1500
        HEIGHT 1500
        PICTURE ""
        HELPID Nil
        VISIBLE .T.
        STRETCH .F.
        ACTION Nil
    END IMAGE
    
    DEFINE TEXTBOX Text_1
        ROW    40
        COL    500
        WIDTH  680
        HEIGHT 30
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER RENOMEAR()
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        CASECONVERT NONE
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        UPPERCASE	.T.
        VALUE ""
    END TEXTBOX
    
      DEFINE LABEL NomeAgencia
        ROW    40
        COL    360
        WIDTH  200
        HEIGHT 30
        VALUE "Nome da Agencia:"
        FONTNAME "Arial"
        FONTSIZE 10
        TOOLTIP ""
        FONTBOLD .T.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .F.
        ACTION Nil
        AUTOSIZE .F.
        BACKCOLOR Nil
        FONTCOLOR Nil
    END LABEL


END WINDOW

MAXIMIZE WINDOW FORM_1 

        Exibir(cPath,1)
        Form_1.Text_1.SetFocus
        Form_1.Center
        Form_1.Activate

Return nil


Function Exibir(cPath,nItem)

     Public cImagem:= GetProperty("Form_1","Grid_1","Item",nItem)[1]

     If IsControlDefined(Image_1,Form_1)
        SetProperty("Form_1","Image_1","Picture",cPath + "\" + cImagem)
     Endif

Return Nil




Function Renomear()

   Public cProcura:=GetProperty("form_1","text_1","Value")

   If Empty ( Form_1.Text_1.Value )
      MsgInfo("Nome do Arquivo Em Branco, Digite o novo nome do arquivo confor imagem abaixo...") 
      Return
   EndIf
   
   
   DIRMAKE(CProcura)
   RENAMEFILE('C:\IMAGENS\TIF\' + cimagem, 'C:\IMAGENS\'+ cProcura +'\' + cProcura + ' - ' + cImagem + '.JPG')
  
  
   SetProperty("Form_1","Text_1","Value", "")

   Valor:=GetProperty("form_1","GRID_1","Value")
  
   SetProperty("Form_1","GRID_1","VALUE", VALOR + 1)
   SetProperty("Form_1","Image_1","Picture", "")
  
  
    Msgbox((STR(VALOR)))  // PARA VER EM QUAL REGISTRO PAROU DE TROCAR AS IMAGENS //
  


Return Nil