Maks150988
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приветствую.  Все-таки нашел код для скроллинга строки. Но не компилируется, компилятор ругается "left side cannot be assigned to"...
Вот код собственно:
Код:
program sample;
uses
Windows, Messages;
{$R dialog.res} //Подключаем ресурс диалогового окна
const
ID_SCROLLTIMER = 666;
LengthGoString = 30; //Указываем сколько символов мы будем проказывать за раз
GoString = 'В конце стpоку желательно повтоpить, ' +
'чтоб получить эффект кольцевого движения! В конце ст';
i: Integer = 1;
//Функция, обрабатывающая все команды от элементов управления окна
function DlgProc(hWin: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): bool; stdcall;
begin
Result := False;
case uMsg of
WM_INITDIALOG: SetTimer(hWin, ID_SCROLLTIMER, 300, nil);
WM_TIMER:
begin
SendMessage(GetDlgItem(hWin, 201), WM_SETTEXT, 0,
Integer(PChar(Copy(GoString, i, LengthGoString))));
Inc(i);
if Length(GoString)-LengthGoString < i then i := 1;
end;
WM_COMMAND:
case LoWord(wp) of
//При нажатии на кнопку с идентификатором 1 закрываем программу
1: EndDialog(hWin, 0);
end;
//При нажатии на кнопку "Х" в шапке программы закрываем приложение
WM_DESTROY, WM_CLOSE:
begin
KillTimer(hWin, ID_SCROLLTIMER);
PostQuitMessage(0);
end;
end;
end;
begin
//Открываем диалоговое окно MAIN_WINDOW (достаем окно из ресурсов)
DialogBox(hInstance, 'MAIN_WINDOW', 0, @DlgProc);
end.
|
|
