Vetal83
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
[Messages]
BeveledLabel=GSC Game World
[Code]
var
MouseLabel2,MouseLabel3,MouseLabel4,SiteLabel2: TLabel;
procedure SiteLabelOnClick2(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://forum.ru-board.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
procedure SiteLabelMouseDown2(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel2.Font.Color:=clRed
end;
procedure SiteLabelMouseUp2(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel2.Font.Color:=clBlue
end;
procedure SiteLabelMouseMove3(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel2.Font.Color:=clGreen
end;
procedure SiteLabelMouseMove4(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
SiteLabel2.Font.Color:=clBlue
end;
procedure InitializeWizard();
begin
MouseLabel2:=TLabel.Create(WizardForm)
MouseLabel2.Width:=WizardForm.Width
MouseLabel2.Height:=WizardForm.Height
MouseLabel2.Autosize:=False
MouseLabel2.Transparent:=True
MouseLabel2.OnMouseMove:=@SiteLabelMouseMove4
MouseLabel2.Parent:=WizardForm
MouseLabel3:=TLabel.Create(WizardForm)
MouseLabel3.Width:=WizardForm.Width
MouseLabel3.Height:=WizardForm.Height
MouseLabel3.Autosize:=False
MouseLabel3.Transparent:=True
MouseLabel3.OnMouseMove:=@SiteLabelMouseMove4
MouseLabel3.Parent:=WizardForm.InnerPage
MouseLabel4:=TLabel.Create(WizardForm)
MouseLabel4.Width:=WizardForm.Width
MouseLabel4.Height:=WizardForm.Height
MouseLabel4.Autosize:=False
MouseLabel4.Transparent:=True
MouseLabel4.OnMouseMove:=@SiteLabelMouseMove4
MouseLabel4.Parent:=WizardForm.SelectDirPage
SiteLabel2:=TLabel.Create(WizardForm)
SiteLabel2.Left:=3
SiteLabel2.Top:=0
SiteLabel2.Cursor:=crHand
SiteLabel2.Font.Color:=clBlue
SiteLabel2.Caption:=WizardForm.BeveledLabel.Caption
SiteLabel2.OnClick:=@SiteLabelOnClick2
SiteLabel2.OnMouseDown:=@SiteLabelMouseDown2
SiteLabel2.OnMouseUp:=@SiteLabelMouseUp2
SiteLabel2.OnMouseMove:=@SiteLabelMouseMove3
SiteLabel2.Parent:=WizardForm.BeveledLabel
WizardForm.BeveledLabel.Enabled:=True
end; |
