Хотелось бы и заголовок окна свой, и чтобы конвертер подбирался по типу файла автоматом... Поглядел по исходникам, как OpenBrowser работает:
Код:
StdCmds.OpenBrowser
StdApi.OpenBrowser
StdApi.PathToSpec - подбор пути с учётом языка Dialog.language
loc.res := 77
Views.OldView
VAR conv: Converters.Converter
conv := NIL
Views.Old
viewHook.OldView -> Views.SetViewHook -> StdDialog
StdDialog.PROCEDURE (h: ViewHook) OldView
loc.res = 77 -> не выполняется поиск среди имеющихся окон, а сразу:
Converters.Import(loc, name, conv, s) -> подбирает конвертер по типу файла, если conv = NIL
StdDialog.Open(v, t, NIL, "", NIL, FALSE, TRUE, FALSE, TRUE, FALSE)
Converters.Import подбирает конвертер и загружает --- открытая (не private module of BlackBox). А открытой процедуры, которой можно задать заголовок, и скормить результаты Converters.Import, кажется нету...
P.S. и оффтоп --- про обероны и среды... Достаточно всего лишь в языке: вызов процедуры ТОЛЬКО через QualIdent, а в среде команды "показать исходник" и "показать документацию" по выделенному QualIdent. И все --- любые исходники, завязанные на обычные поцедуры, раскапываются мгновенно... Вспоминаю копание в дельфийских да сишных библиотеках --- ужос...
Вход
FAQ
Поиск
