First commit 25/07/1999

LetreroDigital/LetreroDigital.h

@@ -0,0 +1,92 @@
+//---------------------------------------------------------------------------
+#ifndef LetreroDigitalH
+#define LetreroDigitalH
+//---------------------------------------------------------------------------
+#include <vcl\SysUtils.hpp>
+#include <vcl\Controls.hpp>
+#include <vcl\Classes.hpp>
+#include <vcl\Forms.hpp>
+
+//---------------------------------------------------------------------------
+class PACKAGE TLetreroDigital : 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
+
+
+
+    AnsiString FFuente;			// Fuente a utilizar ( RAW Format 8x16 )
+    AnsiString FCadena;			// Cadena a mostrar
+    char BitByte;				// Contador de digito actual a cero
+    char currByte;              // Posici<63>n dentro de la frase
+    int AX, AY;				// Ancho X, e Y
+    unsigned int  Flen;			// Longitud de la frase
+    int  TAMx, TAMy;			// Ancho y Alto de las fuentes ( 8 x 16: Deft. )
+    char *ptr_char;				// Puntero a la fuente fija RAW.
+    bool FActivarLD;
+    TTimer *FPulsoReloj;
+    int FFrecReloj;
+
+    enum TFPitchFnt { f_16x16, f_16x8, f_8x16, f_8x8 };
+    TFPitchFnt FPitchFnt;
+
+    							// Cambia la relaci<63>n segun indice
+    void __fastcall SetTAMg( TFPitchFnt Index );//, int Index );
+
+    // Evento OnChange, dirigido a la siguiente funci<63>n:
+    void __fastcall CambioAtributo( TObject  * Sender );
+
+    // Dibujo del letrero digital (Desde cero SI/NO)
+    void __fastcall DibujaLD( bool RESET );
+    void __fastcall OnTimerHandler(TObject *Sender);
+
+
+protected:
+	// Redefinimos el m<>todo Paint, que ser<65> llamado cada vez
+    // que sea necesario redibujar el componente.
+    void __fastcall Paint();
+public:
+ 								// Cambia la relaci<63>n ALTO/ANCHO "at Run Time".
+    void __fastcall SetAx( int NuevoValor );
+    void __fastcall SetAy( int NuevoValor );
+    void __fastcall SetBrush( TBrush *NuevoValor );
+    void __fastcall SetBorderStyle( TBorderStyle NuevoValor );
+    void __fastcall SetLED_Color( TColor NuevoValorON, TColor NuevoValorOFF );
+								// Tipo de letra RAW
+    void __fastcall SetFont( AnsiString NuevoValor );
+								// Cambia la relaci<63>n ALTO/ANCHO.
+    void __fastcall SetTAM( int NuevoTAMx, int NuevoTAMy );
+    							// Cambia la cadena a mostrar: "at RunTime"
+    void __fastcall SetCadena( AnsiString NuevaCadena );
+ 							    // Frecuencia del reloj
+    void __fastcall SetFrecReloj( int NuevoReloj );
+
+	__fastcall TLetreroDigital(TComponent* Owner);
+    __fastcall ~TLetreroDigital();
+__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 = cLED_ON, default = clBlack };
+	__property TColor LED_OFF = { read = cLED_OFF, write = cLED_OFF, default = clYellow };
+
+	__property int FrecReloj = { read = FFrecReloj, write = SetFrecReloj, default = 100 };
+
+
+
+	__property Left   ;
+	__property Top    ;
+    __property Width   = { default = 96 };
+	__property Height  = { default = 32 };
+
+    __property TFPitchFnt PitchFuente = { read = FPitchFnt, write = SetTAMg };
+    __property AnsiString FuenteRAW = { read = FFuente, write = SetFont };
+    __property AnsiString Letrero = { read = FCadena, write = SetCadena };
+    __property int AmplitudX      = { read = AX     , write = SetAx     , default = 2 };
+    __property int AmplitudY      = { read = AY     , write = SetAy     , default = 2 };
+  //  __property bool ActivarLD     = { read = FPulsoReloj -> Enabled, write = FPulsoReloj -> Enabled };
+};
+//---------------------------------------------------------------------------
+#endif