Problem with texplorerbar and Calendar class

[Silvio.Falconi]

Please See this picture




I made
Function BuildExplorerBar( oPanelExplorer)
local nOption := 5
local aOre := { "5", "10", "15", "20", "30", "60"}
local oPanel


oApp():oExBar := TExplorerBar():New( 0, 0,oApp():oPanelExplorer:nwidth-15,;
oApp():oPanelExplorer:nbottom, oApp():oPanelExplorer )

oPanel := oApp():oExBar:AddPanel( "Calendario", ".\bitmaps\CALEX.bmp", 480 )

@ 30, 5 CALENDAR oApp():oDtPick VAR oApp():dDateStart OF oPanel PIXEL SIZE 220, 450
oApp():oDtPick:bChange := { | o | ChangeDate( o ) }


1. the calendar is showed bad
2. when I click on arrow it start from feb to May why ?
3. when I change the size of explorerbar clicking on splitter the calendar is the same ( I wish on all panel )

any solution please ?

[MGA]

Silvio,

You could show how you got the colorful effect of the TAGS?

[MGA]

Silvio,

Here, I have a good behavior!

[Silvio.Falconi]

I have a class modify from me
but if you download that I found on list of fivetech is the same of fjhg
only I add this function
FUNCTION ColorData( nType )
local aGrad



DO CASE
case VAL(nType) = 1
aGrad = { { 1, RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32) } }

case VAL(nType) = 2
aGrad = { { 1, RGB(0x00,0x80,0xff) , RGB(0x00,0x80,0xff) } }

case VAL(nType) = 3
aGrad = { { 1, RGB(0xff,0xff,0x80), RGB(0xff,0xff,0x80) } }

case VAL(nType) = 4
aGrad = { { 1, RGB(0xff,0x00,0x00), RGB(0xff,0x00,0x00) } }

case VAL(nType) = 5
aGrad = { { 1, RGB(0xc0,0xc0,0xc0), RGB(0xc0,0xc0,0xc0) } }

ENDCASE

return aGrad




and then I call it from loaddates function

oApp():oCalex:LoadDates( ( cAlias )->START,;
( cAlias )->END, ;
( cAlias )->DSTART, ;
( cAlias )->DSTART, ;
( cAlias )->TEXT, ;
( cAlias )->SUBJECT,;
( cAlias )->IDX, nColorText,;
ColorData(( cAlias )->status ),;
val(( cAlias )->status))

[Silvio.Falconi]

Silvio,

Here, I have a good behavior!

I wish show 3 or 4 mounth

[MGA]

Many thanks Silvio.

Sorry I can not help you!

[Silvio.Falconi]

I think there is an error calendar class
If I click on arrow can go only to Jan to May

[MGA]

Silvio,

I can see the method: LoadDates()

Mine is not ready to receive the color parameters.

[Silvio.Falconi]

Code: Select all  Expand view

METHOD LoadDates( nStart, nEnd, dStart, dEnd, cText, cSubject, nIdx, nClrText, aGrad, nstatus, lricordatorio ) CLASS TCalEx

   local oCalInfo

   WITH OBJEC oCalInfo := TCalInfo():New()
      :nStart   = nStart
      :nEnd     = nEnd
      :dStart   = dStart
      :dEnd     = dEnd
      :cText    = cText
      :cSubject = cSubject
      :oCalex   = Self
      :nIdx     = nIdx


      :nClrText = nClrText
      :aGradColor =  aGrad
      :nstatus    = nstatus

      :lricordatorio  = lricordatorio
   END



   hb_HSET( ::hCalInfo, oCalInfo:nId, oCalInfo )

   RETURN NIL

[MGA]

thanks Silvio!