Transparentes schmales Fenster als Leseleiste gewünscht Topic is solved

Stelle Fragen zur Programmierung mit Autohotkey

Moderator: jNizM

User avatar
divanebaba
Posts: 799
Joined: 20 Dec 2016, 03:53
Location: Diaspora

Transparentes schmales Fenster als Leseleiste gewünscht

28 Jan 2020, 21:23

Hallo zusammen.

Ich arbeite viel mit Tabellen und Listen und habe mir vor Jahren eine "Leseleiste" gebastelt, die ich auf dem Bildschirm jederzeit frei positionieren kann, um mich nicht in der Zeile oder Spalte zu irren.
Nun wollte ich es verbessern, indem ich es leicht transparent machen wollte, was mir nicht gelungen ist.
Zur Zeit erstelle ich einfach eine grüne Gui, dessen Größe ich beliebig verändern kann. Wenn diese leicht transparent wäre, wäre die "Leseleiste" noch komfortabler.

Ich würde mich sehr freuen, wenn jemand mir einen einfachen Weg aufzeigt.
Bisheriger Codeabschnitt
just me
Posts: 7414
Joined: 02 Oct 2013, 08:51
Location: Germany

Re: Transparentes schmales Fenster als Leseleiste gewünscht  Topic is solved

29 Jan 2020, 03:46

Moin, probier mal:

Code: Select all

Gui, color, 009900 ; Farbe grün
Gui, +Resize -Caption -MaximizeBox MinSize30x30 ; Make the window resizable
Gui, Add, Text,  x0 y0 w1000 h30 cFFFFFF Backgroundtrans gMoveGui vMOVER ; Unsichtbares Textfeld zum Verschieben des Gui von jedem Punkt aus
Gui, show, hide w1000 h30, Leseleiste
Gui, +LastFound            ; <<<<< das 'zuletzt gefundene Fenster' setzen
Winset, Alwaysontop, ON    ; <<<<< das 'zuletzt gefundene Fenster' verwenden
WinSet, Transparent, 128   ; <<<<< Transparenzwert zwischen 0 und 255 für das 'zuletzt gefundene Fenster' setzen
...
WinSet funktioniert normalerweise nicht mit verborgenen Fenstern.
Rohwedder
Posts: 3648
Joined: 04 Jun 2014, 08:33
Location: Germany

Re: Transparentes schmales Fenster als Leseleiste gewünscht

29 Jan 2020, 04:21

Hallo,
als Alternative:

Code: Select all

<^>!WheelUp::
MouseGetPos,,, Win
WinGet, Trans, Transparent,% TraWin := "ahk_id " Win
If !Trans
	Return
Trans := (Trans = "") ? 255 : Trans + 16
If (Trans < 250)
	WinSet, Transparent, %Trans%,% TraWin
Else
{
	WinSet, Transparent, 255,% TraWin
	WinSet, TransColor, OFF,% TraWin
	WinSet, Transparent, OFF,% TraWin
	WinSet, Redraw,, % TraWin
}
Return
<^>!WheelDown::
MouseGetPos,,, Win
WinGet, Trans, Transparent,% TraWin := "ahk_id " Win
Trans := (Trans = "") ? 239 : Max(15, Trans - 16)
WinSet, Transparent, %Trans%,% TraWin
Return
Damit setze ich mit AltGr+Wheel Fenster transparent.
Funktioniert hier auch mit deiner Leseleiste.
User avatar
divanebaba
Posts: 799
Joined: 20 Dec 2016, 03:53
Location: Diaspora

Re: Transparentes schmales Fenster als Leseleiste gewünscht

29 Jan 2020, 14:27

Hallo just me, hallo Rohwedder.

Ich wusste, daß für echte Profis meine Anfrage ein kleiner Klacks nur ist und bedanke mich für die schnelle und funktionelle Lösung.

Wie Du, just me, bereits erwähnt hast, gab es bei meinem Hauptscript, in welches ich die "Leseleiste" integriert habe, Probleme mit der Option hide.
Ich löste es, indem ich das Gui ohne diese Option erstellte und nach dem Transparent-Machen es mit Gui, hide einfach versteckt habe.
Bei dem angegebenen Beispielcode gab es diese Probleme seltsamerweise nicht.

Deinen Vorschlag, Rohwedder, habe ich auch in mein Hauptscript eingebaut, da es universell auf jedes Fenster zu wirken scheint.

Erneut vielen Dank an euch beide und viel Spaß bis zum nächsten Mal.

Return to “Ich brauche Hilfe”

Who is online

Users browsing this forum: No registered users and 2 guests