Click Source Code Formater

Alle Fragen um die Programmierung, die sich sonst nicht kategorisieren lassen. Von Makro bis Codeblock, von IF bis ENDIF

Moderator: Moderatoren

STEPHAN
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 116
Registriert: Do, 29. Mai 2008 20:46
Hat sich bedankt: 1 Mal

Re: Click Source Code Formater

Beitrag von STEPHAN »

AUGE_OHR hat geschrieben: Fr, 11. Mai 2018 9:45 in CMD_LIST.PRG
Danke. (Dort ist es auskommentiert.)
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: Click Source Code Formater

Beitrag von AUGE_OHR »

hi,

hier eine GUI Version wo man das "Source" und "Target" Directory festlegen kann.
HB_CLICK_GUI.zip
(1.29 MiB) 196-mal heruntergeladen
---

ich habe die Datei mit UPX.EXE komprimiert und es enthält KEINEN VIRUS wie Avira es meldet [-X
Click_No_Virus.jpg
Click_No_Virus.jpg (39.08 KiB) 2401 mal betrachtet
---

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
in der CLICK.INI beim 1st. Start erzeugt.

wer es "schnell" haben will ändert diese Zeile in CLICK.INI von YES auf NO

Code: Alles auswählen

VERBOSE=NO
default "schreibe" ich die Header von

Code: Alles auswählen

ADD_CLICK_HEADER=YES
ADD_FUNCTION_HEADERS=YES
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 :?:

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
Antworten