OpenEuphoria

Re: Error code 425

• Posted by don cole <doncole at pacbell.net> Sep 22, 2006
• 582 views

Hello Derek thanks for replying,

I found out it only errors with "Courier" not "Ariel".

So I'll just use Ariel.

Here's some of the code I can give you more if you need it.

fac=(pbMaxRight/count)--pb is progress bar

procedure printNumber(atom x) 
 setFont( {RGBWin,pixmap1,pixmap5}, "Arial", 12, Bold)
 setPenPos( pixmap1,80,85)
 setPenPos( pixmap5,80,85)
 wPrintf( pixmap1,"%d",{20})
 wPrintf( pixmap5,"%d",{20})
end procedure

procedure part2(atom x)--------------------the moving bar-----------------
bitBlt ( RGBWin,--dst red
                  0,--dstX across
                 10,-- dstY up and down
            pixmap1,-- src red
                  0,--srcX  
                  0,-- srcY
            mg:int(x),-- wide
          pbHeight,-- high
              SrcCopy   )-- rop 
end procedure

procedure Paint_mainWindow(integer self, integer event, sequence parms) 
    copyBlt ( RGBWin, 0, 10, pixmap5 )--the background bar
     for x=1 to count do
     part2(x*fac)--red
     printNumber(x)
     end for
end procedure
setHandler(RGBWin, w32HPaint,routine_id("Paint_mainWindow"))

I'm trying to put the percent complete in the middle of the progress bar like
  so.
Progress Bar>     ------------------------50%------------------------

Don Cole