|
Détermine si l’élément de plan courant est déplié.
Syntaxe Delphi :
property Opened : boolean;
Syntaxe C++ :
__property bool Opened;
Description
Use Opened property to open ( true value ) outline item or close ( false value ) outline item
L’état peut être défini avant ou après l’ajout des enfants. À l’écriture du document, un élément ouvert enregistre le nombre de ses descendants visibles, un élément fermé le nombre négatif qui s’afficherait à son ouverture, et la racine de l’outline le nombre d’éléments visibles au départ
Default value: false
Exemple de code
program Outlines;
{$APPTYPE CONSOLE}
uses
SysUtils,
Graphics,
Classes,
HPDFDoc;
var
I: Integer;
HPDF: THotPDF;
OutlineRoot: THPDFDocOutlineObject;
CurrnetOutline: THPDFDocOutlineObject;
begin
HPDF:= THotPDF.Create(nil);
try
HPDF.AutoLaunch := true; // PDF file will be shown automatically
HPDF.FileName := '.\Outlines.pdf'; // Set PDF filename
HPDF.BeginDoc( true ); // Create PDF file with outlines
OutlineRoot := HPDF.OutlineRoot; // Get Outlines Root
HPDF.CurrentPage.TextOut(0, 5, 0, ' Page 1 top'); // Mark first page top
HPDF.CurrentPage.TextOut(0, 830, 0, ' Page 1 bottom'); // Mark first page bottom
for I := 2 to 100 do
begin
CurrnetOutline := OutlineRoot.AddChild( 'Page ' + IntToStr(I - 1) ); // Add Outline block linked to 0,0 in current page
CurrnetOutline.Opened := true; // This outline is opened
CurrnetOutline.AddChild( 'Haut ' ); // Add Outline linked to 0,0 in current page
CurrnetOutline.AddChild( 'Bottom ', 0, 800 ); // Add Outline linked to 0,800 in current page
HPDF.AddPage; // ADD Suivant Page
HPDF.CurrentPage.TextOut( 0, 5, 0,' Page ' + IntToStr(I) + ' top' ); // Mark Suivant page top
HPDF.CurrentPage.TextOut( 0, 830, 0,' Page ' + IntToStr(I) + ' bottom' ); // Mark Suivant page bottom
end;
CurrnetOutline := OutlineRoot.AddChild( 'Page 10 ' ); // ADD last Page
CurrnetOutline.AddChild( 'Haut ' ); // Add Outline linked to 0,0 in last page
CurrnetOutline.AddChild( 'Bottom ', 0, 830 ); // Add Outline linked to 0,830 in last page
HPDF.EndDoc; // Close PDF file
finally
HPDF.Free;
end;
end.
|