Чтение онлайн

ЖАНРЫ

Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

Шрифт:

 procedure setLayoutMode(const layoutMode: WideString);

 procedure setNamedDest(const namedDest: WideString);

 procedure Print;

 procedure printWithDialog;

 procedure setZoom(percent: Single);

 procedure setZoomScroll(percent: Single; left: Single; top: Single);

 procedure setView(const viewMode: WideString);

 procedure setViewScroll(constviewMode: WideString; offset: Single);

 procedure setViewRect(left: Single; top: Single; width: Single; height: Single);

 procedure printPages(from: Integer; to_: Integer);

 procedureprintPagesFit(from: Integer; to_: Integer; shrinkToFit: WordBool);

 procedure printAll;

 procedure printAllFit(shrinkToFit: WordBool);

 procedure setShowScrollbars(On_: WordBool);

 procedure AboutBox;

 property ControlInterface: _DPdf read GetControlInterface;

 property DefaultInterface: _DPdf read GetControlInterface;

published

 property TabStop;

 property Align;

 property DragCursor;

 property DragMode;

 property ParentShowHint;

 property PopupMenu;

 property ShowHint;

 property TabOrder;

 property Visible;

 property OnDragDrop;

 property OnDragOver;

 property OnEndDrag;

 property OnEnter;

 property OnExit;

 property OnStartDrag;

 property src: WideString index 1 read GetWideStringProp write SetWideStringProp stored False;

end;

в

заключение можно добавить следующее: Если Вы не уверены, что у конечного пользователя Вашей программы установлен Acrobat Reader, то необходимо, чтобы приложение проверяло эту ситуацию, прежде чем будут производится различные манипуляции с компонентой TPdf. И второе, если файл PDF имеет различные связи, например
с AVI файлами, то они не будут работать из Delphi.

Надеюсь этот пример будет Вам полезен. 

Vista Software Apollo 

Какие есть рекомендации по использованию Apollo SDE?

Nomadic советует: 

1. При работе с Аполло (если у тебя базы используются и досовскими задачами) — то в dbgrid'e поставь значение Font→Charset = OEM_Charset. И не забудь сразу после открытия базы вызывать метод Apollo1.SetTranslate(True). Если твое приложение будет работать с базами одновременно с досовскими, то советую перед открытием баз вызывать метод Apollo1.SysProp(SDE_SP_SETOBUFFER, Pointer(0)); для отключения буферизации операций чтения/записи в базы.

2. Если ты пишешь приложение, которое будет использовать базы только в кодировке Windows (CP1251), то тебе достаточно будет указать в dbgrid'e значение Font→Charset = Russian_Charset. Если базы в 866 кодиpовке, то:

1. Использование TTable + TApollo:

=== Cut ====

TTable.Open;

TApollo.SetTranslate(True);

TTable.Refresh;

=== Cut ====

2. Использование TApTable:

=== Cut ====

TApTable.Open;

TApTable.SetTranslate(True);

TApTable.Refresh;

=== Cut ====

И вместо закорючек будут родные русские буквы. Правда, только при выполнении программы. В дизайнере на этапе проектирования псевдографика так и останется. 

Microsoft Excel 

Не работает передача данных по OLE в русский Excel

Nomadic отвечает:

A: (SM): Дело в том что в VCL твои команды OLE2 передаются Excel'у в русском контексте (не знаю, как это правильно назвать). Для исправления необходимо найти в файле OLEAUTO.pas в функции GetIDsOfNames строчку

if Dispatch.GetIDsOfNames(GUID_NULL, @NameRefs, NameCount, LOCALE_SYSTEM_DEFAULT, DispIDs) <> 0 then

и заменить ее на

if Dispatch.GetIDsOfNames(GUID_NULL, @NameRefs, NameCount, ((LANG_ENGLISH+SUBLANG_DEFAULT*1024)+SORT_DEFAULT* 65536), DispIDs) <> 0 then

После этого у меня Excel стал понимать нормальные английские команды :)). Необходимая комбинация для установки английского языка взята из C-шных хедеров.

Microsoft Word 

Как отследить открытие и закрытие документов в приложении Microsoft Word?

Nomadic советует:

В копилку. Исходный код, FAQ — желающие могут взять с Internet сами (информация взята спроверено — работает).

Основной модуль, регистрация и вызов

public

{ Public declarations }

FWordApp: _Application;

Поделиться с друзьями: