FiveTech Support Forums

// GdiPlus example following Microsoft tutorial:
// <!-- m --><a class="postlink" href="http://msdn.microsoft.com/en-us/library/ms533895(v=VS.85">http://msdn.microsoft.com/en-us/library ... 95(v=VS.85</a><!-- m -->).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