염치불문하고 또다시 질문을 올립니다.

최용일님께서 어제 올려주신 답변을 바탕으로 혼자서 해결해볼려고 노력해보았지만

역시 실력이 실력이라 도저히 안됩니다.



아래의 축소시킨 이미지를 Tile모드와 Center모드로 판넬위에 디스플레이하고

싶습니다.

예제가 있다면 올려주시면 감사하겠습니다.



TPaintBox를 사용해서 하니까 이미지가 원래사이즈로 표시가 됩니다.

그래서 TImage를 사용했는데 암만 생각해도 PaintBox를 사용하는게 맞을것 같은데..



고수님들의 고견을 기다립니다.







var

R:TRect;

Source: TBitmap; // 원본 이미지

Dest: TBitmap; // 확대or축소된 이미지

begin

if Pic.Bitmap.Width = 0 then Exit;

Source:=Pic.Bitmap;



Dest:=TBitmap.Create;

Dest.Width := Panel7.Width;

Dest.height := Panel7.Height;



SetMapMode(Dest.Canvas.Handle, MM_ISOTROPIC);

SetWindowExtEx(Dest.Canvas.Handle, Source.Width, Source.Height, nil);

SetViewportExtEx(Dest.Canvas.Handle, Dest.Width, Dest.height, nil);



Dest.Canvas.Draw(0, 0, Source);

Image1.Picture.Bitmap.Assign(Dest);

Dest.Destroy;