カレンダーを作る
その９　祝日を赤く表示する

　type
　　TForm1 = class(TForm)
　　　Image1: TImage;
　　　PopupMenu1: TPopupMenu;
　　　N1: TMenuItem;
　　　N2: TMenuItem;
　　　N3: TMenuItem;
　　　N4: TMenuItem;
　　　N5: TMenuItem;
　　　procedure makec;
　　　procedure N1Click(Sender: TObject);
　　　procedure N2Click(Sender: TObject);
　　　procedure N4Click(Sender: TObject);
　　　procedure N5Click(Sender: TObject);
　　　　　：
　　　　　：
　

　procedure TForm2.FormCreate(Sender: TObject);
　begin
　end;

　procedure TForm2.FormCreate(Sender: TObject);
　begin
　
　　form1.ye:=formatdatetime('yyyy',date);
　　form1.mo:=formatdatetime('m',date);
　　form1.size:=300;
　　form1.makec;
end;

　procedure TForm1.makec;
　　var
　　　i,j,week:integer;　//「ｊ」を新たに追加
　　　str:string;

　begin
　　form1.ClientWidth:=size;
　　form1.ClientHeight:=size;
　　image1.Left:=0;
　　image1.Top:=0;
　　image1.Width:=form1.ClientWidth;
　　image1.Height:=form1.ClientHeight;
　
　　week:=dayofweek(strtodate(ye+'/'+mo+'/1'));　//“今月”の始まりの曜日を求める
　　with image1.Canvas do begin
　　　brush.Color:=clwhite;　//塗りつぶしの色を白にする
　　　fillrect(image1.ClientRect);　//image1全体を塗りつぶす
　　　brush.Style:=bsclear;　//塗りつぶしのスタイルを文字だけの塗りつぶしにする

　　　　//月の書き込み
　　　font.Size:=size div 14;　//フォントの大きさをsizeの１４分の１にする
　　　font.Color:=clblue;　//フォントの色を青にする
　　　textout(size div 2 -textwidth(mo+'月') div 2,　//Ｘ座標は中央
　　　　　　　size*3 div 20-textheight(mo+'月') div 2,　//Ｙ座標は２０分の３の部分
　　　　　　　mo+'月');　//
　　　　//西暦の書き込み
　　　font.Size:=size div 22;　//フォントの大きさをsizeの２２分の１にする
　　　font.Color:=clblue;　//フォントの色を青にする
　　　textout(size*4 div 5-textwidth(ye+'年') div 2,0,ye+'年');
　　　　//Ｘ座標は左から５分の４のところ，Ｙ座標は０に書き込む
　　　font.Size:=size div 20;　//フォントのサイズをsizeの２０分の１にする
　　　　　　　　　　　　　　　　　　　　//この大きさはいろいろ試して見てください。

　　　　//曜日の書き込み
　　　for i:=1 to 7 do begin　//曜日を書き込むため７回繰り返す
　　　　case i of
　　　　　1:begin
　　　　　　　font.Color:=clred;　//フォントの色を赤にして
　　　　　　　str:='日';　//文字を「日」にする。この文字を「Sun」にすることもできます。
　　　　　　end;
　　　　　2:begin
　　　　　　　font.Color:=clblack;　//月〜金はフォントの色を黒にする
　　　　　　　str:='月';
　　　　　　end;
　　　　　3:begin
　　　　　　　font.Color:=clblack;
　　　　　　　str:='火';
　　　　　　end;
　　　　　4:begin
　　　　　　　font.Color:=clblack;
　　　　　　　str:='水';
　　　　　　end;
　　　　　5:begin
　　　　　　　font.Color:=clblack;
　　　　　　　str:='木';
　　　　　　end;
　　　　　6:begin
　　　　　　　font.Color:=clblack;
　　　　　　　str:='金';
　　　　　　end;
　　　　　7:begin
　　　　　　　font.Color:=clblue;　//土曜日はフォントの色を青にする
　　　　　　　str:='土';
　　　　　　end;
　　　　end;
　　　　textout(size*((i-1) mod 7+1) div 8 -textwidth(str) div 2,
　　　　　　　　size*5 div 20-textheight(str) div 2,
　　　　　　　　str);　//曜日を書き込む
　　　end;
　　　　//曜日の書き込み終了

　　　　//区切り線を入れる
　　　pen.Color:=clblack;　//ペンの色を黒にする
　　　pen.Width:=2;　//ペンの太さを２にする
　　　moveto(size*1 div 16,sizet*1 div 3);　//Ｘ座標は１６等分した１〜１５まで
　　　lineto(size*15 div 16,size*1 div 3);　//Ｙ座標は３等分した１番目の場所
　　　　//区切り線を入れる終了

　　　for i:=1 to 31 do begin　//１日から３１日まで繰り返します
　　　　　//小の月大の月閏年の判別
　　　　case i of
　　　　　29:if mo=2 then begin　//２９日のとき
　　　　　　　if ye mod 4 >0 then begin
　　　　　　　　exit;　//４で割りきれなければ閏年でないので終了
　　　　　　　end else begin
　　　　　　　　if (ye mod 100=0) and (ye mod 400>0) then exit;
　　　　　　　end;　//１００で割り切れて，４００で割り切れれば閏年でない
　　　　　　 end;
　　　　　30:if mo=2 then exit;　//３０日のとき２月であれば終了
　　　　　31:begin　//３１日のとき
　　　　　　　if mo<=7 then begin
　　　　　　　　if mo mod 2=0 then exit;
　　　　　　　end else begin
　　　　　　　　if mo mod 2=1 then exit;
　　　　　　　end;　//小の月であれば終了
　　　　　　end;
　　　　end;
　　　　　//小の月大の月閏年の判別終了

　　　　　//日付の色を変える
　　　　case (week+i-2) mod 7+1 of　//日付を書き込むＸ座標による場合分け
　　　　　1:font.Color:=clred;　//１のときはフォントの色を赤にする
　　　　　7:font.Color:=clblue;　//７のときはフォントの色を青にする
　　　　　else font.Color:=clblack;　//それ以外は黒にする
　　　　end;


　　　　textout(size*((week+i-2) mod 7+1) div 8 -textwidth(inttostr(i)) div 2,
　　　　　　　　size*((week+i-2) div 7+4) div 10-textheight(inttostr(i)) div 2,
　　　　　　　　inttostr(i));　//日付を書き込む
　　　end;
　　end;
　end;
　
　end.