alex0413
Спасибо, а насчет редактирования... я конечно не уверен, но может на этой странице можно чего-нибудь упростить? Я тут искал способ как сделать бегущую строку, нашел, но у меня не работает, чего нетак??? Inno Setup не понимает tmr1: TTimer;, с этим можно чего-то сделать или надо какой-то другой код.
[more=Подробнее..]
[Code]
var
lbl1: TLabel;
tmr1: TTimer;
procedure tmr1Timer(Sender: TObject);
var
str: string;
begin
str:= lbl1.Caption;
lbl1.Caption:= Copy(str, 2, Length(str) - 1) + Copy(str, 1, 1);
end;
procedure InitializeWizard();
begin
//lbl1
lbl1:= TLabel.Create(WizardForm);
with lbl1 do begin
Parent:= WizardForm;
Left:= 20;
Top:= 325;
Width:= 200;
Height:= 20;
AutoSize:= False;
Caption:= 'Вот, что можно сделать средствами Inno Setup... ';
Font.Color:= clWindowText;
Font.Height:= -16;
Font.Name:= 'MS Sans Serif';
Font.Style:= [];
ParentFont:= False;
end;
//tmr1
tmr1:= TTimer.Create(WizardForm);
with tmr1 do begin
Interval:= 200;
OnTimer:= @tmr1Timer;
end;
end;
[/more]
Спасибо, а насчет редактирования... я конечно не уверен, но может на этой странице можно чего-нибудь упростить? Я тут искал способ как сделать бегущую строку, нашел, но у меня не работает, чего нетак??? Inno Setup не понимает tmr1: TTimer;, с этим можно чего-то сделать или надо какой-то другой код.
[more=Подробнее..]
[Code]
var
lbl1: TLabel;
tmr1: TTimer;
procedure tmr1Timer(Sender: TObject);
var
str: string;
begin
str:= lbl1.Caption;
lbl1.Caption:= Copy(str, 2, Length(str) - 1) + Copy(str, 1, 1);
end;
procedure InitializeWizard();
begin
//lbl1
lbl1:= TLabel.Create(WizardForm);
with lbl1 do begin
Parent:= WizardForm;
Left:= 20;
Top:= 325;
Width:= 200;
Height:= 20;
AutoSize:= False;
Caption:= 'Вот, что можно сделать средствами Inno Setup... ';
Font.Color:= clWindowText;
Font.Height:= -16;
Font.Name:= 'MS Sans Serif';
Font.Style:= [];
ParentFont:= False;
end;
//tmr1
tmr1:= TTimer.Create(WizardForm);
with tmr1 do begin
Interval:= 200;
OnTimer:= @tmr1Timer;
end;
end;
[/more]
