http://msdn.microsoft.com/en-us/library/ms533895(v=VS.85).aspx
- Code: Select all Expand view
- // GdiPlus example following Microsoft tutorial:
// http://msdn.microsoft.com/en-us/library ... 95(v=VS.85).aspx
#include "FiveWin.ch"
function Main()
local oWnd
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd ;
ON PAINT DrawLine( hDC )
return nil
function DrawLine( hDC )
local oGraphics := Graphics():New( hDC )
local oPen := Pen():New( 255, 0, 0, 255 ) // nTransparency, nRed, nGreen, nBlue
oGraphics:DrawLine( oPen, 0, 0, 200, 100 )
return nil