TaskBar

[Silvio.Falconi]

Dear Antonio
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  RUN

#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
 

[Antonio Linares]

Silvio,

I just searched sources and examples and I don't find it

I don't remember to have one

[Silvio.Falconi]

Just in the gym last night I remembered that Antonino did something of it and I remembered that I could not complete because not yet worked with bcc7
I believe if we ask antonino perricone we can 'help you how to make a class

[Silvio.Falconi]

I found something ....searching on google ... TTaskbarNotifier+harbour

[rhlawek]

viewtopic.php?f=3&t=22872

also source\classes\ttray.prg

[Silvio.Falconi]

ttray is not taskbar class but another....insert icons not show messages
for the first topic you can see my comment for it ( on xharbour and bcc7 not compile and Antonio have other problems)