#include <GUIConstants.au3>
#include <GDIplus.au3>
#include <file.au3>
#include <Array.au3>
Dim $aRecords
Global $graphics, $bitmap, $backbuffer, $hGUI, $hBrush, $Gray1 = 0xFF000000, $Gray2 = 0xFF000000
Global $iX = 0, $iY = 0, $Width = 500, $Height = 300, $Col, $iWidth = 100, $iHeight = 100, $end = 0
Global $hBrush, $hFormat, $hFamily, $hFont, $text_color, $text_scroller, $tLayout, $pen, $brush
Global $hShadowBrush, $hShadowFormat, $hShadowFamily, $hShadowFont, $Shadow_color, $tShadow, $Shadowtext, $ShadowtLayout
Global $letter_distance, $x, $y, $Length, $scroller_length
Global $ShadowColor = 0xF0FFFFFF
Global $font_size = 64 ;Размер шрифта
Global $Fontoffset = 5, $Ex, $Ey, $ioffset, $i2, $Tog = 0
_FileReadToArray('1.txt', $aRecords) ; путь до файла
_ArrayDelete($aRecords, 0)
$text = _ArrayToString($aRecords, ' ')
Opt('GUIOnEventMode', 1)
$hwnd = GUICreate('GDI+', $Width, $Height)
GUISetOnEvent($GUI_EVENT_CLOSE, 'close')
GUISetState()
_GDIPlus_Startup()
$text_color =0xFF0000 ; цвет текста
$fon_color=0x000000 ; цвет фона
$fon_color='0xFF'&Hex($fon_color,6)
$text_color = '0xFF'&Hex($text_color,6)
$htextBrush = _GDIPlus_BrushCreateSolid($text_color)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate('Arial') ; шрифт
$hFont = _GDIPlus_FontCreate($hFamily, $font_size, 2)
$pen = _GDIPlus_PenCreate(0)
$brush = _GDIPlus_BrushCreateSolid(0)
$tLayout = _GDIPlus_RectFCreate(0, 0)
$Fontoffset = 0
$hShadowBrush = _GDIPlus_BrushCreateSolid($ShadowColor)
$hShadowFormat = _GDIPlus_StringFormatCreate()
$hShadowFamily = _GDIPlus_FontFamilyCreate('Arial') ; шрифт
$hShadowFont = _GDIPlus_FontCreate($hShadowFamily, $font_size, 2)
$tShadowtLayout = _GDIPlus_RectFCreate(0, 0)
_GDIPlus_GraphicsSetSmoothingMode($backbuffer, 2)
$graphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)
$bitmap = _GDIPlus_BitmapCreateFromGraphics($Width, $Height, $graphics)
$backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
$hBrush = _GDIPlus_BrushCreateSolid($fon_color)
$letter_distance = $font_size
$Length = $font_size * 1.666 * 0.36
$Z = 100
$k = $Width
$scroller_length = StringLen($text) * $Length
$FontY = $Height - $font_size * 1.5
Do
ScrollText()
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Func ScrollText()
For $ioffset = -200 to 0 step 5
_GDIPlus_GraphicsClear($Backbuffer, 0x00) ;Clear BackBuffer
$Col = $fon_color
$iY = $iY + $ioffset
For $n = 0 to 48
_GDIPlus_BrushSetSolidColor($hBrush, $Col)
_GDIPlus_GraphicsFillRect($backbuffer, $iX, $Height - $Z, $iWidth, $iHeight, $hBrush)
$iX += 100
If $iX = 600 then
$iX = 0
$iY += 100
EndIf
Next
$iY = 0
$iX = 0
$FontX = $k + $letter_distance
DllStructSetData($tLayout, 'x', $FontX)
DllStructSetData($tLayout, 'y', $FontY)
DllStructSetData($tShadowtLayout, 'x', $FontX + $Fontoffset)
DllStructSetData($tShadowtLayout, 'y', $FontY + $Fontoffset)
;_GDIPlus_GraphicsDrawStringEx($backbuffer, $text, $hShadowFont, $tShadowtLayout, $hShadowFormat, $hShadowBrush)
_GDIPlus_GraphicsDrawStringEx($backbuffer, $text, $hFont, $tLayout, $hFormat, $htextBrush)
$k -= 4 ; скорость строки
If - $scroller_length >= $k + $Width Then $k = $Width
Sleep(25)
_GDIPlus_GraphicsDrawImageRect($graphics, $bitmap, 0, 0, $Width, $Height)
Next
EndFunc ;==>ScrollText
Func close()
_GDIPlus_BrushDispose($htextBrush)
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_BrushDispose($hShadowBrush)
_GDIPlus_FontDispose($hShadowFont)
_GDIPlus_FontFamilyDispose($hShadowFamily)
_GDIPlus_StringFormatDispose($hShadowFormat)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($graphics)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>close
Спасибо. В Word файлах возврат каретки отображается виде квадрата.