Foro | | | | | 
Julian
Schmidt | ¡Hola,
por esta Hilo möchte Yo, el WinXP-Bug de Screencapture[...]  beheben.
Lo es se esta en una Anzeige-Fehler welcher bajo WinXP auftritt.
Bajo Ventana 7 & Co sieht uno una schwarz eingefärbten Hintergrund y una weißes Steuerkreuz welches el Cursor verfolgt. Bajo WinXP es Nichts a sehen.
Def SetLayeredWindowAttributes(4) !"USER32","SetLayeredWindowAttributes"
def SetWindowRgn(3) !"USER32","SetWindowRgn"
def RectRgn(4) !"GDI32","CreateRectRgn"
Declarar fenster&[], x&, posx&, posy&
Ventana de Estilo 240+1024
Ventana %MaxX,%MaxY,0,0
Whileloop 2
fenster&[&bucle]=Crear("Window",%hwnd,"",%MaxX,%MaxY,0,0)'fenster&[1] - Schwarze Blende
SetTransparent(fenster&[&bucle],IF(&bucle=1,55,20))'fenster&[2] - Durchsichtiger Klickschutz
SetWindowPos fenster&[&bucle]=0,0 - %MaxX, %MaxY;-1
EndWhile
ShowCursor 0
Sinestar encargado iskey(27)
Waitinput 10
posx&=CursorPos("X1")
posy&=CursorPos("Y1")
StartPaint fenster&[1]
CLS 0
EndPaint
CutRgnDLG(fenster&[1],RectRgn(0,posy&,posx&,posy&+1),RectRgn(posx&+1,posy&,%MaxX,posy&+1),RectRgn(posx&,0,posx&+1,posy&),RectRgn(posx&,posy&+1,posx&+1,%MaxY))
CutRgnDLG(fenster&[2],RectRgn(0, 0, posx&, posy&),RectRgn(posx&+1, 0, %MaxX, posy&),RectRgn(0, posy&+1, posx&, %MaxY),RectRgn(posx&+1, posy&+1, %MaxX, %MaxY))
Endwhile
end
Proc SetTransparent
Parámetros Hwnd%, Perc%
Externo("USER32","SetWindowLongA",Hwnd%, -20, Externo("USER32","GetWindowLongA",Hwnd%,-20) | $80000)
SetLayeredWindowAttributes(Hwnd%, 0, (255 * Perc%) / 100, $2)
ENDPROC
Proc CutRgnDLG
Parámetros hdl&
Declarar region&,wRgn&
wRgn&=RectRgn(0,0,width(hdl&)+100,height(hdl&)+100)
whileloop 2,%PCount
region&=@&(&bucle)
Externo("GDI32","CombineRgn",wRgn&,region&,wrgn&,3)
DeleteObject region&
EndWhile
SetWindowRgn(hdl&, wRgn&, 1)
Volver wRgn&
ENDPROC
Proc WindowRect
Parámetros hdl&,Modus$
Modus$=Lower$(Modus$)
Declarar x%, b#
Dim b#,16
Externo("USER32", "GetWindowRect",hdl&,b#)
Case @&(3)<>0 : Externo("USER32","ScreenToClient",@&(3),b#) : Externo("USER32","ScreenToClient",@&(3),b#+8)
Case Modus$="breite" : x%=Largo(b#,8)-Largo(b#,0)
Case Modus$="höhe" : x%=Largo(b#,12)-Largo(b#,4)
Case Modus$="x1" : x%=Largo(b#,0)
Case Modus$="y1" : x%=Largo(b#,4)
Case Modus$="x2" : x%=Largo(b#,8)
Case Modus$="y2" : x%=Largo(b#,12)
Disponer b#
Volver x%
ENDPROC
Proc CursorPos
Parámetros Modus$
Modus$=Lower$(Modus$)
Declarar x%, mpos#
Dim mpos#,8
Externo("user32","GetCursorPos",mpos#)
Case @&(2)<>0 : Externo("USER32","ScreenToClient",@&(2),mpos#)
Case Modus$="x1" : x%=long(mpos#,0)
Case Modus$="y1" : x%=long(mpos#,4)
Case Modus$="x2" : x%=IF(@&(2)<>0,WindowRect(@&(2),"Breite"),%maxx)-long(mpos#,0)
Case Modus$="y2" : x%=IF(@&(2)<>02,WindowRect(@&(2),"Höhe"),%maxy)-long(mpos#,4)
Disponer mpos#
Volver x%
ENDPROC
LG
Julian |
| | | | | | |
| |  | | En me es el Thema ("nur") en el Merkliste. |
| | | | | | |
| |
Julian
Schmidt | | Yo hoffe hier tut se bald algo. Sonst voluntad Yo el Cuestión, en el nächsten Tagen, en Pauls PC Foro reinstellen.... |
| | | | | | |
| | 
Andreas
Miethe
 | Na entonces,
el ha wohl qué con AERO a tun, es el no aktiv siehst Usted auch bajo Win7 NICHTS ! |
| | | | XProfan X2Gruss 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 : [...] | 21.01.2013 ▲ |
| | |
| |
Julian
Schmidt | | hmmm....du hast Recht! Und woran podría el mentira. |
| | | | | | |
| |
Andreas
Miethe
| Fehler gefunden !
hier liegt el Hund begraben
Mach el con Dialogen entonces klappt lo.
|
| | | | XProfan X2Gruss 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 : [...] | 22.01.2013 ▲ |
| | |
| |
Julian
Schmidt | Damit bekomme Hice irgendeinen Grund pero no el Titelleiste y Dicke Rahmen ausgeblendet. Hab Windowstyle 240+1024 eingestellt. Yo nehme a el problema hängt con SetWindowRgn zusammen....
 |
| | | | | | |
| |
Andreas
Miethe
| | | | | XProfan X2Gruss 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 : [...] | 23.01.2013 ▲ |
| | |
| |
Julian
Schmidt | | Hab Yo ya vorher. Verhält se ähnlich. |
| | | | | | |
| |
Julian
Schmidt | | | | | | | |
| | | Daran liegts no,
el Cuestión es sólo a allgemein gestellt o. el Code dazu zeigt Aunque un Problema
aber beschreibt kein konkretes Problema o. es vlt. incluso a umfangreich como el
erkenntlich es el lo en una bestimmtes Problema va.
Por ejemplo weiß Yo después de Andreas Miethes Hinweisen garnicht mehr en
welchem Stand el Texto es.
Mach doch veces a la Dreizeiler de los Problema aufzeigt y benenne el
konkrete Problema nochmals. |
| | | | | | |
| |
Julian
Schmidt | No necesariamente una 3. Zeiler debería aber ok ser.
Yo möchte el no Titelleiste y Rahmen eingeblendet voluntad.
Windowstyle scheint irgendwie no a trabajo.
Def SetLayeredWindowAttributes(4) !"USER32","SetLayeredWindowAttributes"
def SetWindowRgn(3) !"USER32","SetWindowRgn"
def RectRgn(4) !"GDI32","CreateRectRgn"
cls
Var dlg&=Crear("Window",%hwnd,"",0,0,%MaxX,%MaxY)
SetTransparent(dlg&,50)
Showwindow(dlg&,1)
CutRgnDLG(dlg&,RectRgn(0,0,0,0))
Sinestar encargado iskey(27)
Endwhile
end
Proc SetTransparent
Parámetros Hwnd%, Perc%
Externo("USER32","SetWindowLongA",Hwnd%, -20, Externo("USER32","GetWindowLongA",Hwnd%,-20) | $80000)
SetLayeredWindowAttributes(Hwnd%, 0, (255 * Perc%) / 100, $2)
ENDPROC
Proc CutRgnDLG
Parámetros hdl&
Declarar region&,wRgn&
wRgn&=RectRgn(0,0,width(hdl&)+100,height(hdl&)+100)
whileloop 2,%PCount
region&=@&(&bucle)
Externo("GDI32","CombineRgn",wRgn&,region&,wrgn&,3)
DeleteObject region&
EndWhile
SetWindowRgn(hdl&, wRgn&, 1)
Volver wRgn&
ENDPROC
|
| | | | | | |
|
RespuestaTema opciones | 23.520 Views |
ThemeninformationenDieses Thema ha 3 subscriber: |
(906)
Deutsch
English
Français
Español
Italia