Class TBiancoPanel (unit Bianco_Panel)

Inherits from

TPanel

Constructors


constructor Create(AOwner: TComponent);



Functions

DESTRUCTOR DESTROY;


Function IsFloating:Boolean;

Moving:=false; Resizing:=False; Paint;

FUNCTION JUMP:BOOLEAN;


PROCEDURE LOADINI;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure TTorryButton.

procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


PROCEDURE SAVEINI;

IS FLOATING, RETURN TO PARENT FORM

FUNCTION UNJUMP:BOOLEAN;

NOT FLOATING

procedure Paint;


Procedure BORDI(H,L:TColor);


PROCEDURE BOTT(AX,AY,BX,BY:INTEGER;C1,H,L:TCOLOR;PRESSED:BOOLEAN);


PROCEDURE BOTTOM_BUTTON(HI,LO:TCOLOR);


FUNCTION CAN_JUMP(X,Y:INTEGER):BOOLEAN;


FUNCTION CAN_POP(X,Y:INTEGER):BOOLEAN;


FUNCTION CAN_START_CORNER(X,Y:INTEGER):BOOLEAN;


FUNCTION CAN_START_MOVE(X,Y:INTEGER):BOOLEAN;


PROCEDURE CHECK_JUMP;


PROCEDURE CHECK_POP;


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


PROCEDURE DRAW_ALL_BUTTONS(H,L:TColor);


PROCEDURE DRAW_BUTTON_MENU(H,L:TColor);


PROCEDURE DRAW_CAPTION;


PROCEDURE DRAW_CORNER(H,L:TColor);


PROCEDURE DRAW_JUMP_BUTTON(H,L:TColor);


PROCEDURE END_MOVING(X,Y:INTEGER);


PROCEDURE END_RESIZING(X,Y:INTEGER);


PROCEDURE FIND_J_POS(VAR BL_,BT_,BR_,BB_:INTEGER);


PROCEDURE FIND_M_POS(VAR BL,BT,BR,BB:INTEGER);


PROCEDURE GetINI(Var L,T,w,h,I:Integer);


PROCEDURE LEFT_BUTTON(HI,LO:TCOLOR);


PROCEDURE MUOVI_PANNELLO(X,Y:INTEGER);


PROCEDURE RESIZING_CORNER(X,Y:INTEGER);


PROCEDURE RIGHT_BUTTON(HI,LO:TCOLOR);


PROCEDURE SET_US1(V:TBITMAP);

DESIGN TIME PROCEDURES

You can find here the Paint Procedure {$I ProcFunc.


PROCEDURE SET_US2(V:TBITMAP);


PROCEDURE SET_US3(V:TBITMAP);


PROCEDURE SET_US4(V:TBITMAP);


PROCEDURE START_MOVING(X,Y:INTEGER);


PROCEDURE START_RESIZING(X,Y:INTEGER);


PROCEDURE TOP_BUTTON(HI,LO:TCOLOR);


Properties

property Allow : tallow

3rd

property Bitmap : TBITMAP


property BitmapParent : TJumpParent


property BorderHeight : INTEGER


property ButtonAlign : TALIGN


property ButtonStyle : TButtonStyle


property ColorHI : TCOLOR


property ColorLO : TCOLOR


property CornerColor : TCOLOR


property CornerDimension : INTEGER


property Flat97Color : TColor


property FloatingBitmap : TBITMAP


property HomeBitmap : TBITMAP


property JumpButtonColor : TColor


property JumpButtonLeft : Integer


property JumpButtonParent : TJumpParent


property JumpButtonPosition : TJumpPosition


property JumpButtonSize : INTEGER

2nd

property JumpButtonTop : Integer


property JumpGryps : TJUMPGRYPS


property MaxHeight : INTEGER


property MaxWidth : INTEGER


property MinHeight : INTEGER


property MinWidth : INTEGER


property MouseButtonMove : TMOUSEBUTTON


property PopupMenuAlign : tmenuAlign


property PopupMenuBitmap : TBITMAP


property PopupMenuColor : TColor


property PopupMenuPosition : tmenuPos


property PopupMenuSize : integer


property WhatShow : TShow


property WhatToMove : TWhoToMove


Events

event OnFailJump : TNOTIFYEVENT


event OnJump : TNOTIFYEVENT


event OnMoving : TNotifyEvent


event OnPopClick : TNotifyEvent


event OnReturn : TNOTIFYEVENT


Variables

_FFLOAT_ : TFORM;


B97 : TButtonStyle;


BALIGN : TALIGN;

COLOR OF THE BORDER

BW : INTEGER;


clNull : TCOLOR;


COR_DIM : INTEGER;

VERT Y

CO_C : TCOLOR;


FAllow : TAllow;


FMoveWho : TWhoToMove;


FMOVING : TNotifyEvent;


FONFAIL : TNotifyEvent;


FONJUMP : TNotifyEvent;


FONRETURN : TNotifyEvent;


FPOPC : TNotifyEvent;

MAX, MIN WIDTH AND HEIGHT

FShow : TShow;


F_S : Boolean;


HI_C : TCOLOR;

COLOR OF THE CORNER

JB_C : TCOLOR;


JG : TJUMPGRYPS;


JNNX : INTEGER;


JNNY : INTEGER;


jp_c : TCOLOR;


LO_C : TCOLOR;


MAX_H : INTEGER;


MAX_W : INTEGER;

THE BUTTON THAT ALLOW YOU MOVING IT

MA_ : TMENUAlign;


MIN_H : INTEGER;


MIN_W : INTEGER;


MOUSE_M : TMOUSEBUTTON;


MoveRect : TRect;


Moving : Boolean;


MPS : INTEGER;


MP_ : TMenuPOs;


OBJ : TWINCONTROL;


OldLeft : Integer;


OldTop : Integer;


OldX : Integer;


OldY : Integer;


POPPING : BOOLEAN;


RegName : STRING;


RegPath : STRING;


RESIZING : BOOLEAN;


ScreenDC : HDC;


TBH : INTEGER;


TJP : TJumpPosition;

DIMENSION OF CORNER

TJT : TJUMPPARENT;


TTT : TJUMPPARENT;


USBIT : ARRAY[1..4] OF TBITMAP;


VX : ARRAY[1..4] OF INTEGER;

BORDERHEIGHT

VY : ARRAY[1..4] OF INTEGER;

VERT X


Constructors


constructor Create(AOwner: TComponent);


Functions


DESTRUCTOR DESTROY;


Function IsFloating:Boolean;

Moving:=false; Resizing:=False; Paint;


FUNCTION JUMP:BOOLEAN;


PROCEDURE LOADINI;


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure TTorryButton.WMMouseMove(var Message: TWMMouseMove); var CurrentPoint: TPoint; begin if Enabled then begin CurrentPoint.X := Message.XPos; CurrentPoint.Y := Message.YPos; if not HasMouse and PtInRect(GetClientRect, CurrentPoint) then begin HasMouse := true; Repaint; end; end; inherited; end;


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


PROCEDURE SAVEINI;

IS FLOATING, RETURN TO PARENT FORM


FUNCTION UNJUMP:BOOLEAN;

NOT FLOATING


procedure Paint;


Procedure BORDI(H,L:TColor);


PROCEDURE BOTT(AX,AY,BX,BY:INTEGER;C1,H,L:TCOLOR;PRESSED:BOOLEAN);


PROCEDURE BOTTOM_BUTTON(HI,LO:TCOLOR);


FUNCTION CAN_JUMP(X,Y:INTEGER):BOOLEAN;


FUNCTION CAN_POP(X,Y:INTEGER):BOOLEAN;


FUNCTION CAN_START_CORNER(X,Y:INTEGER):BOOLEAN;


FUNCTION CAN_START_MOVE(X,Y:INTEGER):BOOLEAN;


PROCEDURE CHECK_JUMP;


PROCEDURE CHECK_POP;


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


PROCEDURE DRAW_ALL_BUTTONS(H,L:TColor);


PROCEDURE DRAW_BUTTON_MENU(H,L:TColor);


PROCEDURE DRAW_CAPTION;


PROCEDURE DRAW_CORNER(H,L:TColor);


PROCEDURE DRAW_JUMP_BUTTON(H,L:TColor);


PROCEDURE END_MOVING(X,Y:INTEGER);


PROCEDURE END_RESIZING(X,Y:INTEGER);


PROCEDURE FIND_J_POS(VAR BL_,BT_,BR_,BB_:INTEGER);


PROCEDURE FIND_M_POS(VAR BL,BT,BR,BB:INTEGER);


PROCEDURE GetINI(Var L,T,w,h,I:Integer);


PROCEDURE LEFT_BUTTON(HI,LO:TCOLOR);


PROCEDURE MUOVI_PANNELLO(X,Y:INTEGER);


PROCEDURE RESIZING_CORNER(X,Y:INTEGER);


PROCEDURE RIGHT_BUTTON(HI,LO:TCOLOR);


PROCEDURE SET_US1(V:TBITMAP);

DESIGN TIME PROCEDURES

You can find here the Paint Procedure {$I ProcFunc.PAS} You can find here the main Procedures and Functions


PROCEDURE SET_US2(V:TBITMAP);


PROCEDURE SET_US3(V:TBITMAP);


PROCEDURE SET_US4(V:TBITMAP);


PROCEDURE START_MOVING(X,Y:INTEGER);


PROCEDURE START_RESIZING(X,Y:INTEGER);


PROCEDURE TOP_BUTTON(HI,LO:TCOLOR);


Properties


property Allow : tallow

3rd


property Bitmap : TBITMAP


property BitmapParent : TJumpParent


property BorderHeight : INTEGER


property ButtonAlign : TALIGN


property ButtonStyle : TButtonStyle


property ColorHI : TCOLOR


property ColorLO : TCOLOR


property CornerColor : TCOLOR


property CornerDimension : INTEGER


property Flat97Color : TColor


property FloatingBitmap : TBITMAP


property HomeBitmap : TBITMAP


property JumpButtonColor : TColor


property JumpButtonLeft : Integer


property JumpButtonParent : TJumpParent


property JumpButtonPosition : TJumpPosition


property JumpButtonSize : INTEGER

2nd


property JumpButtonTop : Integer


property JumpGryps : TJUMPGRYPS


property MaxHeight : INTEGER


property MaxWidth : INTEGER


property MinHeight : INTEGER


property MinWidth : INTEGER


property MouseButtonMove : TMOUSEBUTTON


property PopupMenuAlign : tmenuAlign


property PopupMenuBitmap : TBITMAP


property PopupMenuColor : TColor


property PopupMenuPosition : tmenuPos


property PopupMenuSize : integer


property WhatShow : TShow


property WhatToMove : TWhoToMove


Events


event OnFailJump : TNOTIFYEVENT


event OnJump : TNOTIFYEVENT


event OnMoving : TNotifyEvent


event OnPopClick : TNotifyEvent


event OnReturn : TNOTIFYEVENT


Variables


_FFLOAT_ : TFORM;


B97 : TButtonStyle;


BALIGN : TALIGN;

COLOR OF THE BORDER


BW : INTEGER;


clNull : TCOLOR;


COR_DIM : INTEGER;

VERT Y


CO_C : TCOLOR;


FAllow : TAllow;


FMoveWho : TWhoToMove;


FMOVING : TNotifyEvent;


FONFAIL : TNotifyEvent;


FONJUMP : TNotifyEvent;


FONRETURN : TNotifyEvent;


FPOPC : TNotifyEvent;

MAX, MIN WIDTH AND HEIGHT


FShow : TShow;


F_S : Boolean;


HI_C : TCOLOR;

COLOR OF THE CORNER


JB_C : TCOLOR;


JG : TJUMPGRYPS;


JNNX : INTEGER;


JNNY : INTEGER;


jp_c : TCOLOR;


LO_C : TCOLOR;


MAX_H : INTEGER;


MAX_W : INTEGER;

THE BUTTON THAT ALLOW YOU MOVING IT


MA_ : TMENUAlign;


MIN_H : INTEGER;


MIN_W : INTEGER;


MOUSE_M : TMOUSEBUTTON;


MoveRect : TRect;


Moving : Boolean;


MPS : INTEGER;


MP_ : TMenuPOs;


OBJ : TWINCONTROL;


OldLeft : Integer;


OldTop : Integer;


OldX : Integer;


OldY : Integer;


POPPING : BOOLEAN;


RegName : STRING;


RegPath : STRING;


RESIZING : BOOLEAN;


ScreenDC : HDC;


TBH : INTEGER;


TJP : TJumpPosition;

DIMENSION OF CORNER


TJT : TJUMPPARENT;


TTT : TJUMPPARENT;


USBIT : ARRAY[1..4] OF TBITMAP;


VX : ARRAY[1..4] OF INTEGER;

BORDERHEIGHT


VY : ARRAY[1..4] OF INTEGER;

VERT X