[JVCL-Checkins] dev/JVCL3/run JvComputerInfoEx.pas,1.35,1.36 - WallpaperStyle and WallpaperTiled should be read/written as

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18188/run

Modified Files:
	JvComputerInfoEx.pas 
Log Message:
WallpaperStyle and WallpaperTiled should be read/written as string, not integer


Index: JvComputerInfoEx.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvComputerInfoEx.pas,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** JvComputerInfoEx.pas	17 Feb 2005 10:20:03 -0000	1.35
--- JvComputerInfoEx.pas	9 Mar 2005 11:40:34 -0000	1.36
***************
*** 3070,3079 ****
  function TJvMiscInfo.GetWallpaperStyle: TJvWallpaperStyle;
  begin
!   Result := TJvWallpaperStyle(RegReadIntegerDef(HKEY_CURRENT_USER, HKCU_CONTROL_PANEL_DESKTOP, 'WallpaperStyle', 0));
  end;
  
  function TJvMiscInfo.GetWallpaperTiled: Boolean;
  begin
!   Result := RegReadIntegerDef(HKEY_CURRENT_USER, HKCU_CONTROL_PANEL_DESKTOP, 'TileWallpaper', 0) <> 0;
  end;
  
--- 3070,3079 ----
  function TJvMiscInfo.GetWallpaperStyle: TJvWallpaperStyle;
  begin
!   Result := TJvWallpaperStyle(StrToInt(RegReadStringDef(HKEY_CURRENT_USER, HKCU_CONTROL_PANEL_DESKTOP, 'WallpaperStyle', '0')));
  end;
  
  function TJvMiscInfo.GetWallpaperTiled: Boolean;
  begin
!   Result := RegReadStringDef(HKEY_CURRENT_USER, HKCU_CONTROL_PANEL_DESKTOP, 'TileWallpaper', '0') <> '0';
  end;
  
***************
*** 3155,3159 ****
    begin
      if Value <> wsUnused then
!       RegWriteInteger(HKEY_CURRENT_USER, HKCU_CONTROL_PANEL_DESKTOP, 'WallpaperStyle', Ord(Value));
    end
    else
--- 3155,3159 ----
    begin
      if Value <> wsUnused then
!       RegWriteString(HKEY_CURRENT_USER, HKCU_CONTROL_PANEL_DESKTOP, 'WallpaperStyle', IntToStr(Ord(Value)));
    end
    else
***************
*** 3164,3168 ****
  begin
    if not IsDesigning and not ReadOnly then
!     RegWriteInteger(HKEY_CURRENT_USER, HKCU_CONTROL_PANEL_DESKTOP, 'TileWallpaper', Ord(Value))
    else
      RaiseReadOnly;
--- 3164,3168 ----
  begin
    if not IsDesigning and not ReadOnly then
!     RegWriteString(HKEY_CURRENT_USER, HKCU_CONTROL_PANEL_DESKTOP, 'TileWallpaper', IntToStr(Ord(Value)))
    else
      RaiseReadOnly;