Pointer cursors code#

New Matrix( 1 / _Blur, 0, 0, 1 / _Blur, _Offset.X, _Offset.Y) ' this matrix zooms the text and offsets it Dim mx As Matrix = _ GBlur.TextRenderingHint = TextRenderingHint.AntiAlias ' Get a graphics object for it Using gBlur As Graphics = Graphics.FromImage(bm) New Bitmap( CInt(rect.Width / _Blur), CInt(rect.Height / _Blur)) ' Make a small (Blurred) bitmap Using bm As Bitmap = _

Pointer cursors code#

I set this into a TextShadower Class up to make using it easier.Д¬opy Code Public Sub ShadowTheText( ByVal g As Graphics, ByVal rect As Rectangle) Finally paint the normal text over that to complete the effect. Paint that image back to the normal size Graphics Object with the InterpolationMode.HighQualityBicubic set. In a nutshell, paint the text to a Bitmap and use a Matrix to shrink and offset it. I adapted this code into a separate Class because I thought it will be useful in other projects. After doing some poking around, I found an interesting snippet on Bob Powell's great GDI site. I never really liked the look of the original text shadow, but that was what I had. New Rectangle( 0, 0, _gImage.Width, _gImage.Height), _Д®nd Function TextShadower Class For Improved Text Shadowing - New in Version 1.1 Using g As Graphics = Graphics.FromImage(bm) Using ia As ImageAttributes = New ImageAttributes()Дim cm As ColorMatrix = New ColorMatrix() ' Use a ColorMatrix to create a Transparent Image Dim bm As Bitmap = New Bitmap(_gImage.Width, _gImage.Height) To make the Image transparent, I used a ColorMatrix in the Function:Д¬opy Code Private Function ImageTransp() As Bitmap Default Select Case gScrollingД®ffectCursor.Draw(g, New Rectangle(_gHotSpotPt.X, _gHotSpotPt.Y, _Д®, )) ' Add the image of the Effect Cursor to the gCursor Image If addEffect Then Dim EffectCursor As Cursor = Cursors. Public Sub MakeCursor( Optional ByVal addEffect As Boolean = True) New Cursor( New System.IO.MemoryStream(My.Resources.Copy)) New Cursor( New System.IO.MemoryStream(My.Resources.Move)) New Cursor( New System.IO.MemoryStream(My.Resources.No)) The New method has 6 Overloads to make a new generic gCursor:Д¬opy Code Private ReadOnly CurNo As Cursor = _ If tmp.hbmColor IntPtr.Zero Then DeleteObject(tmp.hbmColor)Д®nd Function #End Region 'CreateIconIndirect New Method Pnt = Nothing If tmp.hbmMask IntPtr.Zero Then DeleteObject(tmp.hbmMask) ' Clean Up If pnt IntPtr.Zero Then DestroyIcon(pnt) _gCursorImage = Icon.FromHandle(curPtr).ToBitmap ' I use it to create a screen shot with the gCursor included ' Save the image of the cursor with the _gBlackBitBack effect ' Not really needed for normal use. Tmp.hbmColor = bmp.GetHbitmap(Color.FromArgb( 0, 0, 0, 0))Д®nd If ' Create the Pointer for the Cursor Icon Dim pnt As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(tmp)) Tmp.hbmMask = bmp.GetHbitmap(Color.FromArgb( 0, 0, 0, 0)) Private Shared Function CreateIconIndirect( _Д«yVal iconInfo As IntPtr) As IntPtr End FunctionД«yVal handle As IntPtr) As Boolean End FunctionД«yVal hObject As IntPtr) As Boolean End Function Private curPtr As IntPtr Public Function CreateCursor( ByVal bmp As Bitmap) As CursorД®nd If ' Setup the Cursors IconInfo Dim tmp As New IconInfo Public fIcon As Boolean Public xHotspot As Int32 Public yHotspot As Int32 Public hbmMask As IntPtr Public hbmColor As IntPtr End Structure Part One - gCursorДЇor a Quick and Dirty, you can simply take any Bitmap and use it in the CursorвЂ™s new method. Both of these Cursors let you build 3 main types of custom cursors: Text, Picture, or Picture and Text combination. Each has its Pros and Cons over the other, but usually one of them will fit the bill. Then in the process of making the gCursor I got another idea to use ToolStripDropDown which also ended up working pretty well. Despite this irritating hitch, I still saw the answer to my cursor needs. So if anyone knows a cure for the bitmap вЂњBluesвЂќ please enlighten us all. I did figure out the blue tint can be switched to a black tint, and that putting an alphablended bitmap on the clipboard suffers the same fate. So far I have not come up with a workable solution. I spent way too much time searching, thinking there must be an answer out thereвЂ¦ somewhereвЂ¦ anywhere. I soon became obsessed with trying to solve the blue tint problem with converting an alphablended bitmap to a cursor. Then I saw the xCursor article by Elkay and saw new hope. Of course, this had flicker and boundary clipping problems that I never liked. I had continued to rely on the old workarounds like painting an image on the control or by having a Label, PictureBox, or combination follow the cursor around the screen. I had hoped it would have been updated in. I have always disliked the standard Inviso-Drag and Drop cursor.