[TeRomani]

Собственно сабж...

Хотелось бы сделать такую штуку как в винде когда делаешь любой OpenDialog там же есть такая штука с предаврительным просмотром любого как я понимаю зарегистрированного типа файла... вот на форме у себя хотелось бы такое разместить

мучался с OleContainer, я так понимаю концы туда ведут... но (отмечаю только то что можно сделать в стандартном опендиалоге и не получилось никак с контейнером)
1. полоски прокрутки в границах контейнера
2. лишние менюхи в ворде\экселе
3. пдф вообще вылазит целиком окно акробата

в общем если кто может помочь с этим...
повторюсь задача стоит чтоб показывалось также как и в окошке предварительного просмотра винды (7) ну или лучше

[Alegun]

На самом деле не всё так просто - виндовс показывает не сам документ, а его скриншот, для получения которого работает специальный сервис предварительного просмотра. Не знаю как насчёт уже зарегистрированных типов, есть лишь пример как можно отображать превьюшку своего файла (инсталлятор - это регистратор библиотеки плюс исходник и примеры "своих" файлов для проверки), для этого нужно прописать его в системном сервисе с помощью внедрения туда DLL... в исходниках этот процесс расписан довольно подробно

[TeRomani]

хм... да мне собственно своих то не надо... мне б достаточно было б и того что в опендиалоге в превьюшке есть... мож какаянить функция с winapi это может... или еще что ну както вот так

[Freeman]

Я знаю, что в XP за "Программу просмотра изображений и факсов" отвечает shdocwv.dll (Shell Document View). В современных версиях Delphi есть модуль SHDocWv.pas, но в нем что-то больше про браузер. Не знаю.

[NumLock]

так что-ли:



Получение эскиза файла/папки

[TeRomani]

та неееет
вот так
http://prntscr.com/3pdls2
например

ну сделайте где угодно файл-> открыть и тама справа окошко предварит. просмотра

[TeRomani]

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

виндовс показывает не сам документ

Да ладно????
его даже редактировать можно в окошке превьюхи
ну речь о вин7 я хз про ХП помоему все забыли давно уже

[Alegun]

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

...его даже редактировать можно в окошке превьюхи...

Тогда это у вас не превью, а полноценный редактор - чисто OLE-контейнер с запущеной в нём программой, концепт превью лишь в том чтоб показать примерное содержание документа пользователю, а уж потом он решает что с ним делать дальше

[TeRomani]

дык я об этом еще в первом посте написал
что речь об olecontainer

и на 99% уверен что все решается одной строчкой так как по логике врятли микрософт бы заморачивался скорее всего объявили стандартом какуюто одну команду
типа
OleObject.PreviewMode=True
или
OleObject.HideMenu
или
DoVerb(ovPreview)
ну чтото в этом роде
или ShowContent

вот вопрос что это за команда\процедура\параметр...

[Freeman]

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

и на 99% уверен что все решается одной строчкой так как по логике врятли микрософт бы заморачивался скорее всего объявили стандартом какуюто одну команду

Не люблю я давать такие ответы, но тут вижу, что человек умный, поэтому не могу не удивиться: "А вы гуглить не пробовали?". У меня, например, нагуглилось про Word и Excel. Из прочитанного в той теме догадываюсь, что решение не совсем универсально, следовательно задача оказалась сложнее, чем представлялась на первый взгляд.

[Freeman]

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

1. полоски прокрутки в границах контейнера
2. лишние менюхи в ворде\экселе
3. пдф вообще вылазит целиком окно акробата

Вот странно, потестировал дома на Office XP, выставил SizeMode := smScale и AutoActivate := aaManual, и этого оказалось достаточно, чтобы вид в окне был похож на просмотр и нельзя было войти в документ двойным кликом, загрузив тем самым интерфейс Excel в свою программу.

Посмотрел в исходниках. В реализации TOleContainer используются команды DoVerb(ovPrimary) и DoVerb(ovShow) для реализации свойства AutoActivate.

[TeRomani]

http://prntscr.com/3qa0uy
а у меня вот так

[Freeman]

Я вот ведь гад какой -- сравнил diff-ом OleCntrs.pas от Delphi 6 и XE2. Оказалось, что он почти не изменился, только пара незначащих строчек добавилась. Тут уже надо серьезно исследовать, видимо.

Жарко.