Foro | | | | | 
Thomas
Freier | Kann el Tarea no lösen, sólo 50% la ventana transparent a haben, oder el Button nichttransparent. Tiene una una Tip, außer encima zwei Ventana a ir ?
KompilierenMarcaSeparación $H Windows.ph
$H messages.ph
$H commctrl.ph
Autor: Sven Schmidts, concept/design
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%, 0, (255 * Perc%) / 100, %LWA_ALPHA);
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
CreateICONBUTTON %hwnd,27,"SHELL32.DLL",0,0,0,0
var ICON20&=@&(0)
@Create("Tooltip",%hwnd,ICON20&,"Beendet das Programm")
SetWindowPos icon20&=(%maxx-50),0-32,32;0
SetFocus(%hwnd)
while 1
GetMessage
If GetFocus(icon20&)
BREAK
ElseIf (%message=$201) & GetFocus(Hwnd&)
UseCursor 5
SendMessage(%hwnd,$112,$F012,0)
ReleaseCapture()
UseCursor 0
SetFocus(%hwnd)
EndIf
We
FIN
|
| | | | | | |
| | 
Dieter
Zornow | Intento doch veces a la Diálogo sin Titelzeile bajo el Button a conjunto
KompilierenMarcaSeparación
Habs no ausprobiert, sólo así una Concepto |
| | | | Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 16.11.2008 ▲ |
| | |
| |
Thomas
Freier | Dieter, el Yo fast alles getestet. DIALOG, STATIC, CHILDWINDOW, usw. . Wird alles transparent. En uno Hardcopie es de paso nichts tranparent.
Der Schlüssel liegt wohl en :
KompilierenMarcaSeparación
Nun debería Yo sólo todavía wissen, si para algunos ELEMENTE 100% transparent eingestellt voluntad kann. |
| | | | | | |
| |  | Como Yo el sehe hay 2 Wege: [...] 
Weg 1 es crKey y Weg 2 _BLENDFUNCTION [...]
Natürlich, como muss uno se einarbeiten - aber una Ergebnis esta para XProfan se sicher viele interés... (mich auch)
Am Besten wäre el Regions-Variante, si posible. |
| | | | | | |
| |
Thomas
Freier | | Das glaube Yo. Würde mich auch interés, doch desafortunadamente kann Yo mich así no en el nächsten 15 Wochen aufhalten. Nach uno AugenOP kann mi Holde große Schriften (Bild) lesen y yo hoffe, dass Yo nun el Zeitungsvorlesen sparen kann, si yo el como e-paper beziehe. Leider son el Button el PDF-Viewer a klein y ellos trifft ellos con el Stift beim Tablett-PC no. Also una Hilfmittel (Steuerung el PDF y Textauswahl para Vorlesen dejar) encima una kleines XProfan-Tool realisieren, el gleichzeitig como Lineal dienen se. Ideal war lo, si el Lineal transparent es. Dann leidet aber el Erkennbarkeit el Button. Werde versuchen lo con Farben a kompensieren. |
| | | | | | |
| | | | Yo podría me vorstellen, dass Andreas Miethe [...] dazu algo de el Ärmel schüttelt, si él veces encima Aquí el hilo stolpert. |
| | | | | | |
| | 
Andreas
Miethe
 | IF
Yo podría me vorstellen, dass Andreas Miethe [...] dazu algo de el Ärmel schüttelt, si él veces encima Aquí el hilo stolpert.
KompilierenMarcaSeparación $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 : [...] | 17.11.2008 ▲ |
| | |
| | | He, Yo debería esta Satz en mi Signatur aufnehmen!  |
| | | | | | |
| |
Thomas
Freier | Andreas, el es! VIELEN DANK!
War Aunque un Weilchen verzweifelt, dass alles weg war, si %hWnd el Focus hatte. Erst bajo XProfan11 blieb alles después de el Verschieben obtener. |
| | | | | | |
|
RespuestaThemeninformationenDieses Thema ha 4 subscriber: |
(4.764)
Deutsch
English
Français
Español
Italia