Проблемы с OpenPictureDialog

[lexaltd]

Мне надо чтоб прикаждом открытии OpenPictureDialog открывался один и тот же каталог
Задаю путь через OpenPictureDialog1.InitialDir , ofNoChangeDir := true;

При первом открытии всё нормально открывается, та папка которую я задал , но при следующих открытиях - открывается папка из которой был загружен последний файл.

Самое интересное что SavePictureDialog работает как я хочу(открывается тот каталог который я задал) , при таких же настройках.

Может кто то знает как решить эту проблему ???

Зарание спасибо

[Sm1Le]

Вроде бы если после Execute поставить SetCurrentDir с нужным тебе параметром ... То будет все ОК ...

[lexaltd]

Сообщение от Sm1Le

Вроде бы если после Execute поставить SetCurrentDir с нужным тебе параметром ... То будет все ОК ...

Не получатся
Вобще туда не заходит
Пишу так

SetCurrentDir('C:\Program Files');

Если так, так он хоть первый раз заходит правильно

OpenPictureDialog1.InitialDir := 'C:\Program Files' :

[Terran]

Сообщение от lexaltd

Мне надо чтоб прикаждом открытии OpenPictureDialog открывался один и тот же каталог
Задаю путь через OpenPictureDialog1.InitialDir , ofNoChangeDir := true;

При первом открытии всё нормально открывается, та папка которую я задал , но при следующих открытиях - открывается папка из которой был загружен последний файл.

Самое интересное что SavePictureDialog работает как я хочу(открывается тот каталог который я задал) , при таких же настройках.

Может кто то знает как решить эту проблему ???

Зарание спасибо

Попробуйте так:

Procedure TForm1.Button1Click(Sender: TObject);
Var
MDir: String;
Begin
MDir:=GetCurrentDir;
If SavePictureDialog1.Execute Then
///
SetCurrentDir(MDir);
End;

[lexaltd]

С OpenPictureDialog не получается

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
MDir: String;
begin
 MDir := 'C:\Program Files';
 MDir:=GetCurrentDir;
if OpenPictureDialog1.Execute then
 begin
 SetCurrentDir(MDir);
 Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 end;
end;

А с SavePictureDialog и так SavePictureDialog.InitialDir := 'C:\Program Files'; нормально получается
P.S. У меня Delphi 7

[_Engine_]

Сообщение от lexaltd

С OpenPictureDialog не получается

 MDir := 'C:\Program Files';
 MDir:=GetCurrentDir;
 ...
 SetCurrentDir(MDir);

Что вы хотите сделать в этих строчках?

[Sm1Le]

Сообщение от _Engine_

Что вы хотите сделать в этих строчках?

ДА очень просто Просто По логике Мы установили Активную директорию в Винде... Смысл ? - Да еще проще, После того как МЫ выбрали нужную картинку, активная директория поменялась, из этого мы пытаемся вернуть Активную директорию обратно ... Но не получается =(

[_Engine_]

Сообщение от Sm1Le

ДА очень просто Просто По логике Мы установили Активную директорию в Винде... Смысл ? - Да еще проще, После того как МЫ выбрали нужную картинку, активная директория поменялась, из этого мы пытаемся вернуть Активную директорию обратно ... Но не получается =(

Хорошо, но зачем тогда
Mdir := 'c:\Program Files'; ?

[Sm1Le]

Сообщение от lexaltd

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
MDir: String;
begin
 MDir := 'C:\Program Files';
 MDir:=GetCurrentDir;
if OpenPictureDialog1.Execute then
 begin
 SetCurrentDir(MDir);
 Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 end;
end;

хммм ... Mdir - ты зачем перетираеш ?! - MDir := 'C:\Program Files'; - присвоил то что надо, и ? MDir:=GetCurrentDir; - перетер тем что было =)
Но не думаю что это что то изменить Хотя ... Проверь =)