View Single Post
  #637  
Old 12-07-2013, 09:40
buttignol's Avatar
buttignol buttignol is offline
Registered User
 
Join Date: Sep 2012
Location: Brasil
Posts: 126
Thanks: 102
Thanked 16 Times in 13 Posts
buttignol is on a distinguished road
Friends I am trying to put a warning on the page selecttasks page but I can not see the prompt script ex what is wrong

Code:
var
  avisoLabel: TLabel;

procedure InitializeWizard();
var
  aviso: TLabel;
begin

avisoLabel := TLabel.Create(WizardForm);
avisoLabel.Left := ScaleX(0);
avisoLabel.Top := ScaleY(190)
avisoLabel.Width := ScaleY(185)
avisoLabel.Height := ScaleY(13)
//avisoLabel.Parent := WizardForm;      
avisoLabel.Parent:= WizardForm.SelectDirPage;
//avisoLabel.Font.Name:='Verdana';
//avisoLabel.Font.Size:= 8;
//avisoLabel.Font.Color:=${#Color};
avisoLabel.Transparent:=true;
avisoLabel.Caption := 'ex;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
//avisoLabel.Font.Style:= [fsBold];
//avisoLabel.AutoSize := True;

end;

procedure CurPageChanged(CurPageID: Integer);
begin
  avisoLabel.Visible := CurPageID = wpSelectDir;   //selecionar pagina de destino
end;
Reply With Quote