矩形に３D効果を与える

①凸型



②凹型


③枠型


■使用するAPI関数


■ソースは下記のようになります。

■①凸型の処理
procedure TForm1.Button1Click(Sender: TObject);
Var
　RECT : TRECT;
begin

　RECT.Left :=30 ;
　RECT.Top :=30 ;
　RECT.Right:=200;
　RECT.Bottom:=200;

　//凸表示
　DrawEdge(Form1.Canvas.Handle, RECT, EDGE_RAISED, BF_RECT);

end;

■②凹型の処理
procedure TForm1.Button1Click(Sender: TObject);
Var
　RECT : TRECT;
begin

　RECT.Left :=30 ;
　RECT.Top :=30 ;
　RECT.Right:=200;
　RECT.Bottom:=200;

　//凹表示
　DrawEdge(Form1.Canvas.Handle, RECT, EDGE_SUNKEN, BF_RECT);

end;

■③枠型の処理
procedure TForm1.Button3Click(Sender: TObject);
Var
　RECT : TRECT;
begin

　RECT.Left :=30 ;
　RECT.Top :=30 ;
　RECT.Right:=200;
　RECT.Bottom:=200;

　//枠表示
　DrawEdge(Form1.Canvas.Handle, RECT, EDGE_BUMP, BF_RECT);

end;



Win32APIのページへ



ホーム PV ランキング