Új hozzászólás Aktív témák

• #784 Calogero addikt

  Új Válasz 2005-04-25 14:22:47 #784

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Calogero

  addikt

   

  Procedure TFelviteForm.BitBtnBoritoClick(Sender: TObject);
  Begin
    ImageBorito.Picture.Bitmap.FreeImage;
    OpenPictureDialog.InitialDir:=ExtractFilePath(Application.ExeName)+'Boritok';
    If OpenPictureDialog.Execute Then
       Begin
         ImageBorito.Picture.LoadFromFile(OpenPictureDialog.FileName);
         VanKep:=True;
       End;
  End;

  
  
  OpenPictureDialog-al szeretnek betolteni egy kepet, ami sikerul is azzal nincs gond.
  A gond InitialDir-el van. Az elso klikknel meg tokeletesen mukodik, de ha a kepet egy masik konytvtarbol toltom be. akkor a kovetkezo klikknel mar nem veszi figyelembe az InitialDir-ben megadott erteket, hanem megjegyzi hogy honnan lett kijelove az elozo kep. Ha a programbol kilepek es ujra inditom akkor ismet jol mukodik az elso klikkig.
  
  

Új hozzászólás Aktív témák