vint56
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Files]
Source: logo1.bmp; DestDir: {tmp}
Source: logo2.bmp; DestDir: {tmp}
[Code]
var
LogoImage:TBitmapImage;
LogoPanel: TPanel;
LogoLabel: TLabel;
LogoImage1:TBitmapImage;
LogoPanel1: TPanel;
LogoLabel1: TLabel;
procedure LogoLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://megatorrents.kz/forum/index.php', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
procedure LogoLabel1OnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://kaztorka.org/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
procedure InitializeWizard();
/////////////////
begin
LogoPanel := TPanel.Create(WizardForm);
with LogoPanel do
begin
Parent := WizardForm;
Left := ScaleX(8);
Top := ScaleY(327);
Width := ScaleX(120);
Height := ScaleY(28);
BevelOuter := bvNone;
end;
LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
Parent := LogoPanel;
Left := ScaleX(0);
Top := ScaleY(0);
AutoSize:=true;
ReplaceColor:=clFuchsia;
ReplaceWithColor:=clBtnFace;
ExtractTemporaryFile('logo1.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo1.bmp'));
end;
LogoLabel := TLabel.Create(WizardForm);
with LogoLabel do
begin
Parent := LogoPanel;
Width := LogoPanel.Width;
Height := LogoPanel.Height;
Transparent:=True;
Cursor := crHand;
OnClick:=@LogoLabelOnClick;
end;
///////////////////////////////////////////////////////////////////
LogoPanel1 := TPanel.Create(WizardForm);
with LogoPanel1 do
begin
Parent := WizardForm;
Left := ScaleX(180);
Top := ScaleY(327);
Width := ScaleX(120);
Height := ScaleY(28);
BevelOuter := bvNone;
end;
LogoImage1 := TBitmapImage.Create(WizardForm);
with LogoImage1 do
begin
Parent := LogoPanel1;
Left := ScaleX(0);
Top := ScaleY(0);
AutoSize:=true;
ReplaceColor:=clFuchsia;
ReplaceWithColor:=clBtnFace;
ExtractTemporaryFile('logo2.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo2.bmp'));
end;
LogoLabel1 := TLabel.Create(WizardForm);
with LogoLabel1 do
begin
Parent := LogoPanel1;
Width := LogoPanel1.Width;
Height := LogoPanel1.Height;
Transparent:=True;
Cursor := crHand;
OnClick:=@LogoLabel1OnClick;
end;
end; |
