Оберон-клуб «ВЄДАsoft»

PROCEDURE (v: View) Restore (f: Views.Frame; l, t, r, b: INTEGER);
  VAR g: GP.Graphics; pen: GP.Pen;
    BEGIN (*
  g := GP.CreateGraphics( f.rider(HostPorts.Rider).port.dc );
  g.Clear(0FFAA9900H);
  pen := GP.CreatePen(0FFBBBB00H, 5.0, 0);
  g.DrawLine(pen, 10, 10, 200, 100); *)
    END Restore;

include <gdiplus.h>
 
    HRESULT Load(LPCTSTR szFile)
    {
        USES_CONVERSION;
        // Create new Gdiplus::Image object
        m_pImage = new Gdiplus::Image(T2CW(szFile));
        ATLASSERT(m_pImage);
 
        // Check for success
        if (Gdiplus::Ok == m_pImage->GetLastStatus())
            return S_OK;
 
        // Cleanup on failure
        Destroy();
        return E_FAIL;
    }
 
    HRESULT DrawImg(HDC hdc, RECT& rcBounds)
    {
        if (m_pImage)
        {
            // Create Gdiplus::Graphics object from HDC
            Gdiplus::Graphics graphics(hdc);
            // Create Gdiplus::Rect object from RECT
            Gdiplus::Rect rc(rcBounds.left, rcBounds.top, rcBounds.right, rcBounds.bottom);
 
            // Draw the image
            return Gdiplus::Ok == graphics.DrawImage(
                m_pImage,                        // [in] Gdiplus::Image object
                rc                                // [in] Position and dimensions
                ) ? S_OK : E_FAIL;
        }
 
        return E_UNEXPECTED;
    }