@Darkangel5
Fix the lines where there are errors, using phone in bed, not even using a computer.
first create a timer like this:
var
FontTimer: TTimer;
InstallMouseMove: Boolean;
second create the Timer's procedure
procedure FontOnTimer(Sender: TObject);
begin
if InstallMouseMove and (installlabel.font.size < 18) then
installlabel.font.size:=installlabel.font.size:= + 1;
if not InstallMouseMove and (installlabel.font.size > 12) then
installlabel.font.size:=installlabel.font.size:= - 1;
end;
the label's mouse enter and leave
procedure InstallLabelOnEnter(Sender: TObject);
begin
InstallMouseMove:=True;
end;
procedure InstallLabelOnLeave(Sender: TObject);
begin
InstallMouseMove:=False;
end;
now at initializewizard do this
InstallLabel.OnMouseLeave:=@InstallLabelOnLeave;
InstallLabel.OnMouseEnter:=@InstallLabelOnEnter;
FontTimer:=TTimer.Create(WizardForm)
with FontTimer do
begin
OnTimer:=@FontOnTimer;
Interval:=10;
Enabled:=True;
end;
installlabel is the existing label.