Versão atual:

Remover barra branca em FwCalendar

Boa tarde!

Gostaria de saber se alguém já usou o framework FwCalendar e se sim, se sabe remover a barra branca que é criada em baixo do calendário com os dias.

Queria remover esse espaço de modo que o calendário ocupe melhor a tela.

Segue exemplo do código e da tela:

    Local _aSize         :=    {} 
    Local _aObjects        :=    {}
    Local _aInfo        :=    {}
    Local _aPosObj        :=    {}

    Local _aButtons    :=    {}

    Private _oCalend
    Private _oDlg

    aAdd(_aButtons,{"HISTORIC",{|| NextMes()}, "Avança Mês","Avança Mês"})
    aAdd(_aButtons,{"HISTORIC",{|| PrevMes()}, "Retorna Mês","Retorna Mês"})
    aAdd(_aButtons,{"HISTORIC",{|| AtuMes()}, "Mes Atual","Mês Atual"})
//    aAdd(_aButtons,{"HISTORIC",{|| AddCCli()}, "Adiciona Cliente","Adiciona Cliente"})
//    aAdd(_aButtons,{"HISTORIC",{|| DelCCli()}, "Remove Cliente","Remove Cliente"})    


    _aSize := MsAdvSize(.F.)                      

    AAdd(_aObjects, {100, 100, .T. , .T. })

    _aInfo   := {_aSize[1], _aSize[2], _aSize[3], _aSize[4], 5, 5}    

    _aPosObj := MsObjSize(_aInfo, _aObjects, .T. )

    Define MsDialog _oDlg Title "Agendamento" From _aSize[7],0 To _aSize[6],_aSize[5] Of oMainWnd Pixel    

        _oCalend := FWCalendar():New(Month(dDataBase), Year(dDataBase))
        _oCalend:lWeekColumn := .F.
        _oCalend:lFooterLine := .F.

        _oCalend:bldblclick    :=    {|| BrwDbClk()}

        _oCalend:Activate(_oDlg)

        CrgCCli()

        _oDlg:ctitle    :=    "Calendário " + _oCalend:cMesano



    Activate MsDialog _oDlg Centered

Grato pela atenção.

fwcalendar.PNG

Versão (1):

Ver a versão formatada

Remover barra branca em FwCalendar

Comentário

new question