| Class TDigit (unit Udigit) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);TDigit
| Functions |
procedure Incrementa;
procedure Overflow;
procedure Paint;Por defecto sin asignar
procedure SetBorderStyle(Value: TBorderStyle);Comprobacion de la condicion de encendido
procedure SetColorOff(Value: TColor);
procedure SetColorOn(Value: TColor);
procedure SetSeparation(Value: integer);
procedure SetThickness(value: integer);
procedure SetValue(Value: Integer);
procedure SetValueBinary(Value: Byte);| Properties |
property Align :
property BorderStyle : TBorderStyle
property Color :
property ColorOff : TColor
property ColorOn : TColor
property Enabled :
property ParentColor :
property ParentFont :
property ParentShowHint :
property Separation : integer
property ShowHint :
property Tag :
property Thickness : integer
property Value : Integer
property ValueBinary : Byte
property Visible : | Events |
event OnOverflow : TOverflow| Variables |
FBorderStyle : TBorderStyle;
FByte : Byte;
FColorOff : TColor;
FColorOn : TColor;
FOnOverflow : TOverflow;
FSeparation : integer;
FThickness : integer;
FVal : Integer;| Constructors |
constructor Create(AOwner: TComponent);Constructor para la componente
TDigit
| Functions |
procedure Incrementa;
procedure Overflow;
procedure Paint;Sobreescritura del metodo por defecto para "pintar", sera llamado cada vez que se produzca un VM_PAINT por parte de Windows
Por defecto sin asignar
procedure SetBorderStyle(Value: TBorderStyle);added by Paul Leung} { metodos miembro que utilizaremos para actualizar las propiedades
Comprobacion de la condicion de encendido
procedure SetColorOff(Value: TColor);
procedure SetColorOn(Value: TColor);
procedure SetSeparation(Value: integer);
procedure SetThickness(value: integer);
procedure SetValue(Value: Integer);
procedure SetValueBinary(Value: Byte);Codificacion de los bits para "encender" los segmentos del display 012345678 bits 0 -+--------------- /--------\ 0|1011111*- 125 | | 1|0000101*- 80 3| |4 2|1110110*- 55 | 1 | 3|1110101*- 87 >--------< 4|0101101*- 90 | | 5|1111001*- 79 5| |6 6|1111011*- 111 | 2 | 7|1000101*- 81 \--------/ * 7(punto) 8|1111111*- 127 9|1111101*- 95 * si vale 1 entonces enciende el punto E|1111010*- 47 - Indiferente
| Properties |
property Align : Lista de propiedades accesibles para el editor
property BorderStyle : TBorderStyleUsa por defecto la de la clase base
property Color : Usa por defecto la de la clase base
property ColorOff : TColor
property ColorOn : TColor
property Enabled : Usa por defecto la de la clase base
property ParentColor :
property ParentFont : Usa por defecto la de la clase base
property ParentShowHint : Usa por defecto la de la clase base
property Separation : integer
property ShowHint : Usa por defecto la de la clase base
property Tag : Usa por defecto la de la clase base
property Thickness : integerUsa por defecto la de la clase base
property Value : IntegerValue y ValueBinary van a modificar el aspecto de nuestro digito
property ValueBinary : Byte
property Visible : Usa por defecto la de la clase base
| Events |
event OnOverflow : TOverflow| Variables |
FBorderStyle : TBorderStyle;
FByte : Byte;
FColorOff : TColor;
FColorOn : TColor;
FOnOverflow : TOverflow;
FSeparation : integer;
FThickness : integer;added by Paul Leung
FVal : Integer;