...
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; |