**************************************************
*-- Class:        solariline (c:\users\qpk\desktop\solarisboard\solaris.vcx)
*-- ParentClass:  container
*-- BaseClass:    container
*-- Time Stamp:   07/31/14 11:54:05 AM
*
DEFINE CLASS solariline AS container


	Width = 1414
	Height = 110
	BackColor = RGB(44,44,44)
	*-- retezeck zobrazeni
	display = .F.
	*-- .t., kdyz je zobrazeno (vola se stepline dokud neni .t.)
	zobrazeno = .F.
	pocetznaku = 21
	DIMENSION Digits[80] && pocet znaku
	Name = "solariline"

	PROCEDURE Init
		*test
		PARAMETERS pocetznaku
        FOR i - 1 TO m.pocetznaku
           this.AddObject('This.Digits[i]
	ADD OBJECT solarifont1 AS solarifont WITH ;
		Top = 2, ;
		Left = 3, ;
		Name = "Solarifont1", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont2 AS solarifont WITH ;
		Top = 2, ;
		Left = 70, ;
		Name = "Solarifont2", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ENDPROC


	ADD OBJECT solarifont1 AS solarifont WITH ;
		Top = 2, ;
		Left = 3, ;
		Name = "Solarifont1", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont2 AS solarifont WITH ;
		Top = 2, ;
		Left = 70, ;
		Name = "Solarifont2", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont3 AS solarifont WITH ;
		Top = 2, ;
		Left = 137, ;
		Name = "Solarifont3", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont4 AS solarifont WITH ;
		Top = 2, ;
		Left = 204, ;
		Name = "Solarifont4", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont5 AS solarifont WITH ;
		Top = 2, ;
		Left = 271, ;
		Name = "Solarifont5", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont6 AS solarifont WITH ;
		Top = 2, ;
		Left = 338, ;
		Name = "Solarifont6", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont7 AS solarifont WITH ;
		Top = 2, ;
		Left = 405, ;
		Name = "Solarifont7", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont8 AS solarifont WITH ;
		Top = 2, ;
		Left = 472, ;
		Name = "Solarifont8", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont9 AS solarifont WITH ;
		Top = 2, ;
		Left = 539, ;
		Name = "Solarifont9", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont10 AS solarifont WITH ;
		Top = 2, ;
		Left = 606, ;
		Name = "Solarifont10", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont11 AS solarifont WITH ;
		Top = 2, ;
		Left = 673, ;
		Name = "Solarifont11", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont12 AS solarifont WITH ;
		Top = 2, ;
		Left = 740, ;
		Name = "Solarifont12", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont13 AS solarifont WITH ;
		Top = 2, ;
		Left = 807, ;
		Name = "Solarifont13", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont14 AS solarifont WITH ;
		Top = 2, ;
		Left = 874, ;
		Name = "Solarifont14", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont15 AS solarifont WITH ;
		Top = 2, ;
		Left = 941, ;
		Name = "Solarifont15", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont16 AS solarifont WITH ;
		Top = 2, ;
		Left = 1008, ;
		Name = "Solarifont16", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont17 AS solarifont WITH ;
		Top = 2, ;
		Left = 1075, ;
		Name = "Solarifont17", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont18 AS solarifont WITH ;
		Top = 2, ;
		Left = 1142, ;
		Name = "Solarifont18", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont19 AS solarifont WITH ;
		Top = 2, ;
		Left = 1209, ;
		Name = "Solarifont19", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont20 AS solarifont WITH ;
		Top = 2, ;
		Left = 1276, ;
		Name = "Solarifont20", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	ADD OBJECT solarifont21 AS solarifont WITH ;
		Top = 2, ;
		Left = 1343, ;
		Name = "Solarifont21", ;
		Letter.Name = "Letter", ;
		MaskUp.Name = "MaskUp", ;
		MaskDown.Name = "MaskDown", ;
		MaskMid.Name = "MaskMid"


	PROCEDURE Init
		*test
		PARAMETERS pocetznaku
	ENDPROC


	*-- provede incrementaci vsech pismen na digitech pomoci fce stepletter a vraci soucin vsech jejich returnu, t.j. .t. je-li zobrazeno
	PROCEDURE stepline
	ENDPROC


ENDDEFINE
*
*-- EndDefine: solariline
**************************************************
