Reply to thread

Message

<blockquote data-quote="dero" data-source="post: 126981" data-attributes="member: 29291">Hi MJ,Then maybe someone should design such a skin...&nbsp; I am quite new to MP, but perhaps I give it a try.I don't know whether it messes up DirectX acceleration. However, I cannot see any difference. But, it flickers a little bit when you have running something in non-fullscreen (i.e. in the little box at the lower left).How to do it:You get the DesktopDC using CreateDC('DISPLAY', nil, nil, nil). You bitblt the contents to an offscreen bitmap. You stretchblt this offscreen bitmap to another offscreen bitmap. You blit the result to your window or you get the DesktopDC again and blit directly into the second display. Delphi-Code:[CODE]&nbsp; &nbsp; &nbsp; &nbsp; sw := Screen.Monitors[0].Width;&nbsp; &nbsp; sh := Screen.Monitors[0].Height;&nbsp; &nbsp; &nbsp; &nbsp; if ScreenBuffer = nil then&nbsp; &nbsp; &nbsp; &nbsp; begin&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ScreenBuffer := TBitmap.Create;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ScreenBuffer.Width := sw;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ScreenBuffer.Height := sh;&nbsp; &nbsp; &nbsp; &nbsp; end;&nbsp; &nbsp; &nbsp; &nbsp; if DisplayBuffer = nil then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DisplayBuffer := TBitmap.Create;&nbsp; &nbsp; &nbsp; &nbsp; DisplayBuffer.Width := pbDisplay.ClientWidth;&nbsp; &nbsp; &nbsp; &nbsp; DisplayBuffer.Height := pbDisplay.ClientHeight;&nbsp; &nbsp; &nbsp; &nbsp; ScreenBuffer.Canvas.Lock;&nbsp; &nbsp; &nbsp; &nbsp; DisplayBuffer.Canvas.Lock;&nbsp; &nbsp; &nbsp; &nbsp; // scr -&gt; buf&nbsp; &nbsp; &nbsp; &nbsp; DesktopDC := CreateDC('DISPLAY', nil, nil, nil);&nbsp; &nbsp; &nbsp; &nbsp; try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BitBlt( ScreenBuffer.Canvas.Handle, 0, 0, ScreenBuffer.Width, ScreenBuffer.Height, DesktopDC, 0, 0, SRCCOPY );&nbsp; &nbsp; &nbsp; &nbsp; finally&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DeleteDC( DesktopDC );&nbsp; &nbsp; &nbsp; &nbsp; end;&nbsp; &nbsp; &nbsp; &nbsp; // buf -&gt; dbuf&nbsp; &nbsp; &nbsp; &nbsp; PDC := DisplayBuffer.Canvas.Handle;&nbsp; &nbsp; &nbsp; &nbsp; if setDisplayHighQuality then SetStretchBltMode( PDC, STRETCH_HALFTONE )&nbsp; &nbsp; &nbsp; &nbsp; else SetStretchBltMode( PDC, STRETCH_DELETESCANS );&nbsp; &nbsp; &nbsp; &nbsp; StretchBlt( PDC, 0, 0, pbDisplay.ClientWidth, pbDisplay.ClientHeight, ScreenBuffer.Canvas.Handle,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 0, 0, sw, sh, SRCCOPY );&nbsp; &nbsp; &nbsp; &nbsp; // dbuf -&gt; scr&nbsp; &nbsp; &nbsp; &nbsp; ul := pbDisplay.ClientToScreen( Point( 0, 0 ) );&nbsp; &nbsp; &nbsp; &nbsp; PDC := CreateDC('DISPLAY', nil, nil, nil);&nbsp; &nbsp; &nbsp; &nbsp; try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; BitBlt( PDC, ul.X, ul.Y, pbDisplay.ClientWidth, pbDisplay.ClientHeight, DisplayBuffer.Canvas.Handle,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 0, 0, SRCCOPY );&nbsp; &nbsp; &nbsp; &nbsp; finally&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DeleteDC( PDC );&nbsp; &nbsp; &nbsp; &nbsp; end;&nbsp; &nbsp; &nbsp; &nbsp; DisplayBuffer.Canvas.Unlock;&nbsp; &nbsp; &nbsp; &nbsp; ScreenBuffer.Canvas.Unlock;[/CODE]Regards,dero</blockquote>

[QUOTE="dero, post: 126981, member: 29291"] Hi MJ, Then maybe someone should design such a skin... I am quite new to MP, but perhaps I give it a try. I don't know whether it messes up DirectX acceleration. However, I cannot see any difference. But, it flickers a little bit when you have running something in non-fullscreen (i.e. in the little box at the lower left). How to do it: You get the DesktopDC using CreateDC('DISPLAY', nil, nil, nil). You bitblt the contents to an offscreen bitmap. You stretchblt this offscreen bitmap to another offscreen bitmap. You blit the result to your window or you get the DesktopDC again and blit directly into the second display. Delphi-Code: [CODE] sw := Screen.Monitors[0].Width; sh := Screen.Monitors[0].Height; if ScreenBuffer = nil then begin ScreenBuffer := TBitmap.Create; ScreenBuffer.Width := sw; ScreenBuffer.Height := sh; end; if DisplayBuffer = nil then DisplayBuffer := TBitmap.Create; DisplayBuffer.Width := pbDisplay.ClientWidth; DisplayBuffer.Height := pbDisplay.ClientHeight; ScreenBuffer.Canvas.Lock; DisplayBuffer.Canvas.Lock; // scr -> buf DesktopDC := CreateDC('DISPLAY', nil, nil, nil); try BitBlt( ScreenBuffer.Canvas.Handle, 0, 0, ScreenBuffer.Width, ScreenBuffer.Height, DesktopDC, 0, 0, SRCCOPY ); finally DeleteDC( DesktopDC ); end; // buf -> dbuf PDC := DisplayBuffer.Canvas.Handle; if setDisplayHighQuality then SetStretchBltMode( PDC, STRETCH_HALFTONE ) else SetStretchBltMode( PDC, STRETCH_DELETESCANS ); StretchBlt( PDC, 0, 0, pbDisplay.ClientWidth, pbDisplay.ClientHeight, ScreenBuffer.Canvas.Handle, 0, 0, sw, sh, SRCCOPY ); // dbuf -> scr ul := pbDisplay.ClientToScreen( Point( 0, 0 ) ); PDC := CreateDC('DISPLAY', nil, nil, nil); try BitBlt( PDC, ul.X, ul.Y, pbDisplay.ClientWidth, pbDisplay.ClientHeight, DisplayBuffer.Canvas.Handle, 0, 0, SRCCOPY ); finally DeleteDC( PDC ); end; DisplayBuffer.Canvas.Unlock; ScreenBuffer.Canvas.Unlock; [/CODE] Regards, dero [/QUOTE]

Verification