Unit acOutBox |
**************************************************************************** * OutLook *
Classes |
TACOutBox - Numero pagina;
Functions |
Types |
ListaPagina
PDisposizione
PListaPagina
TProcedureChangePage
TProcedureResizePage
Constants |
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 |
Variables |