if I change on
AAdd( ::aLinea[k], ::GetCode(ALLTRIM( SubStr(::aTextLinea[k], nI, 1) ) ) )
then it make error on Paint method
For nHeight := 1 to (LEN(::aTextLinea))
For nWidth := 1 to (::nLedCharacters)
aChar := ::aLinea[nHeight][nWidth]
For k := 1 to 8
nLineax := ( (nHeight-1) * ( ( ::nLedHeight * 9 ) + ( ::nLedSpace * 8 ) ) ) + ( (k-1) * ( ::nLedHeight + ::nLedSpace ) ) + ( ::nLedWidth + 3 )
cFila := aChar[k]
For w := 1 to 5
nLineay := ( (nWidth-1) * ( ( ::nLedWidth * 7 ) + ( ::nLedSpace * 4 ) ) ) + ( w * ( ::nLedWidth + ::nLedSpace ) ) + ( ::nLedWidth + 3 )
---> nColorPixel := IIF( cFila[w] == "*", ::nColorLedON, ::nColorLedOFF)
FillSolidRect( ::hDC, { nLineax, nLineay, nLineax + ::nLedHeight, nLineay + ::nLedWidth}, nColorPixel)
Next
Next
Next
Next
↧