時計を作る
その３　針をかき込む

　type
　　TForm1 = class(TForm)
　　Image1: TImage;
　　procedure makeban;　//←これを記述して，[Shift]＋[Ctrl]＋[C]を押すと新しいプロシージャが生成されます
　　procedure FormCreate(Sender: TObject);
　private
　　{ Private 宣言 }
　　size:integer;　//sizeは時計の文字盤の半径の大きさにします
　public
　　{ Public 宣言 }
　end;
　　：
　　：
//関数=====================================================
function GetPoint(Center: TPoint; deg: Integer; len: Integer): TPoint;
begin
Result.x := Center.x + Round(deg * sin(len * pi /180));
Result.y := Center.y - Round(deg * cos(len * pi /180));
end;
//=========================================================
　｛
　この関数では，中心の座標をポイント型の変数（center），角度を整数型の変数（deg）
　　中心からの長さを整数型の変数（len）として代入します。結果はポイント型で返します。
　｝

　procedure TForm1.FormCreate(Sender: TObject);
　begin
　　size:=100;　//sizeをとりあえず１００にします
　　form1.ClientWidth:=size*2;　//フォームの内側の幅をsizeの２倍にします
　　form1.ClientHeight:=size*2;　//フォームの内側の高さをsizeの２倍にします
　　form1.TransparentColor:=true;　//フォームを透明にします
　　form1.TransparentColorValue:=clred;　//フォームの透明色を赤にします
　　form1.Color:=clred;　//フォームの色を赤にします
　　image1.left:=0;　//image1のＸ座標を０にします
　　image1.Top:=0;　//image1のＹ座標を０にします
　　image1.Width:=form1.ClientWidth;　//image1の幅をform1の内側の幅と同じにします
　　image1.Height:=form1.ClientHeight;　//image1の高さをform1の内側の高さと同じにします
　　makeban;　//←これを記述
　end;

　procedure TForm1.makeban;　//これが新しく生成されたプロシージャです
　var
　　w,i:integer;　//変数ｗを整数宣言します（文字盤の枠の太さを表すために使用します）
　　　　　　　　　//変数iを整数宣言します
　　center:TPoint;　//centerをポイント型の変数として宣言します
　begin
　　w:=size div 30;　//ｗの大きさをsizeの３０分の１にしてみます
　　with image1.Canvas do begin
　　　brush.Color:=clred;　//ブラシの色を赤にして
　　　fillrect(image1.ClientRect);　//image1のcanvasを赤で塗りつぶします（これで透明になります）
　　　brush.Color:=$fafafa;　//次にブラシの色を灰色っぽい白にして
　　　brush.Style:=bssolid;　//ブラシの塗りつぶしのスタイルを「bssolid」にします
　　　pen.color:=$cccccc;　//ペンの色を灰色にします（これが枠の色になります）
　　　pen.width:=w * 2;　//ペンの太さを変数「w」の２倍にします
　　　Ellipse(w,w,image1.Width-w,image1.Height-w);　//円を描きます

　　　　//目盛を刻む
　　　w:=size *86 div 100;　//目盛を書き込む場所をsizeの長さの８６％にしてみます
　　　cent.X:=size;　//中心のＸ座標をsizeにする
　　　cent.Y:=size;　//中心のＹ座標をsizeにする
　　　pen.Width:=1;　//目盛を書き込む太さを１にする
　　　pen.Color:=clblack;　//目盛の色を黒にする
　　　for i:=1 to 60 do begin
　　　　moveto(getpoint(cent,w,i*6).X,getpoint(cent,w,i*6).Y);
　　　　lineto(getpoint(cent,w+3,i*6).x,getpoint(cent,w+3,i*6).y);
　　　end;
　　　w:=size *84 div 100;　//目盛を書き込む場所をsizeの長さの８４％にしてみます
　　　pen.Width:=3;　//目盛の太さを３にする
　　　for i:=0 to 11 do begin
　　　　moveto(getpoint(cent,w,i*30).X,getpoint(cent,w,i*30).Y);
　　　　lineto(getpoint(cent,w+4,i*30).x,getpoint(cent,w+4,i*30).y);
　　　end;
　　end;
　end;

　begin
　end;

　end.