[Geograph]

Хотя я ошибся в Delphi есть стандартный компонент, правда работает только начиная с Vist'ы TFileOpenDialog

Code:

with TFileOpenDialog.Create(nil) do
try
Title := 'Select Directory';
Options := [fdoPickFolders, fdoPathMustExist, fdoForceFileSystem]; // YMMV
OkButtonLabel := 'Select';
DefaultFolder := FDir;
FileName := FDir;
if Execute then
ShowMessage(FileName);
finally
Free;
end

[Geograph]

Видно проблему еще не решили? Версия 7.60 – У ProgressBar'а бешеная скорость прокрутки при Style := pbstMarquee, и изменение MarqueeInterval никак не влияет.

Причем если отключить скин, то скорость нормально изменяется.

[Author]

Posts