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