home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / jul94 / mmfig07b.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  31.2 KB  |  581x317  |  8-bit (256 colors)
   ocr: CURSOREEField7EmouseEnter" nethod nouseEnter(uar eventinfo MouseEvent) var hModule, hCursor snallint enduar - Change mouse pointer to circle with diagonal bar disableDefault hModule = GetModuleHandle("PAFORM") if hHodule € 0 then hCursor = LoadCursor(hModule,218) if hCursor € 0 then setMouseshape(ncursor) endif endif endMethod Edit Line: 12 Col: 1