'Dibujar Calendario
Dmin dévil como el número entero = FCalMin.Dia, xref como el doble = FCalMin.value * Kt - R_Cal.X
dMax dévil como número entero = FscrMax.Dia
Ktd dévil como el doble = Kt * 1440 'día del por de los pixeles
y0 = R_Cal.Y: y1 = R_Cal.Bottom - 2: x = R_Cal.X
g.FillRectangle (Brushes.White, R_Cal)
Inferior de DrawHline (g, y1) 'Línea
Inferior de DrawHline (g, R_GrAct.Bottom) 'Línea
x - = 1: g.DrawLine (Pens.Black, x, y0, x, y1)
'x - = 2: g.DrawLine (Pens.Black, x, y0, x, y1) 'Izda Calendario
X0 dévil como el número entero = R_Cal.X, x1 como número entero
TA. Alineación = StringAlignment.Center
Para d como número entero = dmin al dMax
x1 = CInt ((d + 1) * ktd - xref) 'si d < dMax="" Then="">= 0 entonces n += 1
s = n.ToString
Si (s.Length * TW) <>
|