Class TBiancoPanel (unit Bianco_Panel) |
Inherits from
TPanel
constructor Create(AOwner: TComponent);
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);
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
event OnFailJump : TNOTIFYEVENT
event OnJump : TNOTIFYEVENT
event OnMoving : TNotifyEvent
event OnPopClick : TNotifyEvent
event OnReturn : TNOTIFYEVENT
_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
constructor Create(AOwner: TComponent);
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);
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
event OnFailJump : TNOTIFYEVENT
event OnJump : TNOTIFYEVENT
event OnMoving : TNotifyEvent
event OnPopClick : TNotifyEvent
event OnReturn : TNOTIFYEVENT
_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