矩形に３D効果を与える

@凸型



A凹型


B枠型


■使用する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;

■A凹型の処理
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;

■B枠型の処理
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のページへ