 05-12-2007, 6:58
|
Didi
Joined on 05-12-2007
Posts 1
|
ShowOpenDlg : file not found
|
  
|
|
|
Hi, newbie with LEAD tools, first tests goiing on.
I get an error 10 in the showopendlg method, when i try to open a file. This usualy happens only after serveral succesfull ones. Program restart, and i can use the file in question, but then after fourth or so opening, i get the same error.
Tried different directories, filetypes, ...
Delphi 2006, XP(64)
code snippet
procedure TForm1.btnfoClick(Sender: TObject);
begin
dlgfile.LEADImage := img;
dlgfile.DlgFlags := DLG_OPEN_SHOW_PROGRESSIVE +
DLG_OPEN_SHOW_MULTIPAGE +
DLG_OPEN_SHOW_LOADROTATED +
DLG_OPEN_SHOW_LOADCOMPRESSED +
DLG_OPEN_SHOW_FILEINFO +
DLG_OPEN_SHOW_PREVIEW +
DLG_OPEN_SHOW_DELPAGE +
DLG_OPEN_VIEWTOTALPAGES +
DLG_OPEN_LOADBITMAP +
DLG_OPEN_GENERATETHUMBNAIL;
dlgfile.ShowOpenDlg(self);
lbla.Caption := dlgfile.FileName;
lbla.Refresh;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dlgserv.FreeDialogs;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
dlgserv.InitDialogs(0);
end;
|
|
|
|
|
Report
|
|
|
|