XProfan

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Bleibt seulement den Text aussi subclassen -

là lautet qui Message WM_CTLCOLORSTATIC -

et ensuite SetBkMode( wParam , TRANSPARENT )

30.01.2013 ▲

ByteAttack

exposition la fois [...]

XProfan X2
Win7 Ultimate, SP1, AMD Phenom(tm) II X6 1090T Processor
Website: [...]

Facebook: [...]

30.01.2013 ▲

Torben
Nissen

Vielen Dank! c'est aussi super! je muss mich la fois plus avec dll's beschäftigen... !

XProfan X2

31.01.2013 ▲

Julian
Schmidt

comment je trouve qui einfachste Solution ist qui FaControl.dll de Frank Abbing. [...]

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

31.01.2013 ▲

Torben
Nissen

Salut,
aujourd'hui habe je (enfin) wieder Zeit, afin de programmieren. Dabei beschäftige je mich toujours avec qui Gestaltung de den Windows. Trotz qui tollen dll's voudrais je es selbst avec SubClassing essayer. Anhand des Beispiels de Andreas Miethe et qui Hilfedatei, bekomme je es hin, qui Hintergrundfarbe eh bien trop changement.

iF était so gentil et hat mir den Hinweis gegeben, dass on den Text aussi subclassen muss, si qui beige Hintergrund pas durchscheinen soll. j'ai cependant encore pas qui l'affaire avec "SetBkMode( wParam , TRANSPARENT )" verstanden. dans qui Aider finde je trop "wParam":

&sWParam: qui WParam-Wert qui Message.

comment setzte je "SetBKMode" et "wParam, Transparent" um? (SendMessage?)

XProfan X2

quoi oui c'est ca du là maintenant beim Subclassing faire musst sais je mais im Moment aussi pas.

Jörg
Sellmeyer

Grundsätzlich funktioniert es so:
Kompilieren Marque Séparation

 $H windows.ph
Cls
Var Ctrl& = Create("Text",%hwnd,"",100,100,200,24)
WaitInput
~SetBkMode(Ctrl&,~TRANSPARENT)
WaitInpu

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Imho simple WM_CTLCOLORSTATIC nouvelle dans wProc et ensuite den bkmode sur hdc == wparam.

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

ici la fois un kleines Beispiel.

je hoffe c'est ausreichend kommentiert.
Kompilieren Marque Séparation

'######################
'Header-Dateien
'######################
 $H Windows.ph
 $H Messages.ph
'######################
Set("FastMode",1)'FastMode einschalten
Windowstyle 543
WindowTitle "Test"
window 480,140
cls $993333
UseIcon "A"
Declare Ende&,TextControl&,EditControl&
Declare BackGroundBrush&
SetStyle %hWnd,1,(GetStyle(%hWnd,1) | ~WS_CLIPCHILDREN)'verhindert das Flackern der Conrrols
SubClass %HWnd,1
TextControl& = Create("TEXT",%hwnd,"Farbiger Text",10,10,120,24)
EditControl& = Create("EDIT",%hwnd,"Edit mit Farbverlauf",10,40,400,24)
'einen Farbverlauf für den Hintergrund des Edit-Controls
BackGroundBrush& = CreateGradientBrush(EditControl&)

Whilenot Ende&

    Waitinput

Endwhile

~DeleteObject(BackGroundBrush&)
End

SubClassProc

    If SubClassMessage(&sWnd,~WM_CLOSE)

        Ende& = 1
        Set("WinProc", 1)

    ElseIf SubClassMessage(&sWnd,~WM_CTLCOLOREDIT)'Edit-Controls

        Set("WinProc", 0)
        'SetBkMode setzt den Hintegrund-Modus des gewählten Device-Contextes (HDC)
        ~SetBkMode(&swparam,~Transparent)
        'SetTextColor setzt die Textfarbe des Device-Contextes (HDC)
        ~SetTextColor(&swparam,$00FFFF)
        Return BackGroundbrush&'Rückgabe ist der Brush

    ElseIf SubClassMessage(&sWnd,~WM_CTLCOLORSTATIC)'Static-Controls

        Set("WinProc", 0)
        'SetBkMode setzt den Hintegrund-Modus des gewählten Device-Contextes (HDC)
        ~SetBkMode(&swparam,~Transparent)'&swparam ist der Device-Context des Controls
        'SetTextColor setzt die Textfarbe des Device-Contextes (HDC)
        ~SetTextColor(&swparam,$0099FF)
        Return ~GetStockObject(~NULL_BRUSH)'Rückgabe ist der Brush

    EndIf

EndProc

Proc GradientRect

    Parameters DC&,x%,y%,w%,h%,Color1&,Color2&,HV&
    Declare GradRect#,Trivertex#
    Dim GradRect#,8
    Dim Trivertex#,32
    Long Gradrect#,0 = 0,1
    Long Trivertex#,0=x%,y%
    word Trivertex#,8=GETRVALUE(Color1&) << 8,GETGVALUE(Color1&) << 8,GETBVALUE(Color1&) << 8,0
    Long Trivertex#,16=w%,h%
    word Trivertex#,24=GETRVALUE(Color2&) << 8,GETGVALUE(Color2&) << 8,GETBVALUE(Color2&) << 8,0
    External("Msimg32.dll","GradientFill",DC&,Trivertex#,2,Gradrect#,HV&,0)
    Dispose Trivertex#
    Dispose Gradrect#

EndProc

Proc CreateGradientBrush

    Parameters tControl&
    Var Result& = 0
    Var BMP& = Create("hNewPic", Width(tControl&),1,0)
    StartPaint BMP&
    GradientRect(%hdc,0,0,Width(tControl&),1,$404000,$CAFFCA,1)
    EndPaint
    Result& = ~CreatePatternBrush(BMP&)
    ~DeleteObject(BMP&)
    Return<

sult& ENDPROC

20130202-181221.png	4 kB

Hochgeladen:	02.02.2013

Downloadcounter:
		Download

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]