Скачать: CL | DM;

Как правельно передать аргумент?   Найти похожие ветки 

← →
Michael_M   (2002-11-11 18:43) [0]

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

Есть пример на 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;

---

← →
Андрей Прокофьев ©   (2002-11-11 18:49) [1]

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

---

← →
Michael_M   (2002-11-12 11:13) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c