Problem sa učitavanjem slike u Delphiju

[ maximus_1 @ 30.07.2005. 14:20 ] @

Kada učitavam slike, učitam ih sve iz direktorija u listbox te na taj način prebacujem na sljedeću ili prethodnu. Sve je u redu dok ne odem u Fullscreen gdje također šaltam slike ali mi se pojavi pogreška da je slika već zauzeta drugim procesom. Kako ću izbjeći tu pogrešku. Evo kod za šaltanje slike:

Code:

     ChosenPic := FileList.ItemIndex;

     if not PicLoaded Then
          Exit;

     if ChosenPic <= 0 then
          ChosenPic := FileList.Count -1
     else if ChosenPic > FileList.Count -1 then
          ChosenPic := 0
     else
          Dec(ChosenPic);
          FileList.ItemIndex := ChosenPic;
          Filename := ExtractFileDir(FileName) + CDash + FileList.Items.Strings[ChosenPic];

          PicName  := ExtractFileName(FileName);
          PicExt   := ExtractFileExt(FileName);

          imgMain.Picture.LoadFromFile(FileName);

[ DeYo @ 12.08.2005. 16:58 ] @

Apsolutno istu proceduru koristis i u obicnom i u fullscreen modu?
Ne kazem da to nije u redu vec samo pitam.

Koliko sam ukapirao tebi je tvoja procedura radila dok se ne prebacis u fullscreen pa zato i nisam testirao deo sa odredjivanjem indeksa zeljene slike.

Ostatak sam probao i nisam imao problema u fullscreenu. Slike su se najnormalnije ucitavale.

Pitanje je kako se prebacujes u fullscreen. Ja sam isao sa:

Code:

  BorderStyle:=bsNone;
  BorderIcons:=[];
  FormStyle:=fsStayOnTop;

_{[Ovu poruku je menjao DeYo dana 12.08.2005. u 17:58 GMT+1]}

[ maximus_1 @ 16.08.2005. 19:29 ] @

Evo kod za FullScreen:

Code:
procedure TfrmMain.Fullscreen1Click(Sender: TObject);
var
      i: Integer;
begin

if not IsInFullScreen then begin {Idi u FULLSCREEN}
    frmMain.WindowState         := wsMaximized;
    frmMain.BorderStyle         := bsNone;
    ToolBar1.Visible            := False;
    Status.Visible              := False;
    frmMain.Color               := BackColor;

    lblFSName.Visible           := True;
    lblFSDimensions.Visible     := True;
    lblFSFilesize.Visible       := True;
    lblFSNumInDir.Visible       := True;

          {Ucitavanje svojstava slike}
    lblFSName.Caption           := Status.Panels[2].Text;;
    lblFSDimensions.Caption     := Status.Panels[1].Text;
    lblFSFileSize.Caption       := frmPicInfo.CalcFileSize;
    lblFSNumInDir.Caption       := lblX.Caption  + '. ' + Label2.Caption + ' ' +
    lblY.Caption;
          {Sakrij menu izbornik}
    for i := 0 to MainMenu1.Items.Count - 1 do
      TMenuItem(MainMenu1.Items[i]).Visible := False;
end
else begin  {Izadji iz FULLSCREENA}
    frmMain.WindowState         := wsMaximized;
    frmMain.BorderStyle         := bsSizeable;
    ToolBar1.Visible            := True;
    Status.Visible              := True;
    frmMain.Color               := BackColor;

    lblFSName.Visible           := False;
    lblFSDimensions.Visible     := False;
    lblFSFileSize.Visible       := False;
    lblFSNumInDir.Visible       := False;

    lblFSName.Caption           := '';
    lblFSDimensions.Caption     := '';
    lblFSFileSize.Caption       := '';
    lblFSNumInDir.Caption       := '';
      {pokazi menu izbornik}
  for i := 0 to MainMenu1.Items.Count - 1 do
    TMenuItem(MainMenu1.Items[i]).Visible := True;
end;
end;

Ja sumljam da je tu negdje pogreška ali eto...

[ DeYo @ 18.08.2005. 17:43 ] @

Ovo sve deluje OK.
Kroz proceduru ti uglavnom odradjujes fizikaliju (labele, skrivanje komponenti...) a to nema veze sa error porukom koju dobijas.

Iz ovog sto si postovao ja ne mogu da zakljucim sta je u pitanju. Sorry.

Ako hoces posalji mi kod na mail pa da probam kod mene, pri tome ako mozes izvuci samo taj unit.

[ maximus_1 @ 18.08.2005. 20:53 ] @

Ok daj mejl

[ DeYo @ 24.08.2005. 16:28 ] @

Problem resen.

Nije bilo greske ni u proceduri Next-Previous ni u prebacivanju u Fullscreen.
Problem je bio u pomocnim procedurama, u njima je korisceno AssignFile i Reset a to nigde nije zatvarano sa CloseFile. E moj maximuse...
Zbog toga je kasnije prilikom pokusaja imgMain.Picture.LoadFromFile(FileName) dobijana poruka da je fajl zauzet.

Eto vam svima jedno naravoucenije: uvek u paru Reset/Rewrite-Close.

_{[Ovu poruku je menjao DeYo dana 24.08.2005. u 17:37 GMT+1]}