Estimados:
Necesito mostrar en tcalex vista mes, cuando la cantidad de citas para el día superan las que pueden mostrarse, un indicador que muestre que para ese día hay más citas.
Por ejemplo si la vista alcanza a mostrar 1 cita y para el día hay 3 citas, que muestre un +2 por ejemplo.
Eso es posible?
Agradezco cualquier ejemplo
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Tcalex citas vista mes
Hola,
Esto mostrará un poligono cuando se sobrepase las citas que caben
Para hacerlo como pretendes, que muestre el numero de citas que no se muestran, habria que crear una DATA aCitasDia con las citas de todo el dia y al total citas restar las no :lVisible. Esa es una forma
Aunque yo he hecho el pintado en TCalInfo, lo ideal seria hacerlo en TMonthV.prg
Esto mostrará un poligono cuando se sobrepase las citas que caben
Para hacerlo como pretendes, que muestre el numero de citas que no se muestran, habria que crear una DATA aCitasDia con las citas de todo el dia y al total citas restar las no :lVisible. Esa es una forma
Aunque yo he hecho el pintado en TCalInfo, lo ideal seria hacerlo en TMonthV.prg
METHOD PaintOnMonth(...............) CLASS TCalInfo
.
.
.
if ! ::lVisible
DrawEsquina( ::aCoords, hDC, 0, 0, 3, CLR_HBLUE, ::oCalex, Self)
return nil
endif
.
.
.
return nil
STATIC FUNCTION DrawEsquina( aCoords, hDC, nLONG, nHIGHT, nPEN, nCOLOR, oCalex, oCalInfo )
LOCAL hPen
LOCAL hOldPen
Local nLeft:= aCoords[2]
Local nBottom
Local nLon:= 10
Local nAlto:= nLon,;
nAncho:= nLon
Local nLeftIni, nBottomIni
Local hPen1, hBrus1, hOldBrush,;
vSolid
Local nColorNuevo:= CLR_HBLUE
nBottom:= oCalInfo:aCoorCua[1]+ oCalex:oView:nDNameHeight
nBottom-= 2
nLeft+= 45
nLeftIni:= nLeft+ 1
nBottomIni:= nBottom- 3
vsolid:= {;
{nLeftIni, nBottomIni },;
{nLeftIni, nBottomIni- nAlto },;
{nLeftIni+ nAncho, nBottomIni} ;
}
hPen1 := CreatePen( 0 , 1, nColorNuevo )
hBrush1 := CreateSolidBrush( nColorNuevo )
hOldBrush := SelectObject( hDC, hBrush1 )
hOldPen := SelectObject( hDC, hPen1 )
polypolygon( hDC, vsolid )
DeleteObject(hBrush1)
DeleteObject(hPen1)
RETURN NILHola hmpaquito:
Muchas gracias por la data.
Adaptandolo a mis necesidades me fue de suma utilidad
Agradecido!