...
Procedure: NewBlankPage(AName: string; AWidth, AHeight, ADPI: integer; AScale: string): string;
API Call:
Code Block | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
var
oPageItem : IItem;
AName : WideString;
AWidth : integer;
AHeight : integer;
ADPI : integer;
AScale : WideString;
begin
AName := 'Floor Plan';
AWidth := 36;
AHeight := 24;
ADPI := 100;
AScale := '1=48';
oPageItem := NewBlankPage(AName, AWidth, AHeight, ADPI, AScale);
end; |