Page 1 of 1
Tcalex citas vista mes
Posted: Tue Jun 22, 2021 12:14 pm
by cmsoft
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
Re: Tcalex citas vista mes
Posted: Wed Jun 23, 2021 7:32 am
by hmpaquito
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
Code: Select all | Expand
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 NIL
Re: Tcalex citas vista mes
Posted: Wed Jun 23, 2021 4:09 pm
by cmsoft
Hola hmpaquito:
Muchas gracias por la data.
Adaptandolo a mis necesidades me fue de suma utilidad
Agradecido!