MDI에서 화면을 보여주고자 하는데요.

현제 제가 짜놓은 프로세서는 bmp를 뿌리는걸로 했거든요...

혹시 여러분중에...

jpg로 뿌려줄수 있는분 있나요...?



procedure TfrmMain.ClientWndProc(var Message: TMessage);

var

MyDC : hDC;

Ro, Co : Word;

begin

with Message do

begin

case Msg of



//배경 처리를 위한 부분, Tile 형태로 배경을 처리한다.

WM_ERASEBKGND:

begin

MyDC := TWMEraseBkGnd(Message).DC;

for Ro := 0 TO ClientHeight DIV ImageLogo.Picture.Height DO

for Co := 0 TO ClientWIDTH DIV ImageLogo.Picture.Width DO

BitBlt( MyDC,

Co*ImageLogo.Picture.Width,

Ro*ImageLogo.Picture.Height,

ImageLogo.Picture.Width,

ImageLogo.Picture.Height,

ImageLogo.Picture.Bitmap.Canvas.Handle,

0,

0,

SRCCOPY);

Result := 1;

end



else



// Call Origin Message

Result := CallWindowProc(FPrevClientProc,

ClientHandle,

Msg,

wParam,

lParam);



end;

end;



end;



여기까정 입니다........감사...