AutoHotkey Community

;
; AutoHotkey Version: 1.0.23.x
; Language:       German\English
; Platform:       Win9x/NT
; Author:         BoBo (visit www.autohotkey.com/forum/index.php to get in touch)
;
; Script Funktion:
; Ziel ist es eine dynamische Textmeldung am
; Bildschirmrand anzuzeigen. Dies wird mittels
; einer AHK GUI erreicht, deren Position sich
; auf dem Bildschirm zur Laufzeit verändert.
; Have phun.
;
; Script function:
; Target - displaying a dynamic text message at the
; border of your screen. That has been accomplished
; using an AHK GUI. Its position is changing at
; runtime. - End of BoBo Fish translation -
; Feedback appreciated. Have phun.
;
; -------------------------------------------


Fade = 0                           ; Mit Einblendung beginnen | Start with Fade IN  [0=IN, 1=OUT]

Loop                              ; Demo Loop | Demo loop
{
Sleep, 2500
If Fade = 2                           ; Richtungswechsel | Swap direction
   Fade -= 2

GUI: ;---------------------------------------

Text = AHK-Update arrived !               ; Text setzen | Set text
TextVPos = 700                        ; Vert. Textpos. am Bildschirmrand | Vert. text pos. @ screen border
FontSize = 14
Font = Arial
Color = EEAA99                        ; GUI Farbe setzen | Set GUI colour
FadingSpeed = 5                        ; Ein-/Ausblendungsgeschwindigkeit | Fading speed

; ------------------------------------------

Screen = %A_ScreenWidth%               ; Bildschirmabhängige Kenngrößen ermitteln | Get screen parameters
Pos = %A_ScreenWidth%
EndPos = %A_ScreenWidth%

Gui, Color, %Color%
Gui, Font, s%FontSize%, %Font%
Gui, Add, text, ,%Text%
DetectHiddenWindows, on
WinSet, TransColor, %Color% 150,, %Text% ; GUI Hintergrund transparent setzen | Set GUI background transparent
WinSet, AlwaysOnTop, On

Gui, -Caption
Gui, Show, X%Pos% Y%TextVPos%
Gui, Cancel

WinGetPos, X, Y, GUIWidth, Height,, %Text%   ; GUI Breite ermitteln | Get GUI width

If Fade = 0                           ; Einblendungswerte ermitteln | Get Fade IN parameters
   {
   EndPos = %Pos%                     ; Startposition = Bilschirmrand | Start position = screen width
   EndPos -= %GUIWidth%               ; Endposition = Bilschirmrand - GUIBreite | Final postion = screen width - GUI width
   }

If Fade = 1                           ; Ausblendungswerte ermitteln | Get Fade OUT parameters
   {
   Pos   -= %GUIWidth%                   ; Startposition = Bilschirmrand - GUIBreite | Start postion = screen width - GUI width      
   }

Loop                              ; Ein-/Ausblendungsberechnung | Fade IN/OUT math
   {
   If Fade = 0
      Pos --
   If Fade = 1
      Pos ++
   Gui, show, X%Pos% Y%TextVPos%         ; Anzeige der GUI an veränderter Position | Display the GUI @ changed postion
   If Pos = %EndPos%
      {
      Fade ++
      Break
      }
   Sleep, %FadingSpeed%
   }
}

TextVPos = 700
If TextVPos >= %A_ScreenHeigth%
    MsgBox, "Let's collect money to buy Rajat a real monitor, to replace his mice movie theater"

Gui, Color, %Color%
Gui, Font, s%FontSize%, %Font%
Gui, Add, text, ,%Text%
Gui, +Disabled +AlwaysOnTop +LastFound  ; Also make it the "last found" window.
WinSet, TransColor, %Color% 150  ; GUI Hintergrund transparent setzen | Set GUI background transparent
Gui, -Caption
Gui, Show, Hide X%Pos% Y%TextVPos%

WinGetPos, X, Y, GUIWidth, Height,, %Text%   ; GUI Breite ermitteln | Get GUI width   ; This line and those below were not changed.

Gui, show, NoActivate X%Pos% Y%TextVPos%         ; Anzeige der GUI an veränderter Position | Display the GUI @ changed postion