AutoHotkey Community

background_color := new Color(0xf0f0f0)
text_color := new Color(0x000000)
fade_color := new Color
text1 := "Original text."
text2 := "Replacement text."

Gui, Color, % background_color.hex
Gui, Add, Text, % "c" . text_color.hex . " w100 vtext", %text1%
Gui, Add, Button, gfade2, Fade to text2.
Gui, Add, Button, gfade1, Fade back to text1.
Gui, Show
return

fade1:
fade(text, text1)
return

fade2:
fade(text, text2)
return

fade(ByRef control, new_text = "", step = 5) {
  global background_color, text_color, fade_color
  GuiControlGet, start_text,, control
  percent = 100
  while percent >= 0
  {
    for k, v in ["R", "G", "B"]
      fade_color[v] := Round(background_color[v] + ((text_color[v] - background_color[v]) * (percent / 100)))
    percent -= step
    GuiControl, % "+C" . fade_color.hex, control
    GuiControl,, control, %start_text%
    Sleep, 1
  }
  percent = 0
  while percent <= 100
  {
    for k, v in ["R", "G", "B"]
      fade_color[v] := Round(background_color[v] + ((text_color[v] - background_color[v]) * (percent / 100)))
    percent += step
    GuiControl, % "+C" . fade_color.hex, control
    GuiControl,, control, %new_text%
    Sleep, 1
  }
}

GuiClose:
GuiEscape:
ExitApp

;modified color class from the AHK_L help file
class Color
{
  __New(aRGB = 0x000000) {
    this.RGB := aRGB
  }

  __Get(aName) {
    if (aName = "R")
      return (this.RGB >> 16) & 255
    if (aName = "G")
      return (this.RGB >> 8) & 255
    if (aName = "B")
      return this.RGB & 255
    if (aName = "hex")
    {
      format_setting := A_FormatInteger
      SetFormat, IntegerFast, h
      hex := SubStr(this.RGB + 0, 3)
      SetFormat, IntegerFast, %format_setting%
      while StrLen(hex) < 6
        hex := "0" . hex
      return, "0x" . hex
    }
  }

  __Set(aName, aValue) {
    if aName in R,G,B
    {
      aValue &= 255
      if      (aName = "R")
        this.RGB := (aValue << 16) | (this.RGB & ~0xff0000)
      else if (aName = "G")
        this.RGB := (aValue << 8)  | (this.RGB & ~0x00ff00)
      else  ; (aName = "B")
        this.RGB :=  aValue        | (this.RGB & ~0x0000ff)
      return aValue
    }
  }
}

background_color := new Color(0x000000)
text_color := new Color(0xFF0000)
fade_color := new Color
text1 := "Original text."
text2 := "Replacement text."

Gui, Color, % background_color.hex
Gui, Add, Text, % "c" . text_color.hex . " w100 vtext", %text1%
Gui, Add, Button, gfade2, Fade to text2.
Gui, Add, Button, gfade1, Fade back to text1.
Gui, Show
return

fade1:
fade(text, text1)
return

fade2:
fade(text, text2)
return

fade(ByRef control, new_text = "", step = 5) {
  global background_color, text_color, fade_color
  GuiControlGet, start_text,, control
  percent = 100
  while percent >= 0
  {
    for k, v in ["R", "G", "B"]
      fade_color[v] := Round(background_color[v] + ((text_color[v] - background_color[v]) * (percent / 100)))
    percent -= step
    GuiControl, % "+C" . fade_color.hex, control
    GuiControl,, control, %start_text%
    Sleep, 1
  }
  percent = 0
  while percent <= 100
  {
    for k, v in ["R", "G", "B"]
      fade_color[v] := Round(background_color[v] + ((text_color[v] - background_color[v]) * (percent / 100)))
    percent += step
    GuiControl, % "+C" . fade_color.hex, control
    GuiControl,, control, %new_text%
    Sleep, 1
  }
}

GuiClose:
GuiEscape:
ExitApp

;modified color class from the AHK_L help file
class Color
{
  __New(aRGB = 0x000000) {
    this.RGB := aRGB
  }

  __Get(aName) {
    if (aName = "R")
      return (this.RGB >> 16) & 255
    if (aName = "G")
      return (this.RGB >> 8) & 255
    if (aName = "B")
      return this.RGB & 255
    if (aName = "hex")
    {
      format_setting := A_FormatInteger
      SetFormat, IntegerFast, h
      hex := SubStr(this.RGB + 0, 3)
      SetFormat, IntegerFast, %format_setting%
      while StrLen(hex) < 6
        hex := "0" . hex
      return, "0x" . hex
    }
  }

  __Set(aName, aValue) {
    if aName in R,G,B
    {
      aValue &= 255
      if      (aName = "R")
        this.RGB := (aValue << 16) | (this.RGB & ~0xff0000)
      else if (aName = "G")
        this.RGB := (aValue << 8)  | (this.RGB & ~0x00ff00)
      else  ; (aName = "B")
        this.RGB :=  aValue        | (this.RGB & ~0x0000ff)
      return aValue
    }
  }
}

GuiControl,, ChannelTitle, %ChannelTitleDisplay%

background_color := 0x000000
text_color := 0xFF0000
fade := new Text_fader(text_color, background_color)

text1 := "Original text."
text2 := "Replacement text."

Gui, Color, %background_color%
Gui, Add, Text, c%text_color% w100 vtext_control
Gui, Add, Button, gfade_in, Fade in text1.
Gui, Add, Button, gfade_to, Fade to text2.
Gui, Add, Button, gfade_out, Fade out text.
Gui, Show
return

fade_in:
fade.in(text_control, text1)
return

fade_to:
fade.to(text_control, text2)
return

fade_out:
fade.out(text_control)
return

GuiClose:
GuiEscape:
ExitApp

class Text_fader {
  __New(text_color = 0x000000, background_color = 0xf0f0f0, step = 5) {
    global Color
    this.text_color := new Color(text_color)
    this.background_color := new Color(background_color)
    this.step := step
    this.fade_color := new Color
  }

  to(ByRef control, new_text) {
    start_text := this.out(control)
    this.in(control, new_text)
    return, start_text
  }

  out(ByRef control) {
    GuiControlGet, start_text,, control
    percent = 100
    while percent > 0
    {
      for k, v in ["R", "G", "B"]
        this.fade_color[v] := Round(this.background_color[v] + ((this.text_color[v] - this.background_color[v]) * (percent / 100)))
      percent -= this.step
      GuiControl, % "+C" . this.fade_color.hex, control
      GuiControl,, control, %start_text%
      Sleep, 1
    }
    GuiControl,, control
    return, start_text
  }
 
  in(ByRef control, new_text) {
    percent = 0
    while percent < 100
    {
      for k, v in ["R", "G", "B"]
        this.fade_color[v] := Round(this.background_color[v] + ((this.text_color[v] - this.background_color[v]) * (percent / 100)))
      percent += this.step
      GuiControl, % "+C" . this.fade_color.hex, control
      GuiControl,, control, %new_text%
      Sleep, 1
    }
    GuiControl, % "+C" . this.text_color.hex, control
    GuiControl,, control, %new_text%
  }
}

;modified color class from the AHK_L help file
class Color
{
  __New(aRGB = 0x000000) {
    this.RGB := aRGB
  }

  __Get(aName) {
    if (aName = "R")
      return (this.RGB >> 16) & 255
    if (aName = "G")
      return (this.RGB >> 8) & 255
    if (aName = "B")
      return this.RGB & 255
    if (aName = "hex")
    {
      format_setting := A_FormatInteger
      SetFormat, IntegerFast, h
      hex := SubStr(this.RGB + 0, 3)
      SetFormat, IntegerFast, %format_setting%
      while StrLen(hex) < 6
        hex := "0" . hex
      return, "0x" . hex
    }
  }

  __Set(aName, aValue) {
    if aName in R,G,B
    {
      aValue &= 255
      if      (aName = "R")
        this.RGB := (aValue << 16) | (this.RGB & ~0xff0000)
      else if (aName = "G")
        this.RGB := (aValue << 8)  | (this.RGB & ~0x00ff00)
      else  ; (aName = "B")
        this.RGB :=  aValue        | (this.RGB & ~0x0000ff)
      return aValue
    }
  }
}

    Fade.in(Channel, "Power On") ; Calls function to fade texts in ------->>
    Fade.in(ChannelTitle, "Welcome to Aaron's YouTube Television")
    Fade.in(VolumeText, "Volume") ; -------------------------------------<<

    Fade.out(Channel) ; Calls function to fade texts out -------->>
    Fade.out(ChannelTitle)
    Fade.out(VolumeText) ; -------------------------------------<<

Fade.in(Channel, "Power On", ChannelTitle, "Welcome to Aaron's YouTube Television", VolumeText, "Volume")
Fade.out(Channel, ChannelTitle, VolumeText)

background_color := 0x000000
text_color := 0xFF0000
fade := new Text_fader(text_color, background_color)

text1 := "Original text."
text2 := "Replacement text."

Gui, Color, %background_color%
Gui, Add, Text, c%text_color% w100 vtext_control1
Gui, Add, Text, c%text_color% w100 vtext_control2
Gui, Add, Text, c%text_color% w100 vtext_control3
Gui, Add, Button, gfade_in, Fade in text.
Gui, Add, Button, gfade_to, Fade to text.
Gui, Add, Button, gfade_out, Fade out text.
Gui, Show
return

fade_in:
fade.in(text_control1, text1, text_control2, text2, text_control3, text1)
return

fade_to:
fade.to(text_control1, text2, text_control2, text1, text_control3, text2)
return

fade_out:
fade.out(text_control1, text_control2, text_control3)
return

GuiClose:
GuiEscape:
ExitApp

class Text_fader {
  __New(text_color = 0x000000, background_color = 0xf0f0f0, step = 5) {
    global Color
    this.text_color := new Color(text_color)
    this.background_color := new Color(background_color)
    this.step := step
    this.fade_color := new Color
  }

  to(ByRef control1, new_text1, ByRef control2 = "nil", new_text2 = "", ByRef control3 = "nil", new_text3 = "") {
    this.out(control1, control2, control3)
    this.in(control1, new_text1, control2, new_text2, control3, new_text3)
  }

  out(ByRef control1, ByRef control2 = "nil", ByRef control3 = "nil") {
    percent = 100
    while percent > 0
    {
      percent -= this.step
      for k, v in ["R", "G", "B"]
        this.fade_color[v] := Round(this.background_color[v] + ((this.text_color[v] - this.background_color[v]) * (percent / 100)))
      GuiControl, % "+C" . (percent <= 0 ? this.background_color.hex : this.fade_color.hex), control1
      GuiControl, MoveDraw, control1
      if (control2 != "nil")
      {
        GuiControl, % "+C" . (percent <= 0 ? this.background_color.hex : this.fade_color.hex), control2
        GuiControl, MoveDraw, control2
      }
      if (control3 != "nil")
      {
        GuiControl, % "+C" . (percent <= 0 ? this.background_color.hex : this.fade_color.hex), control3
        GuiControl, MoveDraw, control3
      }
      Sleep, 1
    }
  }
 
  in(ByRef control1, new_text1, ByRef control2 = "nil", new_text2 = "", ByRef control3 = "nil", new_text3 = "") {
    percent = 0
    while percent < 100
    {
      percent += this.step
      for k, v in ["R", "G", "B"]
        this.fade_color[v] := Round(this.background_color[v] + ((this.text_color[v] - this.background_color[v]) * (percent / 100)))
      GuiControl, % "+C" . (percent >= 100 ? this.text_color.hex : this.fade_color.hex), control1
      GuiControl,, control1, %new_text1%
      if (control2 != "nil")
      {
        GuiControl, % "+C" . (percent >= 100 ? this.text_color.hex : this.fade_color.hex), control2
        GuiControl,, control2, %new_text2%
      }
      if (control3 != "nil")
      {
        GuiControl, % "+C" . (percent >= 100 ? this.text_color.hex : this.fade_color.hex), control3
        GuiControl,, control3, %new_text3%
      }
      Sleep, 1
    }
  }
}

;modified color class from the AHK_L help file
class Color
{
  __New(aRGB = 0x000000) {
    this.RGB := aRGB
  }

  __Get(aName) {
    if (aName = "R")
      return (this.RGB >> 16) & 255
    if (aName = "G")
      return (this.RGB >> 8) & 255
    if (aName = "B")
      return this.RGB & 255
    if (aName = "hex")
    {
      format_setting := A_FormatInteger
      SetFormat, IntegerFast, h
      hex := SubStr(this.RGB + 0, 3)
      SetFormat, IntegerFast, %format_setting%
      while StrLen(hex) < 6
        hex := "0" . hex
      return, "0x" . hex
    }
  }

  __Set(aName, aValue) {
    if aName in R,G,B
    {
      aValue &= 255
      if      (aName = "R")
        this.RGB := (aValue << 16) | (this.RGB & ~0xff0000)
      else if (aName = "G")
        this.RGB := (aValue << 8)  | (this.RGB & ~0x00ff00)
      else  ; (aName = "B")
        this.RGB :=  aValue        | (this.RGB & ~0x0000ff)
      return aValue
    }
  }
}

Fade.in("Channel", "Power On", "ChannelTitle", "Welcome to Aaron's YouTube Television", "VolumeText", "Volume")
Fade.out("Channel", "ChannelTitle", "VolumeText")

background_color := 0x000000
text_color := 0xFF0000
fade := new Text_fader(text_color, background_color)

text1 := "Original text."
text2 := "Replacement text."

Gui, Color, %background_color%
Gui, Add, Text, c%text_color% w100 vtext_control1
Gui, Add, Text, c%text_color% w100 vtext_control2
Gui, Add, Text, c%text_color% w100 vtext_control3
Gui, Add, Button, gfade_in, Fade in text.
Gui, Add, Button, gfade_to, Fade to text.
Gui, Add, Button, gfade_out, Fade out text.
Gui, Show
return

fade_in:
fade.in("text_control1", text1, "text_control2", text2, "text_control3", text1)
return

fade_to:
fade.to("text_control1", text2, "text_control2", text1, "text_control3", text2)
return

fade_out:
fade.out("text_control1", "text_control2", "text_control3")
return

GuiClose:
GuiEscape:
ExitApp

class Text_fader {
  __New(text_color = 0x000000, background_color = 0xf0f0f0, step = 5) {
    global Color
    this.text_color := new Color(text_color)
    this.background_color := new Color(background_color)
    this.step := step
    this.fade_color := new Color
  }

  to(params*) {
    controls := []
    for k, v in params
    {
      if (Mod(k, 2) != 0)
        controls.Insert(v)
    }
    this.out(controls*)
    this.in(params*)
  }

  out(controls*) {
    percent = 100
    while percent > 0
    {
      percent -= this.step
      for k, v in ["R", "G", "B"]
        this.fade_color[v] := Round(this.background_color[v] + ((this.text_color[v] - this.background_color[v]) * (percent / 100)))
      for k, control in controls
      {
        GuiControl, % "+C" . (percent <= 0 ? this.background_color.hex : this.fade_color.hex), %control%
        GuiControl, MoveDraw, %control%
      }
      Sleep, 1
    }
  }

  in(params*) {
    controls := {}
    for k, v in params
    {
      if (Mod(k, 2) != 0)
        control := v
      else
        controls[control] := v
    }
    percent = 0
    while percent < 100
    {
      percent += this.step
      for k, v in ["R", "G", "B"]
        this.fade_color[v] := Round(this.background_color[v] + ((this.text_color[v] - this.background_color[v]) * (percent / 100)))
      for control, text in controls
      {
        GuiControl, % "+C" . (percent >= 100 ? this.text_color.hex : this.fade_color.hex), %control%
        GuiControl,, %control%, %text%
      }
      Sleep, 1
    }
  }
}

;modified color class from the AHK_L help file
class Color
{
  __New(aRGB = 0x000000) {
    this.RGB := aRGB
  }

  __Get(aName) {
    if (aName = "R")
      return (this.RGB >> 16) & 255
    if (aName = "G")
      return (this.RGB >> 8) & 255
    if (aName = "B")
      return this.RGB & 255
    if (aName = "hex")
    {
      format_setting := A_FormatInteger
      SetFormat, IntegerFast, h
      hex := SubStr(this.RGB + 0, 3)
      SetFormat, IntegerFast, %format_setting%
      while StrLen(hex) < 6
        hex := "0" . hex
      return, "0x" . hex
    }
  }

  __Set(aName, aValue) {
    if aName in R,G,B
    {
      aValue &= 255
      if      (aName = "R")
        this.RGB := (aValue << 16) | (this.RGB & ~0xff0000)
      else if (aName = "G")
        this.RGB := (aValue << 8)  | (this.RGB & ~0x00ff00)
      else  ; (aName = "B")
        this.RGB :=  aValue        | (this.RGB & ~0x0000ff)
      return aValue
    }
  }
}

text1 := "Original text."
text2 := "Replacement text."