Today I had downloaded the new version from SVN.
The editbox.prg contains the following lines:
Code: Select all
* Set Properties
if ValType (::cValue) != 'U' ; Self:Value := ::cValue ; EndIf
if ValType (::Row) != 'U' ; Self:Row := ::nRow ; EndIf
if ValType (::Col) != 'U' ; Self:Col := ::nCol ; EndIf
if ValType (::Width) != 'U' ; Self:Width := ::nWidth ; EndIf
if ValType (::Height) != 'U' ; Self:Height := ::nHeight ; EndIf
if ValType (::ScrollBars) != 'U' ; Self:ScrollBars := ::nScrollBars ; EndIf
if ValType (::cFontName) != 'U' ; Self:FontName := ::cFontName ; EndIf
if ValType (::nFontSize) != 'U' ; Self:FontSize := ::nFontSize ; EndIf
if ValType (::lBold) != 'U' ; Self:FontBold := ::lBold ; EndIf
if ValType (::lItalic) != 'U' ; Self:FontItalic := ::lItalic ; EndIf
if ValType (::lUnderline) != 'U' ; Self:FontUnderline := ::lUnderline ; EndIf
if ValType (::lStrikeout) != 'U' ; Self:FontStrikeOut := ::lStrikeout ; EndIf
if ValType (::cToolTip) != 'U' ; Self:ToolTip := ::cToolTip ; EndIf
if ValType (::lReadOnly) != 'U' ; Self:ReadOnly := ::lReadOnly ; EndIf
if ValType (::lTabStop) != 'U' ; Self:TabStop := ::lTabStop ; EndIf
if ValType (::bOnGotFocus) != 'U' ; Self:OnGotFocus := ::bOnGotFocus ; endif
if ValType (::bOnLostFocus) != 'U' ; Self:OnLostFocus := ::bOnLostFocus ; endif
And, please consider these lines
Code: Select all
if ValType (::Row) != 'U' ; Self:Row := ::nRow ; EndIf
if ValType (::cFontName) != 'U' ; Self:FontName := ::cFontName ; EndIf
However, Self:Row and Self:FontName are the same for both the lines. Am I missing something here?! or I don't understand something basic?
Please help me out.