XProfan

Dieter
Zornow

Versuch doch la fois une Dialog sans Titelzeile sous den Button trop mettons
Kompilieren Marque Séparation

var dlg& = Create("Dialog",%hwnd,"",10,10,200,300)
setstyle dlg&,Getstyle(dlg&) - 12582912e>

Tricolore pas ausprobiert, seulement so une concept

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

Dieter, cela habe je presque alles getestet. DIALOG, STATIC, CHILDWINDOW, usw. . Wird alles transparent. chez einer Hardcopie ist incidemment rien tranparent.
qui Schlüssel liegt wohl chez :
Kompilieren Marque Séparation

def %LWA_ALPHA $2
def %GWL_EXSTYLE -20
def %WS_EX_LAYERED $80000
def %WS_EX_TRANSPARENT $20pre>

eh bien devrait je seulement encore savons, si pour quelques ELEMENTE 100% transparent eingestellt volonté peux.

Gruß Thomas
Windows XP SP2, XProfan X2

comment je cela vois gibt es 2 Wege: [...]

Weg 1 ist crKey et Weg 2 _BLENDFUNCTION [...]

Bien sûr, là muss on sich einarbeiten - mais un Ergebnis hierfür pour XProfan wird sûrement viele intéresser... (mich aussi)

Am Besten wäre qui Regions-variante, si possible.

Thomas
Freier

cela glaube je. Würde mich aussi intéresser, doch malheureusement peux je mich avec cela pas dans den prochain 15 Wochen aufhalten. Pour einer AugenOP peux mon Holde grand Schriften (Bild) lesen et je hoffe, dass je mir eh bien cela Zeitungsvorlesen sparen peux, si je qui comme e-paper beziehe. malheureusement sommes qui Button qui PDF-Viewer trop petite et vous trifft vous avec dem Stift beim plateau-PC pas. alors un Hilfmittel (Contrôle qui PDF et Textauswahl zum Vorlesen laisser) sur un kleines XProfan-Tool realisieren, cela gleichzeitig comme Lineal dienen soll. Ideal était es, si cela Lineal transparent ist. ensuite leidet mais qui Erkennbarkeit qui Button. Werde versuchen es avec Farben trop kompensieren.

HD_voll.png	105 kB

Hochgeladen:	17.11.2008

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

je pourrait mir présenter, dass Andreas Miethe [...]

en supplément quelque chose aus dem Ärmel schüttelt, si il la fois sur den Fil ici stolpert.

Kompilieren Marque Séparation

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

je pourrait mir présenter, dass Andreas Miethe [...]

en supplément quelque chose aus dem Ärmel schüttelt, si il la fois sur den Fil ici stolpert.

 $H Windows.ph
 $H messages.ph
 $H commctrl.ph
def %LWA_ALPHA $2
def %GWL_EXSTYLE -20
def %WS_EX_LAYERED $80000
def %WS_EX_TRANSPARENT $20
def SetWindowLong(3) !"USER32","SetWindowLongA"
def GetWindowLong(2) !"USER32","GetWindowLongA"
def SetLayeredWindowAttributes(4) !"USER32","SetLayeredWindowAttributes"

Proc SetTransparent

    Declare Old&
    Parameters Hwnd%, Perc%
    Old& = GetWindowLong(Hwnd%,%GWL_EXSTYLE)
    SetWindowLong(Hwnd%, %GWL_EXSTYLE, (Old& | %WS_EX_LAYERED));
    SetLayeredWindowAttributes(Hwnd%, RGB(31,31,31), (255 * Perc%) / 100,$2)

EndProc

DEF ExtractIcon(3) ! "SHELL32","ExtractIconA"
Def Setwindowposition(7) !"USER32","SetWindowPos"
Def ReleaseCapture(0) !"USER32","ReleaseCapture"

PROC CreateIconButton

    Parameters hndl&,icoInd&,Res$,x%,y%,x1%,y1%
    Declare ico#,icohndl&,Bhndl&
    Dim ico#,(Len(Res$)+1)
    String ico#,0 = Res$
    icohndl& = ExtractIcon(%Hinstance,ico#,icoInd&)
    Bhndl&=Control("BUTTON","",$50000340,x%,y%,x1%,y1%,hndl&,0,%hinstance,$020)
    Sendmessage(Bhndl&,$00F7,1,icohndl&)
    Dispose ico#
    Return Bhndl&

ENDPROC

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SetTrueColor 1
Windowstyle 93
Windowtitle ""
Window 0,0 - %maxx,40
var Hwnd&=%Hwnd
cls @RGB(31,31,31)
@Setwindowposition(Hwnd&,-1,0,0,%maxx,40,42)
SetTransparent %Hwnd, 30
Var p& = Control("#32770","",$90000000,%winright-54,%wintop+4,32,32,%hwnd,0,%hInstance,0)
Var Icon20& = CreateICONBUTTON(p&,27,"SHELL32.DLL",0,0,0,0)
@Create("Tooltip",%hwnd,ICON20&,"Beendet das Programm")
SetWindowPos icon20&=0,0-32,32;0
SetFocus(%hwnd)
Usermessages ~WM_MOVE
Var ende& = 0

whilenot ende&

    waitinput
    GetMessage

    If GetFocus(icon20&)

        ende& = 1

    ElseIf (%message=$201) & GetFocus(Hwnd&)

        UseCursor 5
        ~SetParent(p&,%hwnd)
        ~Movewindow(p&,width(%hwnd)-52,1,32,32)
        SendMessage(%hwnd,$112,$F012,0)
        ReleaseCapture()
        ~SetParent(p&,0)
        ~Movewindow(p&,%winright-54,%wintop+4,32,32)
        UseCursor 0
        SetFocus(%hwnd)

    EndIf

FIN

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 : [...]

hé, je sollte cette phrase dans mon Signatur aufnehmen!

Thomas
Freier

Andreas, c'est es! VIELEN DANK!
était zwar un Weilchen verzweifelt, dass alles weg était, si %hWnd den Concentrer hatte. seulement sous XProfan11 blieb alles pour dem Déplacer conservé.

Gruß Thomas
Windows XP SP2, XProfan X2

18.11.2008 ▲