OpenEuphoria

Re: setTextColor() Have Pointer Can it be a Red, Blue , ?? Any Help ??

• Posted by Selgor May 11, 2010
• 1405 views

Hi Don, Pete,

Thanks again to each of you.

I have further added the following code.

The result is a red strip.

So I must be closer to a coloured Pointer ??

Cheers,

Selgor

 
 
atom qBitmap 
sequence pixels ,pal 
 
pixels={ 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0},--  } 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}, 
{0,0,0,0}       } 
 
pal= { 
{255,0,0} , 
{0, 0, 255} } 
 
qBitmap = createDIB( {pal, pixels} ) 
 
 
  procedure paint1(integer self, integer event, sequence parms) 
-- display the bitmap in PopWin at {81,81} 
    drawBitmap( PopWin, qBitmap, 81, 81 ) 
end procedure 
setHandler(PopWin, w32HPaint, routine_id("paint1"))