OpenEuphoria

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

• Posted by Selgor May 08, 2010
• 1472 views

Hi,

Just wondering if I can set the pointer to a colour ?

Tried setTextColor(Pointer,Red) .. subscript error setTextColor(PopWin,Red) .. nothing

Just trying to learn .

Cheers, Selgor.

 
 
include win32lib.ew 
without warning 
 
constant 
 Pointer = createMousePointer( 5, 1, { 
 
 "     xx            " , 
 "    x  x           " , 
 "    x  x           " , 
 "    x  x           " , 
 "    x  x           " , 
 "    x  xxx         " , 
 "    x  x  x        " , 
 "    x  x  xxx      " , 
 "    x  x  x  x     " , 
 "  xxx  x  x  xxx   " , 
 " x  x  x  x  x  x  " , 
 " x  x  x  x  x  x  " , 
 " x  x  x  x  x  x  " , 
 " x              x  " , 
 " x              x  " , 
 " x              x  " , 
 " x              x  " , 
 " x              x  " , 
 "  x             x  " , 
 "   x           x   " , 
 "    xxxxxxxxxxx    " , 
 "    xxxxxxxxxxx    " , 
 "    xxxxxxxxxxx    " , 
 "    xxxxxxxxxxx    "    } ) 
 
 constant 
PopWin=create(Window,"",0,700,0,155,200,{WS_POPUP,WS_BORDER,WS_VISIBLE}) 
 
setWindowBackColor(PopWin,#FFFFFF) 
 setMousePointer( PopWin, Pointer ) 
 
procedure get_app(integer pntr, integer event, sequence parms) 
                   --- pntr replaced self 
if pntr = PopWin then 
     setVisible(PopWin,0) 
  end if 
 
end procedure 
 
setHandler({PopWin}, w32HClick, routine_id("get_app")) 
WinMain(PopWin, Normal)