Unit T_BLOCK

Classes

TBLOCK -

Functions

Register - property BackBitmap: TBitmap read fBitmap write fSetBitmap;

Types

TBlockType

Constants

COLORI
COLUMNS
LINES

Variables


Functions


procedure Register;

property BackBitmap: TBitmap read fBitmap write fSetBitmap;

Types


TBlockType    = (btRound, btSquare, btButton, btBeveled);

Constants

COLORI = (CLBLACK,CLMAROON,CLGREEN,CLOLIVE,CLNAVY, CLPURPLE,CLTEAL,CLGRAY,CLSILVER,CLRED, CLLIME,CLYELLOW,CLBLUE,CLFUCHSIA, CLAQUA,CLWHITE)

COLUMNS = 17

LINES = 24

DATA: INIZIO: FINE: LAVORO: // 13-07-97, 04:18:16 ??:??:??, TROPPO STANCO PER CONCLUDERE QUALCOSA DI BUONO... 14-07-97, 01:36:10, 03:44:05, QUASI FINITO. 29-08-97, 00:54:11, 04:09:58, AGGIUNTO LA PREVIEW FORM.

Variables