But we not have a TaskBar class on fwh ?
I remember someone made this class perhaps Paco I not remember right
it is very strange I am sure it was on fwh...
- Code: Select all Expand view
- #include "FiveWin.ch"
static oWnd
function Main()
DEFINE WINDOW oWnd TITLE "Taskbar Message"
DEFINE BUTTONBAR oBar _3D OF oWnd noborder 2015
DEFINE BUTTON OF oBar ACTION TaskbarMsg( "This a sample a message", 4 )
ACTIVATE WINDOW oWnd
return nil
//-----------------------------------------------------------------------------------//
Function TaskbarMsg(cMsg,nTime)
local oDlgtask, oBrush
DEFAULT cMsg := "undefines.."
DEFINE WINDOW oDlgtask ;
FROM GetSysMetrics(1),GetSysMetrics(0)-300 TO 200,200 PIXEL ;
COLOR nRGB(255,255,255),nRGB(250,250,250) NO CAPTION BORDER NONE
@ 5, 5 GET cMsg MEMO OF oDlgtask SIZE 195,195 PIXEL;
COLOR nRGB(000,000,000),nRGB(250,250,250) ;
NOBORDER NO MODIFY NO VSCROLL
ACTIVATE WINDOW oDlgtask ON INIT MoveDLG(oDlgtask,nTime)
return nil
//-----------------------------------------------------------------------------------//
Function MoveDLG(otask,oTime)
Local oDlgheight := GetSysMetrics(1)
SndPlaySound( "C:\Work\fwh\sounds\alert.wav", 0 )
for i = 1 to 20
oDlgheight := oDlgheight - i
oTask:Move( oDlgheight, 100, 200, 200, .t. )
SysWait(.02)
next
SysWait(oTime)
for i = 1 to 20
oDlgheight := oDlgheight + i
otask:Move( oDlgheight, 100, 200, 200, .t. )
SysWait(.02)
next
otask:end()
return
