[Setup] AppName=My Program AppVerName=My Program v 1.5 DefaultDirName={pf}\My Program OutputDir=. Compression=lzma/ultra InternalCompressLevel=ultra SolidCompression=yes [Languages] Name: russian; MessagesFile: compiler:Languages\Russian.isl [_Code] var lbl1: TLabel; tmr1: TTimer; str: string; procedure tmr1Timer(Sender: TObject); begin str:= lbl1.Caption; lbl1.Caption:= Copy(str, 2, Length(str) - 1) + Copy(str, 1, 1); end; procedure InitializeWizard(); begin lbl1:= TLabel.Create(WizardForm); with lbl1 do begin Parent:= WizardForm; Left:= 10; Top:= 325; AutoSize:= True; Caption:= 'Вот,что можно сделать средствами Инно... '; Font.Color:= clGreen; Font.Size:= 10; Font.Name:= 'Comic Sans MS'; Font.Style:= [fsBold,fsItalic]; ParentFont:= False; end; tmr1:= TTimer.Create(WizardForm); with tmr1 do begin Interval:= 200; OnTimer:= @tmr1Timer; end; end; |