[saurn]

neorom

читать дальше »

Код:

[Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\My Program

[Messages]
BeveledLabel=RePack by neorom

[Code]
var
mLabel: TLabel;
ErrorCode: Integer;

procedure BevelLabelClick(Sender: TObject);
begin
  ShellExec('open', 'http://toloka.hurtom.com', '', '', SW_SHOW, ewNoWait, ErrorCode)
end;

procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  WizardForm.BeveledLabel.Font.Color := clRed;
  WizardForm.BeveledLabel.Font.Style := [fsBold, fsUnderline];
end;

procedure MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  WizardForm.BeveledLabel.Font.Color := clBlue;
  WizardForm.BeveledLabel.Font.Style := [fsBold, fsUnderline];
end;

procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  WizardForm.BeveledLabel.Font.Color := clGreen;
  WizardForm.BeveledLabel.Font.Style := [fsBold, fsUnderline];
end;

procedure lMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  WizardForm.BeveledLabel.Font.Color := clBlue;
  WizardForm.BeveledLabel.Font.Style := [fsBold];
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    mLabel := TLabel.Create(nil)
    mLabel.Width := WizardForm.Width;
    mLabel.Height := WizardForm.Height;
    mLabel.Autosize := False;
    mLabel.Transparent := True;
    mLabel.OnMouseMove := @lMouseMove;
    mLabel.Parent := WizardForm;
    with BeveledLabel do
    begin
      Font.Color := clBlue;
      Font.Style := [fsBold];
      Enabled := True;
      Cursor := crHand;
      OnClick := @BevelLabelClick;
      OnMouseDown := @MouseDown;
      OnMouseUp := @MouseUp;
      OnMouseMove := @MouseMove;
    end;
  end;
end;