[Boardmod-devel] boardmod uBoardMod.pas,1.19,1.20

[<t-m...@us...>]

Update of /cvsroot/boardmod/boardmod
In directory sc8-pr-cvs1:/tmp/cvs-serv15069

Modified Files:
	uBoardMod.pas 
Log Message:
splash screen and loading skin from ini works now without problems in windows.

Index: uBoardMod.pas
===================================================================
RCS file: /cvsroot/boardmod/boardmod/uBoardMod.pas,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** uBoardMod.pas	1 Dec 2002 21:59:04 -0000	1.19
--- uBoardMod.pas	15 Dec 2002 17:48:19 -0000	1.20
***************
*** 813,817 ****
            else if propertyname = 'height' then TForm(component).height := StrToInt(propertyvalue)
            else if propertyname = 'Taborder' then TEdit(component).TabOrder := StrToInt(propertyvalue)
!           else if propertyname = 'visible' then TForm(component).visible := StringToBool(propertyvalue)
            else if propertyname = 'color' then TForm(component).color := StringToColor(propertyvalue)
            else if propertyname = 'font' then TForm(component).font := StringToFont(propertyvalue)
--- 813,817 ----
            else if propertyname = 'height' then TForm(component).height := StrToInt(propertyvalue)
            else if propertyname = 'Taborder' then TEdit(component).TabOrder := StrToInt(propertyvalue)
!           else if propertyname = 'visible' then TLabel(component).visible := StringToBool(propertyvalue)
            else if propertyname = 'color' then TForm(component).color := StringToColor(propertyvalue)
            else if propertyname = 'font' then TForm(component).font := StringToFont(propertyvalue)