이방인 wrote:

> 사각형인 이미지를 출력하려 합니다...

> 그냥 출력하는 것이 아니라

> 사각 꼭지를 둥굴게 처리를 하여 출력하려 합니다.

> 여러번 시도를 했지만 잘 안돼네요.

> 그림 자체가 그렇게 생격먹었으면 좋겠는데

> 그렇게 돼면 안돼나봐요...

> 그래서 부득이 하게 이미지를 조작해서 출력을 해야 될것 같네요.

> 꼬지만 어떻게 라운드 처리하면 좋을 텐데...

> 도와 주세요...

> 그럼 부탁드립니다.

>

> 저의 이메일은 Angel1226@netsgo.com 입니다.



위에 대답에서 제가 큰 실수를 했네요....

Timage는 핸들이 없네요....

쩝... 어떻하면 좋나....

저는 일단 임시 방편으로...

TBitBtn 을 사용했습니다...



아래 소스와 같이 하면 둥근 모양의 그림을 가진 버튼이 만들어 집니다..

unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons;



type

TForm1 = class(TForm)

Button1: TButton;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

R : hRgn;





implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

R := CreateEllipticRgn( 0, 0, 50, 50 ); //크기..

SetWindowRgn(BitBtn1.handle,R,True);



end;



end.

이방인 wrote:

> 사각형인 이미지를 출력하려 합니다...

> 그냥 출력하는 것이 아니라

> 사각 꼭지를 둥굴게 처리를 하여 출력하려 합니다.

> 여러번 시도를 했지만 잘 안돼네요.

> 그림 자체가 그렇게 생격먹었으면 좋겠는데

> 그렇게 돼면 안돼나봐요...

> 그래서 부득이 하게 이미지를 조작해서 출력을 해야 될것 같네요.

> 꼬지만 어떻게 라운드 처리하면 좋을 텐데...

> 도와 주세요...

> 그럼 부탁드립니다.

>

> 저의 이메일은 Angel1226@netsgo.com 입니다.





음... 테스트는 안해 봤지만...

이렇게 하면 될것입니다...

네모는 싫어라는 강좌를 응용한거기는 한데...



implementation

{$R *.DFM}



var

R : hRgn;



procedure TForm1.FormCreate(Sender: TObject);

begin

R := CreateEllipticRgn( 0, 0, Width, Height );

SetWindowRgn(image1.Handle,R,True);

end;



음냐 한번 해보세요...

나도 테스트 해봐야지 시간나면...



류민철...



ps.

만일 틀리다면 죄송해요...

테스트해보고 틀리면 방법을 다시 생각해 볼꼐요...