2012-05-27 26 views
5

TBitmapImage sınıfıyla Inno Script'ime özel tasarlanmış düğmeler eklemek istiyorum.Inno Kurulum: TBitmapImage görünmüyor

My Inno Kur komut dosyası yalnızca iyi bir şekilde derleniyor ancak bitmap formda gösterilmiyor. Herhangi bir olasılığa baktım ama yaptığım hatayı bulamıyorum. Yani TBitmapImage kısım atm benziyor açıklanmıştır:

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; 
+0

koduyla yanlış bir şey göremiyorum

MuteImage := TBitmapImage.Create(WizardForm); MuteImage.Parent := WizardForm; MuteImage.Left := 0; { Below the inner page } MuteImage.Top := WizardForm.InnerPage.Height; 
, deneyin: Bu alt bölümde koyar Oysa

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; 

: Bu sayfalarda solundaki resmi koyar

MuteImage.BringToFront(); Z siparişi doldurulmuş olabilir. –

+0

Bunu ekledim, yardımcı olmadı:/ () içinde bir şey belirtmem gerekir mi? Bu belgede bulamıyorum. – PTS

+0

BringToFront üzerinde argüman yok. Yıllardır Innosetup yapılmadı, ama iof Ben bir Delphi app bu sorunu vardı, Ebeveyn ayarlamak için Forggetting, bringtofont, ya da sadece yanlış ebeveyn aramak istiyorum waht olurdu. –

cevap

5

WizardForm istemci alanı kendisi alt kesik çizginin altında görülebilir. Bunun üzerinde WizardForm.InnerPage ve ortadaki tek tek/geçerli Sihirbaz sayfaları özel bir InnerNotebook içeriyordu.

+0

İşi yaptığınız çok teşekkürler! :) Farklı alanlar hakkında bilgi sahibi olmak çok güzel. – PTS

İlgili konular