Бегущая строка

Sanch8

Новичок
Пример скрипта бегущей строки с помощью плагина NsResize

Код:
!AddPluginDir .
!include MUI2.nsh
Caption "Бегущая строка"
OutFile Бегущая_строка.exe

Page Custom MyPage
!insertmacro MUI_LANGUAGE Russian
Var Label
Var Font1

Function MyPage
strcpy $R9 0
CreateFont $Font1 "Comic Sans MS" "14.25" "700"

  nsDialogs::Create 1044
  Pop $R0
  ${NSD_CreateLabel} 100% 100% 100% 100% `C Рождеством, дорогие друзья !!!`
  Pop $Label
  SetCtlColors $Label 0x8080FF 0xF0F0F0
  SendMessage $Label ${WM_SETFONT} $Font1 0
  StrCpy $R0 0
  ${NSD_CreateTimer} MathMove 50
  nsDialogs::Show
  ${NSD_KillTimer} MathMove
FunctionEnd

Function MathMove
intop $R9 $R9 - 1
StrCmp $R9 "-540" 0 +2
strcpy $R9 -1
nsResize::Set $Label $R9u 100u `` ``
FunctionEnd

Section
SectionEnd
 
Сверху