इनो सेटअप: TBitmapImage

Question

नहीं दिखा रहा है, मैं TBitmapImage कक्षा के साथ अपने इनो स्क्रिप्ट में कस्टम डिज़ाइन किए गए बटन जोड़ना चाहता हूं।

मेरी इनो सेटअप स्क्रिप्ट बस ठीक से संकलित है लेकिन बिटमैप फॉर्म में नहीं दिख रहा है। मैंने किसी भी संभावना को देखा लेकिन मुझे जो त्रुटि मिली वह प्रतीत नहीं हो रही। यही कारण है कि कैसे TBitmapImage हिस्सा एटीएम की तरह लग रहा है:

procedure CreateMuteButton(ParentForm: TSetupForm); 
var 
    MuteImage: TBitmapImage; 
    BitmapFileName: String; 
begin 
    BitmapFileName := ExpandConstant('{tmp}\muteBtn.bmp'); 
    ExtractTemporaryFile(ExtractFileName(BitmapFileName)); 
    MuteImage := TBitmapImage.Create(ParentForm); 
    MuteImage.Bitmap.LoadFromFile(BitmapFileName); 
    MuteImage.Cursor := crHand; 
    MuteImage.OnClick := @MuteButtonOnClick; 
    MuteImage.Parent := ParentForm; 
    MuteImage.Left := 45; 
    MuteImage.Top := 80 
    MuteImage.Width := 38; 
    MuteImage.Height := 50; 
end; 

procedure InitializeWizard(); 
var 
    val: Integer; 
begin 
    CreateMuteButton(WizardForm); 
    (...) 
end; 

Answer 1

WizardForm क्लाइंट क्षेत्र में ही नीचे bevelled रेखा से नीचे केवल दिख रहा है। ऊपर WizardForm.InnerPage है, और मध्य में व्यक्तिगत/वर्तमान विज़ार्ड पृष्ठ निजी InnerNotebook में निहित हैं।

यह पृष्ठों के बाईं ओर छवि कहते हैं:

MuteImage := TBitmapImage.Create(WizardForm.InnerPage); 
MuteImage.Parent := WizardForm.InnerPage; 
MuteImage.Left := 0; 
{ Uses the top of the wizard pages to line up } 
MuteImage.Top := WizardForm.SelectDirPage.Parent.Top; 

जबकि इस तल खंड में कहते हैं:

MuteImage := TBitmapImage.Create(WizardForm); 
MuteImage.Parent := WizardForm; 
MuteImage.Left := 0; 
{ Below the inner page } 
MuteImage.Top := WizardForm.InnerPage.Height;