| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как правельно передать аргумент?

Michael_M ©   (2002-11-11 18:43:00) 

Как правельно передать аргумент?

Есть пример на Visual Basice как тоже самое сделать на Delphi

Rem Hello World!
Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.2.0")
Rem Create a new publication and assign it to the variable "myDocument"
Set myDocument = myInDesign.Documents.Add
Rem Create a new text frame and assign it to the variable "myTextFrame"
Set myTextFrame = myDocument.Spreads.Item(1).TextFrames.Add
Rem Specify the size and shape of the text frame.

Rem Размер фрейма задан в пунктах
myTextFrame.GeometricBounds = Array("0p0", "0p0", "18p0", "18p0")

Rem Enter text.
myTextFrame.TextContents = "Hello World!"

Вариант на Delphi запускает InDesin создает новый документ, создает фрейм, заносит в него текст, но не задает размеры фрейма. Подскажите как правельно передать аргумент.

procedure TForm1.Button2Click(Sender: TObject);
var
InDesign, myDocument, myFrame : Variant;
begin
InDesign := CreateOleObject("InDesign.Application.2.0");
myDocument:=InDesign.Documents.Add;
myFrame:= myDocument.Spreads.Item(1).TextFrames.Add;

А здесь совсем непонятно
myFrame.GeometricBounds ???????? ;

myFrame.TextContents := "Hello World!";

end;

---

Michael_M   (2002-11-12 11:13:00) [1]

Спасибо.
Все работает как надо.

---

Андрей Прокофьев   (2002-11-11 18:49:00) [2]

попробуйте
myFrame.GeometricBounds := VarArrayOf(["0p0", "0p0", "18p0", "18p0"]);

---

Наверх