| Class TACOutBox (unit acOutBox) |
TPanel
Numero pagina;
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
Procedure AddPagina(pic:TPicture);
destructor Destroy;
Procedure RemovePagina(num:integer);
Procedure Set_Pag_Hint (Hint:String;Pagina:Integer);
Procedure Libera(p:PListaPagina);**************************************************************************** * Libera *
procedure LineaMousedown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure LineaMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure LineaMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Procedure Paint;
procedure PaintOrizzontale;
procedure PaintVerticale;
Procedure Setta_Dimensione_Pagina(Larghezza,Altezza:Integer);
procedure set_altezza_pag(num:integer);
procedure set_disp(d:PDisposizione);
procedure set_larghezza_pag(num:integer);
procedure set_page(num:integer);
procedure set_Sx(x:integer);
procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);| Properties |
property CurrentPage : integer
property Dimensione_Sx : Integer
property Disposizione : PDisposizione
property PaginaAltezza : integer
property PaginaLarghezza : integer| Events |
event OnChangePage : TProcedureChangePage
event OnResize : TProcedureResizePage| Variables |
Scr1 : TScrollBox;
Scr2 : TScrollBox;
ALTEZZA_PAG : integer;
Bordo : TShape;
Elenco : PListaPagina;
FDisp : PDisposizione;
Fl_Drag : Boolean;
in_paint : Boolean;
LARGHEZZA_PAG : integer;
Linea : Tpanel;
NumeroPagine : integer;
PaginaAttiva : integer;
PosizioneLinea : Integer;
ProceduraCambioPag : TProcedureChangePage;
ProceduraResizePag : TProcedureResizePage;| Constructors |
constructor Create(AOwner: TComponent);**************************************************************************** * Costruttore *
| Functions |
Procedure AddPagina(pic:TPicture);**************************************************************************** * AddPagina *
destructor Destroy;**************************************************************************** * Distruttore *
Procedure RemovePagina(num:integer);**************************************************************************** * RemovePagina *
Procedure Set_Pag_Hint (Hint:String;Pagina:Integer);**************************************************************************** * SetHint
Procedure Libera(p:PListaPagina);Protected declarations
**************************************************************************** * Libera *
procedure LineaMousedown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);**************************************************************************** * LineaMousedown *
procedure LineaMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);**************************************************************************** * LineaMouseMove *
procedure LineaMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);**************************************************************************** * LineaMouseUp *
Procedure Paint;**************************************************************************** * Paint *
procedure PaintOrizzontale;**************************************************************************** * PaintOrizzontale *
procedure PaintVerticale;**************************************************************************** * PaintVerticale *
Procedure Setta_Dimensione_Pagina(Larghezza,Altezza:Integer);**************************************************************************** * SetHint
procedure set_altezza_pag(num:integer);**************************************************************************** * set_altezza_pag *
procedure set_disp(d:PDisposizione);**************************************************************************** * set_disp *
procedure set_larghezza_pag(num:integer);**************************************************************************** * set_larghezza_pag *
procedure set_page(num:integer);**************************************************************************** * set_page *
procedure set_Sx(x:integer);**************************************************************************** * set_Sx *
procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);**************************************************************************** * ShapeMouseDown *
| Properties |
property CurrentPage : integer
property Dimensione_Sx : Integer
property Disposizione : PDisposizione
property PaginaAltezza : integer
property PaginaLarghezza : integer| Events |
event OnChangePage : TProcedureChangePagePublished declarations
event OnResize : TProcedureResizePage| Variables |
Scr1 : TScrollBox;
Scr2 : TScrollBox;Pannello di destra
ALTEZZA_PAG : integer;
Bordo : TShape;
Elenco : PListaPagina;
FDisp : PDisposizione;
Fl_Drag : Boolean;Posizione della linea
in_paint : Boolean;
LARGHEZZA_PAG : integer;
Linea : Tpanel;
NumeroPagine : integer;
PaginaAttiva : integer;Obj : TComponent;
PosizioneLinea : Integer;Pannello di ridimensionamento
ProceduraCambioPag : TProcedureChangePage;
ProceduraResizePag : TProcedureResizePage;