Come nascondere il pannello principale e mostrare un'immagine su tutta la pagina?

Question

Ho creato una pagina di benvenuto personalizzata con un'immagine su di essa, ma il pannello principale in alto rimane da visualizzare. Per quello che voglio ottenere immagine vedete qui sotto:

Ecco il codice:

[Code] 
procedure InitializeWizard; 
var 
    BitmapFileName: string; 
    BitmapImage: TBitmapImage; 
    WelcomePage: TWizardPage; 
begin 
    WelcomePage := CreateCustomPage(wpWelcome, '', '');  

    BitmapFileName := ExpandConstant('{tmp}\DataNova_Logo.bmp'); 
    ExtractTemporaryFile(ExtractFileName(BitmapFileName)); 

    BitmapImage := TBitmapImage.Create(WelcomePage); 
    BitmapImage.AutoSize := True; 
    BitmapImage.Bitmap.LoadFromFile(BitmapFileName); 
    BitmapImage.Cursor := crHand; 
    BitmapImage.Left := 10; 
    BitmapImage.Top := 10; 
    BitmapImage.Parent := WelcomePage.Surface; 
end; 

Come mostrare l'immagine su tutta la pagina con il pannello principale nascosta?

Answer 1

È necessario nascondere i componenti Bevel1, MainPanel e InnerNotebook quando si passa alla pagina di benvenuto e mostrati di nuovo quando si esce. Al contrario, l'immagine che devi mostrare solo quando stai visualizzando la tua pagina di benvenuto poiché copre l'intera area della pagina. Così il seguente codice farà il trucco:

[Code] 
var 
    WelcomePageID: Integer; 
    BitmapImage: TBitmapImage; 

procedure InitializeWizard; 
var 
    WelcomePage: TWizardPage; 
begin 
    WelcomePage := CreateCustomPage(wpWelcome, '', ''); 
    WelcomePageID := WelcomePage.ID; 
    BitmapImage := TBitmapImage.Create(WizardForm); 
    BitmapImage.Bitmap.LoadFromFile('C:\Image.bmp'); 
    BitmapImage.Top := 0; 
    BitmapImage.Left := 0; 
    BitmapImage.AutoSize := True; 
    BitmapImage.Cursor := crHand; 
    BitmapImage.Visible := False; 
    BitmapImage.Parent := WizardForm.InnerPage; 
end; 

procedure CurPageChanged(CurPageID: Integer); 
begin 
    BitmapImage.Visible := CurPageID = WelcomePageID; 
    WizardForm.Bevel1.Visible := CurPageID <> WelcomePageID; 
    WizardForm.MainPanel.Visible := CurPageID <> WelcomePageID; 
    WizardForm.InnerNotebook.Visible := CurPageID <> WelcomePageID; 
end;