Español
Fuente/ Codesnippets

Carets

 

Normann
Strübli
Tiempo una kleiner Exkurs para Thema Carets

voluntad hier después de y después de veces unos pocos Sachen Puesto el Yo
hauptsächlich de Neugier veces probiert habe.

Bitte beim ausprobieren el angehängte Expediente no vergessen
KompilierenMarcaSeparación
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

 
21.05.2004  
 




Rolf
Koch
Hey Normann,
el es sí echt stark. Lustige Sache.

Rolf
 
21.05.2004  
 



Jepp, Su Demo Rockt

IF
 
21.05.2004  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

6.244 Views

Untitledvor 0 min.
p.specht27.06.2022
Manfred Barei28.03.2020
Rc24.12.2015

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie