OpenFileDialog предварительный просмотр файла

[RomanPavlovich]

В OpenFileDialog при выборе файла .txt отображается его содержимое.
Если изменить расширение например на pas, содержимое перестаёт отражаться, как добавить свой формат файла в предварительный просмотр?

[саша40]

Изменяя настройки Проводника Windows, иначе говоря лезть в реестр.

[RomanPavlovich]

Сообщение от саша40

Изменяя настройки Проводника Windows, иначе говоря лезть в реестр.

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

И второй вопрос, как вообще в диалоге открытия файла отключить предварительный просмотр?

[Stilet]

как вообще в диалоге открытия файла отключить предварительный просмотр?

А так же как и в виндовсе. У него есть (должна быть) кнопка стиля вида. Там переключает пользователь на вид, который ему удобен для этого каталога - Список, плитка, просмотр и т.д. Вот ими и нужно воспользоваться.

[Человек_Борща]

Если изменить расширение например на pas, содержимое перестаёт отражаться, как добавить свой формат файла в предварительный просмотр?

Нужно писать спец. расширение под explorer. Реестром это не делается.

[xxbesoxx]

Если изменить расширение например на pas, содержимое перестаёт отражаться,

Прежде чем говорить , надо пробовать . Открывает и читает формат (txt, pas, dpr, dproj ) и сохранять формате txt
Да. Задача очень сложное Проект перекомпилировал Delphi XE3

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.execute then
   memo1.Lines.LoadFromFile(opendialog1.FileName)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
   Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
end;

В OpenFileDialog при выборе файла .txt отображается его содержимое.

Подозрения что вы еще работайте на Delphi7 и за это бывает такой "Чудеса"

[Аватар]

xxbesoxx, слышал звон, да не знаешь где он?

[Stilet]

Подозрения что вы еще работайте на Delphi7 и за это бывает такой "Чудеса"

Тема не о том как загрузить файл, а о том как в диалоге выбора файла убрать\показать предварительный просмотр.

[xxbesoxx]

показать предварительный просмотр.

Думаю и помню что Delphi есть Fastreport . значит мне надо из Form1.Memo1.Lines.text отображать на Fastreport .
1) Беру компонент frxReport1
2) Гуглить обязательно
3) Попадаю на форумах Fartreport http://www.fast-report.com/ru/forum/...showtopic=3811 Смотрю #2 и все
ну посмотрите --"предварительный просмотр"

procedure TForm1.BitBtn1Click(Sender: TObject);
 var
  memo: TfrxMemoView;
begin
    memo:=frxReport1.FindObject('Memo1') as TfrxMemoView;
    memo.Text:= Form1.Memo1.Lines.text;
    frxReport1.ShowReport;
end;

Все нормально ?

[xxbesoxx]

xxbesoxx, слышал звон, да не знаешь где он?

Не понял друг ?