# -#įunc _GetActiveCursor ( ) Local $hCursor, $hBitmap _GDIPlus _Startup ( ) get current mouse cursor as image $hCursor = _WinAPI _CopyIcon ( _WinAPI _GetCursorInfo ( ) ) get Active Cursor (cant IBeam in SciTE) $hCursor = _WinAPI_CopyIcon(_WinAPI_LoadCursor (0, $IDC_IBEAM)) get default 'Ibeam' pointer cursor (cant get I-Beam) Local $hBitmap = _GDIPlus _BitmapCreateFromHICON32 ( $hCursor ) _BitmapInfoAndSaveToPng ( $hBitmap, 'BitmapInfo - Active Cursor' ) _WinAPI _DestroyIcon ( $hCursor ) _GDIPlus _BitmapDispose ( $hBitmap ) _GDIPlus _Shutdown ( ) EndFuncįunc _BitmapInfoAndSaveToPng ( $hBitmap, $sTitle = 'BitmapInfo', $sw = 'tooltip' ) Local $bString, $bString2, $圆4String, $info, $sDim ~ _GDIPlus_Startup() show image binary string $bString = Image2BinaryString ( $hBitmap ) ~ $圆4String = _ConvertToBase64($bString) If StringCompare ( $bString, $_CURSOR_BINARY ) Then $_CURSOR_BINARY = $bString show image type $ImgType = _GDIPlus _ImageGetType ( $hBitmap ) 0 Or $ImgTypeError < 10 Then $imgFile = & '\SavedCursors\' & $sTitle & '. PNG images are perfect if you want to add small elements to your poster or. Expand collapse popup #include #include #include #include #include #include #include #include Global $_CURSOR_BINARY HotKeySet ( "", "Esc" ) ~ run('paint.exe') While 1 Sleep ( 250 ) _GetActiveCursor ( ) WEnd Scroll down to view our mouse cursor icon PNG images with transparent background.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |