First commit 25/07/1999

DigitNum/DigitNum.h

@@ -0,0 +1,72 @@
+//---------------------------------------------------------------------------
+#ifndef DigitNumH
+#define DigitNumH
+//---------------------------------------------------------------------------
+#include <SysUtils.hpp>
+#include <Controls.hpp>
+#include <Classes.hpp>
+#include <Forms.hpp>
+//---------------------------------------------------------------------------
+class PACKAGE TDigitNum : public TGraphicControl
+{
+private:
+    TBorderStyle FBorderStyle;	// Con borde o sin borde
+    TBrush *FBrush;				// Para el relleno del fondo
+    TColor cLED_ON;			    // Color de la LED encendida y
+    TColor cLED_OFF;			// apagada
+    TColor cLED_BRDon;            // Color para el borde
+    TColor cLED_BRDoff;            // Color para el borde
+
+
+
+    int FValor;     			// Valor inicial a mostrar
+    int  FLen;	        		// N<>mero de digitos a mostrar
+    bool vCerosIzq;
+
+    // Evento OnChange, dirigido a la siguiente funci<63>n:
+    void __fastcall CambioAtributo( TObject  * Sender );
+
+    // Dibujo del letrero digital
+    void __fastcall DibujaLD( void );
+    void __fastcall DibujaDigito( short int Digito, short int AnchoDigit, short int PosInicial );
+
+protected:
+	// Redefinimos el m<>todo Paint, que ser<65> llamado cada vez
+    // que sea necesario redibujar el componente.
+    void __fastcall Paint();
+public:
+    void __fastcall SetNumDigit( int NuevoValor );
+    void __fastcall SetBrush( TBrush *NuevoValor );
+    void __fastcall SetBorderStyle( TBorderStyle NuevoValor );
+
+    void __fastcall SetLedOn( TColor NuevoValor );
+    void __fastcall SetLedOff( TColor NuevoValor );
+    void __fastcall SetLedBrdOn( TColor NuevoValor );
+    void __fastcall SetLedBrdOff( TColor NuevoValor );
+    void __fastcall SetCerosIzq( bool NuevoValor );
+
+
+    							// Cambia la cadena a mostrar: "at RunTime"
+    void __fastcall SetCadena( int NuevaCadena );
+
+	__fastcall TDigitNum(TComponent* Owner);
+    __fastcall ~TDigitNum();
+__published:
+	__property TBorderStyle BorderStyle = { read = FBorderStyle, write = SetBorderStyle, default=bsSingle };
+	__property TBrush *Brush     = { read = FBrush, write = SetBrush };
+	__property TColor LED_ON     = { read = cLED_ON,  write = SetLedOn, default = clRed };
+	__property TColor LED_OFF    = { read = cLED_OFF, write = SetLedOff, default = clBtnFace };
+	__property TColor LED_BRDon  = { read = cLED_BRDon, write = SetLedBrdOn, default = clBlack };
+	__property TColor LED_BRDoff = { read = cLED_BRDoff, write = SetLedBrdOff, default = clGray };
+
+	__property Left   ;
+	__property Top    ;
+    __property Width  ;
+	__property Height ;
+
+	__property bool CerosIzq = {  read = vCerosIzq, write = SetCerosIzq, default = false };
+    __property int Value = { read = FValor, write = SetCadena };
+    __property int MaxLength      = { read = FLen     , write = SetNumDigit     , default = 4 };
+};
+//---------------------------------------------------------------------------
+#endif