제 나름대로 간략한 그림그리기 기법을 통해서 그 그려진 그림을 BMP파일로 저장하는

예제를 아래에 올립니다. 참고하세요.

터치스크린 = 마우스..아시죠?



type

TForm1 = class(TForm)

Image1: TImage;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



//이 버튼프로시져는 이미지컴포넌트를 하얀백지상태로 만듭니다.

//"FillRect"대신 FloodFill를 쓰세요!

procedure TForm1.Button1Click(Sender: TObject);

var

MyRect : TRect;

begin

MyRect.Left := 0;

MyRect.Top := 0;

MyRect.Bottom := 10;

MyRect.Right := 10;

Image1.Canvas.FillRect(MyRect);

end;



//이 부분이 중요한데요. 전 간단하게 마우스를 움직이면 빨간점이 생기도록 했습니다.

//원하시는 내용이 아니지만요. 마우스 왼쪽 버튼을 클릭한 상태에서 움직이면 그려져야하죠?

//그러기 위해서 "MouseDown" 이벤트와 "MouseUp" 이벤트에 상태 플래그, 즉 상태임수변수를

//하나 만들어 주고

//현재 마우스가 움직이는데 왼쪽버튼이 눌려져 있는냐? 그러면 그리고

//왼쪽 버튼을 땠느냐? 그러면 그리기를 취소하고...

//그림 그리는것도 픽셀에 색상을 입히는게 아니라 라인이나 다른 그리기 함수를 쓰셔야 합니다.

//"싸인"이니깐 쫌 부드럽게 그려져야 하니깐요!

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image1.Canvas.Pixels[X,Y] := clRed;

end;



//그려진 그림을 파일로 저장하는 버튼의 프로시져입니다.

//임시 Bitmap 개체를 생성하고

//그 Bitmap 개체에 Image1에 그려진 내용을 할당하고 저장합니다.

procedure TForm1.Button2Click(Sender: TObject);

var

SaveBitmap : TBitmap;

begin

SaveBitmap := TBitmap.Create;

SaveBitmap.Assign(Image1.Picture);

SaveBitmap.SaveToFile('c:tempsample.bmp');

SaveBitmap.Free;

end;



end.



도움이 됐으면 합니다. 그럼~~

윤진화씨 정말로 감사합니다.

덕분에 간단하게 해결이 되었습니다.

진심으로 감사드리며 좋은 하루가 되시길 바랍니다.



윤진화 wrote:

> 제 나름대로 간략한 그림그리기 기법을 통해서 그 그려진 그림을 BMP파일로 저장하는

> 예제를 아래에 올립니다. 참고하세요.

> 터치스크린 = 마우스..아시죠?

>

> type

> TForm1 = class(TForm)

> Image1: TImage;

> Button1: TButton;

> Button2: TButton;

> procedure Button1Click(Sender: TObject);

> procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

> Y: Integer);

> procedure Button2Click(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

> //이 버튼프로시져는 이미지컴포넌트를 하얀백지상태로 만듭니다.

> //"FillRect"대신 FloodFill를 쓰세요!

> procedure TForm1.Button1Click(Sender: TObject);

> var

> MyRect : TRect;

> begin

> MyRect.Left := 0;

> MyRect.Top := 0;

> MyRect.Bottom := 10;

> MyRect.Right := 10;

> Image1.Canvas.FillRect(MyRect);

> end;

>

> //이 부분이 중요한데요. 전 간단하게 마우스를 움직이면 빨간점이 생기도록 했습니다.

> //원하시는 내용이 아니지만요. 마우스 왼쪽 버튼을 클릭한 상태에서 움직이면 그려져야하죠?

> //그러기 위해서 "MouseDown" 이벤트와 "MouseUp" 이벤트에 상태 플래그, 즉 상태임수변수를

> //하나 만들어 주고

> //현재 마우스가 움직이는데 왼쪽버튼이 눌려져 있는냐? 그러면 그리고

> //왼쪽 버튼을 땠느냐? 그러면 그리기를 취소하고...

> //그림 그리는것도 픽셀에 색상을 입히는게 아니라 라인이나 다른 그리기 함수를 쓰셔야 합니다.

> //"싸인"이니깐 쫌 부드럽게 그려져야 하니깐요!

> procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

> Y: Integer);

> begin

> Image1.Canvas.Pixels[X,Y] := clRed;

> end;

>

> //그려진 그림을 파일로 저장하는 버튼의 프로시져입니다.

> //임시 Bitmap 개체를 생성하고

> //그 Bitmap 개체에 Image1에 그려진 내용을 할당하고 저장합니다.

> procedure TForm1.Button2Click(Sender: TObject);

> var

> SaveBitmap : TBitmap;

> begin

> SaveBitmap := TBitmap.Create;

> SaveBitmap.Assign(Image1.Picture);

> SaveBitmap.SaveToFile('c:tempsample.bmp');

> SaveBitmap.Free;

> end;

>

> end.

>

> 도움이 됐으면 합니다. 그럼~~