Re: Click Source Code Formater
Verfasst: Fr, 11. Mai 2018 12:50
Das deutschsprachige Forum für Entwickler in der Xbase-Welt, ein Angebot des Deutschsprachige Xbase-Entwickler e. V.
https://xbaseforum.de/
Code: Alles auswählen
RUNMODE=S87
ALIGN_CLASS_IN_THE_ALIGNER=NO
Code: Alles auswählen
VERBOSE=NO
Code: Alles auswählen
ADD_CLICK_HEADER=YES
ADD_FUNCTION_HEADERS=YES
Code: Alles auswählen
PROCEDURE main( filespec )
PUBLIC cStatusBox := ""
PUBLIC cInBox := ""
PUBLIC cOutBox := ""
DEFAULT filespec TO '*.PRG'
DECLARE ClickForm
IF !IsWindowDefined( ClickForm )
Load Window ClickForm
main_screen( filespec )
ON KEY ESCAPE OF ClickForm ACTION ClickForm.Release
CENTER WINDOW ClickForm
Activate Window ClickForm
ENDIF
RETURN
*+--------------------------------------------------------------------
*+
*+ Procedure InitMain()
*+
*+--------------------------------------------------------------------
*+
PROCEDURE InitMain( filespec ) // from CLICK.FMG
LOCAL hWnd
LOCAL cEXE
LOCAL cINI
LOCAL cSource
LOCAL cTarget
cEXE := ft_origin()
cINI := STRTRAN( cEXE, ".EXE", ".INI" )
cSource := GetCurrentFolder()
cTarget := GetCurrentFolder() + "\CLICKOUT"
SetProperty( "ClickForm", "Text_1", "Value", cEXE )
SetProperty( "ClickForm", "Text_2", "Value", cINI )
SetProperty( "ClickForm", "Text_3", "Value", cSource )
SetProperty( "ClickForm", "Text_4", "Value", cTarget )
IF .NOT. FILE( cINI )
createini( cINI )
ENDIF
ClickForm.Button_1.hide()
ClickForm.Button_2.hide()
RETURN
*+--------------------------------------------------------------------
*+
*+ Function ShowDir()
*+
*+--------------------------------------------------------------------
*+
FUNCTION ShowDir( cWho ) // from CLICK.FMG
LOCAL cRet := ""
LOCAL cTitle := ""
LOCAL cInitPath := ""
LOCAL lNewFolderButton := .F.
DO CASE
CASE cWho = "EXE"
cTitle := "Click.EXE Folder"
cInitPath := GetProperty( "ClickForm", "Text_1", "Value" )
cInitPath := STRTRAN( cInitPath, "CLICK.EXE", "" )
CASE cWho = "INI"
cTitle := "Click.INI Folder"
cInitPath := GetProperty( "ClickForm", "Text_2", "Value" )
cInitPath := STRTRAN( cInitPath, "CLICK.INI", "" )
CASE cWho = "SOURCE"
cTitle := "Source Folder"
cInitPath := GetProperty( "ClickForm", "Text_3", "Value" )
cInitPath := STRTRAN( cInitPath, "*.PRG", "" )
CASE cWho = "TARGET"
cTitle := "Target Folder"
cInitPath := GetProperty( "ClickForm", "Text_4", "Value" )
cInitPath := STRTRAN( cInitPath, "\CLICKOUT", "\" )
lNewFolderButton := .T.
ENDCASE
cRet := GetFolder( cTitle, TRIM( cInitPath ),, lNewFolderButton )
IF !EMPTY( cRet )
DO CASE
CASE cWho = "EXE"
SetProperty( "ClickForm", "Text_1", "Value", cRet )
CASE cWho = "INI"
SetProperty( "ClickForm", "Text_2", "Value", cRet )
CASE cWho = "SOURCE"
SetProperty( "ClickForm", "Text_3", "Value", cRet )
CASE cWho = "TARGET"
SetProperty( "ClickForm", "Text_4", "Value", cRet )
ENDCASE
ENDIF
RETURN cRet
*+--------------------------------------------------------------------
*+
*+ Static Procedure ShowAction()
*+
*+ Called from ( click.prg ) 3 - procedure startclick()
*+
*+--------------------------------------------------------------------
*+
STATIC PROCEDURE ShowAction( cWho )
LOCAL nIndex := GetControlIndex( "Button_StartClick", "ClickForm" )
DO CASE
CASE cWho = "ESC"
SetProperty( "ClickForm", "Button_StartClick", "Caption", "Abort" )
_HMG_SYSDATA[ 6 ] [ nIndex ] := { || DoEsc() }
CASE cWho = "EXIT"
SetProperty( "ClickForm", "Button_StartClick", "Caption", "Exit" )
_HMG_SYSDATA[ 6 ] [ nIndex ] := { || DoExit() }
CASE cWho = "CLICK"
SetProperty( "ClickForm", "Button_StartClick", "Caption", "Click" )
_HMG_SYSDATA[ 6 ] [ nIndex ] := { || StartClick() }
ENDCASE
RETURN
*+--------------------------------------------------------------------
*+
*+ Procedure DoEsc()
*+
*+ Called from ( click.prg ) 1 - static procedure showaction()
*+
*+--------------------------------------------------------------------
*+
PROCEDURE DoEsc() // from CLICK.FMG
IF verify( 'Do you want to QUIT now', ;
.t., 'Yes', 'No' )
QUIT
ENDIF
RETURN
*+--------------------------------------------------------------------
*+
*+ Static Procedure DoExit()
*+
*+ Called from ( click.prg ) 1 - static procedure showaction()
*+
*+--------------------------------------------------------------------
*+
STATIC PROCEDURE DoExit()
ClickForm.Release
RETURN
*+--------------------------------------------------------------------
*+
*+ Procedure StartClick()
*+
*+ Called from ( click.prg ) 1 - static procedure showaction()
*+
*+--------------------------------------------------------------------
*+
PROCEDURE StartClick( filespec ) // from CLICK.FMG