Unit acOutBox

**************************************************************************** * OutLook *

Classes

TACOutBox - Numero pagina;

Functions

Types

ListaPagina
PDisposizione
PListaPagina
TProcedureChangePage
TProcedureResizePage

Constants

SPESSORE_LINEA

Variables


Functions


Types


ListaPagina = record
Sh : TImage;
Next : PListaPagina;
num : Integer;
end;

PDisposizione = (Verticale,Orizzontale,Nessuna);

PListaPagina = ^ListaPagina
**************************************************************************** * Type *
TProcedureChangePage = Procedure (Sender: TObject;Pagina:integer) of object

TProcedureResizePage = Procedure (Sender: TObject;larg1,largh2:integer) of object

Constants

SPESSORE_LINEA = 4

**************************************************************************** * Costanti *

Variables