Danke. (Dort ist es auskommentiert.)
Click Source Code Formater
Moderator: Moderatoren
- AUGE_OHR
- Marvin
- Beiträge: 12909
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: Click Source Code Formater
hi,
hier eine GUI Version wo man das "Source" und "Target" Directory festlegen kann.
---
ich habe die Datei mit UPX.EXE komprimiert und es enthält KEINEN VIRUS wie Avira es meldet ---
da ich die "Original" Cl*pper Version als Basis verwendet habe müsste bei Class Code es Classy Style sein.
deshalb wird default
in der CLICK.INI beim 1st. Start erzeugt.
wer es "schnell" haben will ändert diese Zeile in CLICK.INI von YES auf NO
default "schreibe" ich die Header von
also schaut euch mal die CLICK.INI an
have fun
p.s. der Source nützt Xbase++ User "so" nichts aber er ist do gut zu lesen, oder
hier eine GUI Version wo man das "Source" und "Target" Directory festlegen kann.
---
ich habe die Datei mit UPX.EXE komprimiert und es enthält KEINEN VIRUS wie Avira es meldet ---
da ich die "Original" Cl*pper Version als Basis verwendet habe müsste bei Class Code es Classy Style sein.
deshalb wird default
Code: Alles auswählen
RUNMODE=S87
ALIGN_CLASS_IN_THE_ALIGNER=NO
wer es "schnell" haben will ändert diese Zeile in CLICK.INI von YES auf NO
Code: Alles auswählen
VERBOSE=NO
Code: Alles auswählen
ADD_CLICK_HEADER=YES
ADD_FUNCTION_HEADERS=YES
have fun
p.s. der Source nützt Xbase++ User "so" nichts aber er ist do gut zu lesen, oder
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
gruss by OHR
Jimmy
Jimmy