only Progressbar

[AUGE_OHR]

hi,

i got a Solution using a Field-wide STATIC

Code: Select all

PROCEDURE DEMO1()
LOCAL cFileName       := "COLORS.BMP"
LOCAL nDelaySeconds   := 7
LOCAL nAnimateSeconds := 2

   hb_threadStart( @DEMO2())
   hb_threadStart( @CreateScreenSplash(), cFileName, nDelaySeconds, nAnimateSeconds )
   hb_threadWaitForAll()

RETURN

Code: Select all

PROCEDURE DEMO2()
   lStop := .T.
   ACTIVATE WINDOW Form2
   lStop := .F
RETURN

Code: Select all

PROCEDURE CreateScreenSplash( cFileName, nDelaySeconds, nAnimateSeconds )
      ...
      DEFINE TIMER Timer_1 INTERVAL 10 ACTION { || TestBreak( ThisWindow.Name ) }
   END WINDOW
   ACTIVATE WINDOW SplashForm
RETURN
   
PROCEDURE TestBreak()
   IF lStop = .T.
      Domethod( "SplashForm", "Timer_1", "Release" )
      Domethod( "SplashForm", "Release" )
   ENDIF
RETURN

---

Progressbar now use MARQUEE while i´m still unable to access it from "other" Thread.

if i use HB_THREAD_INHERIT_PUBLIC as 1st Parameter with hb_threadStart() i got Error "only Panel ..."
btw. have try #include "hbxpp.ch" and LIB and got same Error "only Panel ..."

have to try if Concept work in "big" App ...

[edk]

hi,

i want to open a new Windows to show Thumbs.
while it take some time to load i want to show a Progressbar ... but how when "loading ..."

i don´t have a Progressbar on my "old" Windows when loading and new Window will not appear until all load ...
so "where" an "how" to use a Progressbar ... need a Idea

Maybe somethink like that

Code: Select all

#include <hmg.ch>

Function Main

DEFINE WINDOW main AT 0 , 0 WIDTH GetDesktopWidth() HEIGHT 150 NOSYSMENU NOCAPTION
	DEFINE MAIN MENU
        DEFINE POPUP "Menu"
            MENUITEM "Thumbs" ACTION pBarForm ("ThumbsForm()")
            MENUITEM "Exit" ACTION ReleaseAllWindows()
        END POPUP
    END MENU

END WINDOW

main.Activate

Return
***************************************************************************
Function pBarForm( cFormRun )

DEFINE WINDOW pbar AT 210 , (GetDesktopWidth() - 550) / 2 WIDTH 550 HEIGHT 50 TOPMOST NOMINIMIZE NOMAXIMIZE NOSIZE NOSYSMENU NOCAPTION ON INIT &cFormRun ON RELEASE Nil ON PAINT nil

  @10,5 PROGRESSBAR bar RANGE 0, 100 WIDTH 540 HEIGHT 30
  
END WINDOW

pbar.bar.value:=0

pbar.Activate
 
Return
**************************************************************

Function ThumbsForm()
Local i, j, k := 0, cIname
DEFINE WINDOW thumbs AT 0 , 0 WIDTH 570 HEIGHT 600 TITLE "Thumbs"

	for i = 1 to 100
		DO EVENTS
		j := i%10
		IF j = 0
			j := 10
		ENDIF
		IF j = 1
			k++
		ENDIF
		cIname := "Image_" + AllTrim(Str( i ))
		@ (k * 55) - 50, (j * 55) - 50  IMAGE &cIname PICTURE "_TRACEPOINT" WIDTH 50 HEIGHT 50 TOOLTIP cIname
		pbar.bar.Value := i
		sleep(50)		//simulation of thumb creating (50 miliseconds)
	next i

	pbar.Release
	
END WINDOW
thumbs.center
thumbs.Activate
 
Return

Version with preview:

Code: Select all

#include <hmg.ch>

Function Main

DEFINE WINDOW main AT 0 , 0 WIDTH GetDesktopWidth() HEIGHT 150 NOSYSMENU NOCAPTION
	DEFINE MAIN MENU
        DEFINE POPUP "Menu"
            MENUITEM "Thumbs" ACTION pBarForm ("ThumbsForm()")
            MENUITEM "Exit" ACTION ReleaseAllWindows()
        END POPUP
    END MENU

END WINDOW

main.Activate

Return
***************************************************************************
Function pBarForm( cFormRun )

DEFINE WINDOW pbar AT 210 , (GetDesktopWidth() - 550) / 2 WIDTH 550 HEIGHT 50 TOPMOST NOMINIMIZE NOMAXIMIZE NOSIZE NOSYSMENU NOCAPTION ON INIT &cFormRun ON RELEASE Nil ON PAINT nil

  @10,5 PROGRESSBAR bar RANGE 0, 100 WIDTH 540 HEIGHT 30 SMOOTH
  
END WINDOW

pbar.bar.value:=0

pbar.Activate
 
Return
**************************************************************

Function ThumbsForm()

DEFINE WINDOW thumbs AT 0 , 0 WIDTH 570 HEIGHT 600 TITLE "Thumbs" ON INIT MakeThumbs()
	
END WINDOW
thumbs.center
thumbs.Activate
 
Return

FUNCTION MakeThumbs()
Local i, j, k := 0, cIname

	for i = 1 to 100
		DO EVENTS
		j := i%10
		IF j = 0
			j := 10
		ENDIF
		IF j = 1
			k++
		ENDIF
		cIname := "Image_" + AllTrim(Str( i ))
		@ (k * 55) - 50, (j * 55) - 50  IMAGE &cIname OF thumbs PICTURE "_TRACEPOINT" WIDTH 50 HEIGHT 50 TOOLTIP cIname
		pbar.bar.Value := i
		sleep(50)		//simulation of thumb creating (50 miliseconds)
		
	next i

	pbar.Release

RETURN

[movilceles]

Hello, modify your example and now it works.

[AUGE_OHR]

hi,

thx for Demo, i will study it

[AUGE_OHR]

hi edk,

i have study your Sample and your Solution with Macro

Code: Select all

pBarForm ("ThumbsForm()")

Function pBarForm( cFormRun )
   ... ON INIT &cFormRun

now i have Problem to use this Technique when have Parameter for Function

Code: Select all

pBarForm ("ThumbsForm(a,b,c)")
pBarForm ("ThumbsForm()",a,b,c)

need some more help with Macro with Parameter, thx

---

ok i understand that it must be a String

Code: Select all

   pBarForm( "THUMBS('"+cPath +"')" )

but now the Question what about Array or Logic as Parameter

[jairpinho]

hello team, following this subject maybe what I have been trying for a long time would be to progressively follow the whole process of executing a function called with or without parameters, because today the user comes to think that the system has stopped because some reporting processes and sql search takes a little and I have nothing to show this process for the user to know that he must wait and the system he is processing, I will wait for the final results but the examples already posted have already helped a lot for understanding thanks.

[edk]

hi edk,

i have study your Sample and your Solution with Macro

Code: Select all

pBarForm ("ThumbsForm()")

Function pBarForm( cFormRun )
   ... ON INIT &cFormRun

now i have Problem to use this Technique when have Parameter for Function

Code: Select all

pBarForm ("ThumbsForm(a,b,c)")
pBarForm ("ThumbsForm()",a,b,c)

need some more help with Macro with Parameter, thx

---

ok i understand that it must be a String

Code: Select all

   pBarForm( "THUMBS('"+cPath +"')" )

but now the Question what about Array or Logic as Parameter

Try hb_serialize()
Or hb_valtoexp()
http://hmgforum.com/viewtopic.php?p=60100#p60100
Or use blockcode as parameter then on init eval ( bCode )

[AUGE_OHR]

hi,

Try hb_serialize()
Or hb_valtoexp()
http://hmgforum.com/viewtopic.php?p=60100#p60100
Or use blockcode as parameter then on init eval ( bCode )

AHA ... i remember ...

your Solution with Macro and Progressbar are GREAT ... give me new Idea what can do ON INIT