YES ... it is much Quicker and Memory is stable, THX
Code: Select all
RELEASE MEMORY
Do EVENTS
Moderator: Rathinagiri
YES ... it is much Quicker and Memory is stable, THX
Code: Select all
RELEASE MEMORY
Do EVENTS
Code: Select all
FUNCTION CutLine( cIn )
LOCAL cOut := ""
LOCAL i, iMax
LOCAL nLines := 10
iMax := MlCount( cIn, 80 )
IF iMax > nLines
FOR i := iMax - nLines TO iMax
cOut += TRIM( MemoLine( cIn, 80, i ) ) + CRLF
NEXT
ELSE
cOut := cIn + CRLF
ENDIF
RETURN cOut
Code: Select all
SetProperty( "ClickForm", "ProgressBar_1", "Value", nPcntDone * 2 )
RELEASE MEMORY
Do EVENTS
Code: Select all
PUBLIC cStatusBox := ""
PUBLIC cInBox := ""
PUBLIC cOutBox := ""
PROCEDURE SetStatusText( cData )
cStatusBox += cData + CRLF
SetProperty("ClickForm","StatusBox","Value", CutLine(cStatusBox) )
PROCEDURE show_in( cData )
cInBox += cData + CRLF
SetProperty("ClickForm","InBox","Value", cInBox := CutLine(cInBox) )
PROCEDURE show_out( cData, cColor )
cOutBox += cData + CRLF
SetProperty("ClickForm","OutBox","Value", cOutBox := CutLine(cOutBox) )
Code: Select all
RUNMODE=5.X
Code: Select all
RUNMODE=S87
Code: Select all
ALIGN_CLASS_IN_THE_ALIGNER=NO
CASE_OF_COMMANDS=UPPER
CASE_OF_FUNCTIONS=UPPER
CASE_OF_BOOLEAN=UPPER
INDENT_FUNCTIONS=YES
INDENT_DO_CASE=YES
INDENT_LOCALS=NO
VERBOSE=YES
RUNMODE=S87
ALIGN_CLASS_IN_THE_ALIGNER=NO
Code: Select all
VERBOSE=NO
that is about the same i got.
AH, yes ... old DOS 8.3 Style.Red2 wrote: I did notice one thing in file "Fnc_cros.txt". CLICK.EXE chops file names off after 8 characters:
"main_Btn_Check_Files_Action.prg" was represented there as "main_btn_che"