FiveTech Support Forums

#include "FiveWin.ch"


function Main()

   local oWnd
   local obmp1, obmp2, oBmp3, obmp4, oBmp5 ,oBmp10
   local ofont,oFont1
   local osay

   local nRowPos, nColPos, lDrag := .F.
   local oCrsHand,oFontBold



   sBet:=10
   nLastWin:= 0
   nScore:= 1000





   nWidthReel:= 128
   nHeightReels := 360
   nRowReel:= 40
   nColReel:=40
   nSpaceColReel:=10





   DEFINE CURSOR oCrsHand HAND


   DEFINE FONT ofont NAME "arial" SIZE 0,-80 BOLD
   DEFINE FONT ofont1 NAME "arial" SIZE 0,-22 BOLD

  DEFINE WINDOW oWnd  FROM 10, 10 TO 48,110 TITLE "TEST GDIPLUS"  



     @ nRowReel,nColReel BITMAP oBmp1 File "" size nWidthReel, nHeightReels pixel TRANSPARENT
     nColReel+= nWidthReel+nSpaceColReel
     @ nRowReel,nColReel BITMAP oBmp2 File "" size nWidthReel, nHeightReels pixel TRANSPARENT
     nColReel+= nWidthReel+nSpaceColReel
     @ nRowReel,nColReel BITMAP oBmp3 File "" size nWidthReel, nHeightReels pixel TRANSPARENT
     nColReel+= nWidthReel+nSpaceColReel
     @ nRowReel,nColReel BITMAP oBmp4 File "" size nWidthReel, nHeightReels pixel TRANSPARENT
     nColReel+= nWidthReel+nSpaceColReel
     @ nRowReel,nColReel BITMAP oBmp5 File "" size nWidthReel, nHeightReels pixel TRANSPARENT



     @ 30, 20 BITMAP oBmp10 File "" size (nWidthReel*5)+80, nHeightReels+40 pixel
         nRowReel +=500

   @ nRowReel,522 button "Line1" size 80,20 pixel Action Showlines(1,oBmp10)







   ACTIVATE WINDOW oWnd  ;
   ON INIT  oBmp10:HIDE()

   return nil



Function Showlines(nLinea,obmp10)

      local hDc
      local oGraphics10
      local oPen
      Local acolor:=array(25)

      acolor[1]:="0xFFFF00"   // I WISH THIS COLOR

         oBmp10:Show()

         hDc := obmp10:getDc()
          oPen := Pen():New( 255, 255, 0, 0 , 12 )
         oGraphics10 := Graphics():New( hDC )

     //     oGraphics10:DrawLine( oPen, nLeft, nTop, nRight, nBottom )
          oGraphics10:DrawLine( oPen, 10, 80, 760, 80 )



*obmp10:ReleaseDc(hDc)

oGraphics10:destroy()


Return nil