'Dibujar Calendario
Dmin não ofuscante como o inteiro = o FCalMin.Dia, xref como o dobro = o FCalMin.value * Kt - R_Cal.X
dMax não ofuscante como o inteiro = o FscrMax.Dia
Ktd não ofuscante como o dobro = o Kt * 1440 'día do por dos pixéis
YO = 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, YO, x, y1)
'x - = 2: g.DrawLine (Pens.Black, x, YO, x, y1) 'Izda Calendario
X0 não ofuscante como o inteiro = o R_Cal.X, x1 como o inteiro
Ta. Alinhamento = StringAlignment.Center
Para d como o inteiro = o dmin ao dMax
x1 = CInt ((d + 1) * ktd - xref) 'se d < dMax="" Then="">= 0 então n += 1
s = n.ToString
Se (s.Length * TW) <>
|