Français
Source/ Codesnippets

Contrôle Éditer Farbige Hauptfenster Style Tabstop

 
Farbige Éditer Contrôle et la fenêtre principale avec Tabstop Style de Andreas Miethe:
KompilierenMarqueSéparation
Declare Edit1&,Edit2&,Edit3&,Button1&,Button2&,Brush&
Declare Ende&,OldWindowProc&
 $H windows.ph
 $H messages.ph
set("FastMode",1)

PROC SetColor

    Behandlungroutine für
    WM_CTLCOLORSTATIC,WM_CTLCOLOREDIT und WM_CTLCOLORLISTBOX
    es wird ein farbiger Brush angelegt und die Textfarbe bestimmt
    Parameters col&,bk&,wParam&

    IF Brush&

        ~DeleteObject(Brush&)

    Endif

    Brush& = ~CreateSolidBrush(bk&)
    ~SetBkMode(wParam&, ~TRANSPARENT)
    ~SetTextColor(wParam&,col&)
    Return Brush&

Endproc

Proc Windowproc

    parameters Wnd&, Msg&, wParam&, lParam&

    If Msg& = ~WM_CLOSE

        Aufräumen

        IF Brush&

            ~DeleteObject(Brush&)

        Endif

        ~PostQuitMessage(Wnd&,0,0)

    Endif

    If Msg& = ~WM_CTLCOLOREDIT

        If lParam& = Edit1&

            Return SetColor(rgb(255,0,0),rgb(255,255,0),wParam&)

        Elseif lParam& = Edit2&

            Return SetColor(rgb(0,0,128),rgb(255,0,255),wParam&)

        Elseif lParam& = Edit3&

            Return SetColor(rgb(255,255,255),rgb(0,0,128),wParam&)

        Endif

    Endif

    If Msg& = ~WM_COMMAND

        IF lParam& = Button1& Button1 abfragen

            IF (wParam& >> 16) = ~BN_CLICKED HiWord

                ~Messagebox(0,"Button1 Klick","Meldung",0)

            Endif

        Endif

        IF lParam& = Button2& Button2 abfragen

            IF (wParam& >> 16) = ~BN_CLICKED HiWord

                ~Messagebox(0,"Button2 Klick","Meldung",0)

            Endif

        Endif

    Endif

    alle nicht behandelten Meldungen an die Originalprozedur weiterleiten
    Return ~CallWindowProc(OldWindowproc&,Wnd&, Msg&, WParam&, LParam&)

Endproc

WindowStyle 543
cls ~GetSysColor(~COLOR_BTNFACE)
ein paar Controls anlegen
Edit1& = Create("Edit",%Hwnd,"Edit1",10,10,80,20)
Sendmessage(Edit1&,~WM_SETFONT,~GetStockObject(~DEFAULT_GUI_FONT),1)
Edit2& = Create("Edit",%Hwnd,"Edit2",10,40,80,20)
Sendmessage(Edit2&,~WM_SETFONT,~GetStockObject(~DEFAULT_GUI_FONT),1)
Edit3& = Create("Edit",%Hwnd,"Edit3",10,70,80,20)
Sendmessage(Edit3&,~WM_SETFONT,~GetStockObject(~DEFAULT_GUI_FONT),1)
Button1& = Create("Button",%Hwnd,"Button1",10,110,80,20)
Sendmessage(Button1&,~WM_SETFONT,~GetStockObject(~DEFAULT_GUI_FONT),1)
Button2& = Create("Button",%Hwnd,"Button2",10,150,80,20)
Sendmessage(Button2&,~WM_SETFONT,~GetStockObject(~DEFAULT_GUI_FONT),1)
Window-Prozedur austauschen
OldWindowproc& = ~SetWindowLong(%hwnd,~GWL_WNDPROC, ProcAddr(WindowProc,4))

Whilenot Ende&

    waitinput

Endwhile

end
Salve, iF.
 
01.07.2005  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

2.679 Views

Untitledvor 0 min.
H.Brill07.06.2021
Torben Nissen04.05.2020
Ernst13.06.2016
RudiB.03.04.2016
plus...

Themeninformationen

cet Thema hat 1 participant:

iF (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie