GUICaret UDF

[Kip]

My third UDF this week. I hope you like it as much as the other ones.

A caret can have multiple shapes, but does the same thing: showing you where the next next will be insterted.

Functions:

Func _Caret_Create($hWnd, $hBitmap=0, $iWidth=1, $iHeight=16)
 Func _Caret_Show($hWnd)
 Func _Caret_SetPos($iX, $iY)
 Func _Caret_SetBlinkTime($iTime); WARNING! Do not use this function! This is the same as setting the blink time in the Control Panel. Other applications will use this time too.
 Func _Caret_GetBlinkTime()
 Func _Caret_Hide($hWnd)
 Func _Caret_Destroy()
 Func _Caret_GetPos()

MSDN says that you should destroy the control everytime the window looses focus, and create it again when the focus is back.

I haven't got any error when I didn't, but if I were you I should do it anyway.

Example:

expandcollapse popup

#Include <WindowsConstants.au3>
 #include <GuiConstantsEx.au3>
 #include <GuiCaret.au3>
 #include <WinAPI.au3>
 #include <Constants.au3>
 
 $GUI = GUICreate("bye",700,500)
     
     GUICtrlCreateLabel("This is a text which can't be edited",200,102,163)
     GUICtrlCreateLabel("(Altough it might looks like it.)",200,118,200)
     
     _Caret_Create($GUI); The blinking thing
     _Caret_SetPos(364, 100)
     _Caret_Show($GUI)
     
 GUISetState()
 
; >> These two functions are for registering messages. If you dont get these functions, just use GUIRegisterMsg()
 $sCallback = DllCallbackRegister("CallbackFunc","int","hwnd;uint;wparam;lparam")
 $MsgProc = _WinAPI_SetWindowLong(WinGetHandle($GUI),$GWL_WNDPROC,DllCallBackGetPtr($sCallback))
; <<
 
 
 While 1
     If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
 WEnd
 
 
 Func CallbackFunc($hWnd,$iMsg,$wParam,$lParam)
     
     Switch $hWnd
         Case $GUI
             
             Switch $iMsg
                 
                 Case $WM_KILLFOCUS
                     
                     _Caret_Destroy(); MSDN says that I should destroy it when the focus is lost...
                     
                 Case $WM_SETFOCUS
                     
                     _Caret_Create($hWnd); ... and create it again when the focus is set. Altough I havent seen any errors when I didn't destroyed it.
                     _Caret_SetPos(200, 100)
                     _Caret_Show($hWnd)
                     
             EndSwitch
             
             Return _WinAPI_CallWindowProc($MsgProc,$hWnd,$iMsg,$wParam,$lParam)
             
     EndSwitch
     
 EndFunc

GUICaret.au3

Edited September 3, 2008 by Kip

[MrCreatoR]

Very nice UDF!

Thanks for sharing.

About the shapes of the caret, how do i set them? for example underline.

[Kip]

Like this:?

_Caret_Create($GUI,0,8,1); The blinking thing

_Caret_SetPos(364, 116)

[MrCreatoR]

Like this:?

That's it, thanks

And how about bitmaps, can you please show an example of bitmap usage?

[Kip]

expandcollapse popup

#Include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <GuiCaret.au3>
#include <WinAPI.au3>
#include <Constants.au3>


$GUI = GUICreate("bye",700,500)
    
     GUICtrlCreateLabel("This is a text which can't be edited",200,102,163)
     GUICtrlCreateLabel("(Altough it might looks like it.)",200,118,200)
    
     $hBitmap = _WinAPI_LoadImage(0, "pinch.bmp", $IMAGE_BITMAP, 0, 0, $LR_LOADFROMFILE)
    
     _Caret_Create($GUI, $hBitmap); The blinking thing
     _Caret_SetPos(364, 100)
     _Caret_Show($GUI)
    
GUISetState()

; >> These two functions are for registering messages. If you dont get these functions, just use GUIRegisterMsg()
$sCallback = DllCallbackRegister("CallbackFunc","int","hwnd;uint;wparam;lparam")
$MsgProc = _WinAPI_SetWindowLong(WinGetHandle($GUI),$GWL_WNDPROC,DllCallBackGetPtr($sCallback))
; <<


While 1
     If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
WEnd


Func CallbackFunc($hWnd,$iMsg,$wParam,$lParam)
    
     Switch $hWnd
         Case $GUI
            
             Switch $iMsg
                
                 Case $WM_KILLFOCUS
                    
                     _Caret_Destroy(); MSDN says that I should destroy it when the focus is lost...
                    
                 Case $WM_SETFOCUS
                    
                     _Caret_Create($hWnd); ... and create it again when the focus is set. Altough I havent seen any errors when I didn't destroyed it.
                     _Caret_SetPos(200, 100)
                     _Caret_Show($hWnd)
                    
             EndSwitch
            
             Return _WinAPI_CallWindowProc($MsgProc,$hWnd,$iMsg,$wParam,$lParam)
            
     EndSwitch
    
EndFunc

[MrCreatoR]

Thanks, now i get it

[Kip]

You're welcome