I wish insert a line over these bitmaps for n seconds when I press a button
I made it with gdiplus but the line is down and not over
I tried to insert another big bitmap to hide and show when I press the button but this bitmap is down and not over the 5 bitmaps
this is my test to try
- Code: Select all Expand view
#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
