Class TACOutBox (unit acOutBox) |
Inherits from
TPanel
Numero pagina;
constructor Create(AOwner: TComponent);
- ****************************************************************************
* Costruttore *
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 *
property CurrentPage : integer
property Dimensione_Sx : Integer
property Disposizione : PDisposizione
property PaginaAltezza : integer
property PaginaLarghezza : integer
event OnChangePage : TProcedureChangePage
Published declarations
event OnResize : TProcedureResizePage
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;
constructor Create(AOwner: TComponent);
****************************************************************************
* Costruttore *
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 *
property CurrentPage : integer
property Dimensione_Sx : Integer
property Disposizione : PDisposizione
property PaginaAltezza : integer
property PaginaLarghezza : integer
event OnChangePage : TProcedureChangePage
Published declarations
event OnResize : TProcedureResizePage
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;