nik1967
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[_code]
procedure Title(h: Longword; msg: Longword; idevent: Longword; dwTime: Longword);
var
TitleLabel: TLabel;
str: string;
begin
str:=TitleLabel.Caption;
TitleLabel.Caption:=Copy(str,2,Length(str)-1)+Copy(str,1,1);
end;
procedure InitializeWizard;
begin
TitleLabel:= TLabel.Create(WizardForm);
with TitleLabel do begin
Parent:= WizardForm;
AutoSize:= False;
SetBounds(ScaleX(5), ScaleY(525), ScaleX(788), ScaleY(14));
Transparent:= True;
Caption:= ExpandConstant('Тут сама бегущая строка ');
Font.Color:= $FFFFFF;
Font.Height:= -14;
Font.Name:= 'Verdana';
Font.Style:= [fsBold,fsItalic];
SetTimer(WizardForm.Handle,ARTitleTimerID,120,WrapTimerProc(@Title,4));
end;
end; |
Всего записей: 1076 | Зарегистр. 11-10-2006 | Отправлено: 07:47 09-05-2010 | Исправлено: nik1967, 10:32 09-05-2010 |
|
