Class TACOutBox (unit acOutBox)

Inherits from

TPanel

Numero pagina;

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

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



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

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