Цитата(Rupor @ 10.2.2010, 21:41  ) | | никто не знает?( |
Знает...
Например так....
| Код |
const year = 2010; // Год календаря
var months: array [1..12] of byte;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption := 'Календарь на ' + IntToStr(year) + ' год';
Form1.Color := clWhite;
// Длины месяцев:
months[1] := 31;
months[2] := 28 + ord(IsLeapYear(year));
months[3] := 31;
months[4] := 30;
months[5] := 31;
months[6] := 30;
months[7] := 31;
months[8] := 31;
months[9] := 30;
months[10] := 31;
months[11] := 30;
months[12] := 31;
end;
procedure TForm1.FormPaint(Sender: TObject);
const // Настройки размеров календаря:
MonthDX = 150;
MonthDY = 135;
DayDX = 20;
DayDY = 15;
MonthH = 20;
var
month, i: integer;
day: integer;
s: string[2];
begin
with Form1.Canvas do for month := 1 to 12 do begin
// Вывод названия месяца:
Font.Name := 'Times';
Font.Size := 13;
TextOut((month - 1) mod 3 * MonthDX, (month - 1) div 3 * MonthDY,
LongMonthNames[month]);
Font.Name := 'Courier';
Font.Size := 8;
// Вывод названий дней недели:
for day := 1 to 7 do
TextOut((month - 1) mod 3 * MonthDX,
day mod 7 * DayDY + (month - 1) div 3 * MonthDY + MonthH,
ShortDayNames[(day + 1) mod 7 + 1]);
// Определение дня недели первого числа месяца:
day := DayOfWeek(EncodeDate(year, month, 1)) - 2;
if day < 0 then inc(day, 7);
// Вывод чисел:
for i := 1 to months[month] do begin
str(i: 2, s);
TextOut(day div 7 * DayDX + (month - 1) mod 3 * MonthDX + DayDX,
day mod 7 * DayDY + (month - 1) div 3 * MonthDY + MonthH, s);
inc(day);
end;
end;
end;
|
Правда лично мне этот код не очень нравится... |