Black666angel
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=Ultimate Test
AppVerName=Ultimate Test 1.0 Beta 1
DefaultDirName={pf}\Ultimate Test
[Files]
Source: Enter.wav; Flags: dontcopy;
[_Code]
var
Label3: TLabel;
function sndPlaySound(lpszSoundName: AnsiString; uFlags: cardinal):integer; external 'sndPlaySoundA@winmm.dll stdcall';
Function LabelP(Parent: TWinControl; AutoSize, WordWrap, Transparent: Boolean; FontName: String; FontStyle: TFontStyles; FontColor: TColor; FontSize: Integer; Alignment: TAlignment; Left, Top, Width, Height: Integer; Caption: String): TLabel;
Begin
Result:=TLabel.Create(Parent); Result.parent:= Parent;
if Top > 0 then result.Top:=Top; if Left > 0 then result.Left:= Left; if Width > 0 then result.Width:= Width; if Height > 0 then result.Height:= Height; result.AutoSize:= AutoSize; result.WordWrap:= WordWrap; result.Transparent:=Transparent;
if FontName <> '' then result.Font.Name:= FontName; if FontColor > 0 then result.Font.Color:= FontColor; if FontStyle <> [] then result.Font.Style:= FontStyle; result.Font.Size:= FontSize; if Caption <> '' then result.Caption:= Caption; result.Alignment:=Alignment;
End;
procedure LabelEnter(Sender:TObject);
begin sndPlaySound(ExpandConstant('{tmp}\Enter.wav'),$0001); end;
procedure CBLALL();
begin
ExtractTemporaryFile('Enter.wav');
Label3:= LabelP(WizardForm, false, true, true, 'Arial', [fsBold], clRed, 10, taLeftJustify, 62, 189, 216, 17, 'Inno Script Generator v1.0.3.1')
Label3.OnMouseEnter:=@LabelEnter;
end;
procedure InitializeWizard();
begin
WizardForm.ClientWidth:=ScaleX(790); WizardForm.ClientHeight:=ScaleY(543); WizardForm.Center; WizardForm.OuterNotebook.Hide; WizardForm.InnerNotebook.Hide; WizardForm.Bevel.Hide; WizardForm.CancelButton.Left := ScaleX(692); WizardForm.CancelButton.Top := ScaleY(482); WizardForm.NextButton.Left := ScaleX(601); WizardForm.NextButton.Top := ScaleY(482); WizardForm.BackButton.Left := ScaleX(516); WizardForm.BackButton.Top := ScaleY(482);
CBLALL;
end; |
