XProfan

WIN32 API Teil 1
THEMA: CARET
Autor: Normann Strübli
Was ist ein Caret?
Ein Caret ist eine Einfügemarke die man von sämtlichen Eingabe-
feldern kennt (Der blinkende Cursor).
Für jedes Fenster kann es nur ein Caret gleichzeitig geben
(Logisch sonst wüsste man ja nicht wo man gerade was eingeben darf)
Das so ein Caret nicht immer ein Strich oder Balken sein muß sondern
auch anders aussehen kann möchte ich in diesem
(nicht ganz erztzunehmenden Beispiel ;-) einmal verdeutlichen.
def LoadImage(6) !"user32","LoadImageA"
DEF CreateCaret(4) ! "USER32","CreateCaret"
Aufruf:   CreateCaret(HWND,HBITMAP,nWidth,nHeight)
HWND:     das Fenster das dem Caret zugeordnet ist
hBitmap:  Ein Handle das den Umriß des Carets definiert,
bei Wert 1 wird ein schwarzes Caret mit nWidth Breite
und nHeight Höhe erzeugt, Wert 2 genauso nur Grau.
Wird ein Bitmap-Handle übergeben so wird dieses Bild
später invertiert dargestellt und die Parameter nWidth
und nHeight werden ignoriert.
DEF ShowCaret(1) ! "USER32","ShowCaret"
Aufruf:   Showcaret(HWND)
Macht das Caret an seiner aktuellen Position auf dem Bildschirm sichtbar.
DEF HideCaret(1) !"USER32","HideCaret"
Aufruf:   HideCaret(HWND)
Entfernt das Caret vom Bildschirm (Umriß und Position bleiben erhalten)
DEF SetCaretPos(2) ! "USER32","SetCaretPos"
Verschiebt das Caret an die angegebenen Koordinaten
DEF GetCaretPos(1) !"USER32","GetCaretPos"
declare Caretpos#
dim Caretpos#,16
Aufruf:   GetCaretPos(Point#)
Kopiert die Position in den Bereich Point#
DEF SetCaretBlinkTime(1) ! "USER32","SetCaretBlinkTime"
Aufruf:   SetCaretBlinkTime(Zeit in ms)
Def GetCaretBlinkTime(0) !"USER32","GetCaretBlinkTime"
Gibt die Zeit in millisekunden zurück die zwischen dem Aufblinken des Carets vergeht
Def DestroyCaret(0) !"USER32","DestroyCaret"
Entfernt die aktuelle Caret-Form aus dem Fenster und vom Bildschirm, das Bitmap
wird dabei allerdings nicht freigegeben.
Windowtitle "Spaß mit Carets"
window 0,0-460,300
declare Bmp_Handle1&,BMP_Handle2&,Bitmap1$,Bitmap2$
Bitmap1$="Caret.bmp"
Bitmap2$="Caret2.bmp"
Bmp_Handle1&=LoadImage(0,addr(Bitmap1$),0,15,15,16) ---- Image 15x15 laden...
Bmp_Handle2&=LoadImage(0,addr(Bitmap2$),0,15,15,16)
Declare Edit_Happy&,Edit_Sad&
@Create("Text",%hwnd,"Dies ist ein Happy-Edit",10,20,200,20)
@Create("Text",%hwnd,"Das hier nicht...",240,20,200,20)
Edit_Happy& = @Create("RichEdit",%hwnd,"",10,40,200,125)
Edit_Sad& = @Create("RichEdit",%hwnd,"",240,40,200,125)

while 1

    getmessage

    if @getfocus(edit_happy&)

        if @or(@or(%message = 256,%message = 273), %message = 513)

            Getcaretpos(caretpos#)
            CreateCaret(edit_Happy&,Bmp_Handle1&,0,0)
            SetCaretPos(long(caretpos#,0),long(caretpos#,4))
            ShowCaret(edit_happy&)

        endif

    elseif @getfocus(edit_sad&)

        if @or(@or(%message = 256,%message = 273), %message = 513)

            Getcaretpos(caretpos#)
            CreateCaret(edit_sad&,Bmp_Handle2&,0,0)
            SetCaretPos(long(caretpos#,0),long(caretpos#,4))
            ShowCaret(edit_sad&)

        endif

    wend