Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0006353 [JEDI VCL] 00 JVCL Components minor always 2014-11-09 18:33 2015-11-24 22:02
Reporter HSerg View Status public  
Assigned To
Priority normal Resolution open  
Status feedback   Product Version 3.47
Summary 0006353: Incomplete TJvWallpaperStyle (for Windows 7 and later)
Description JvComputerInfoEx.pas
=== cut ===
...
TJvWallpaperStyle = (wsCenter, wsUnused, wsStretch);
...
Result := TJvWallpaperStyle(StrToInt(RegReadStringDef(HKCU, HKCU_CONTROL_PANEL_DESKTOP, 'WallpaperStyle', '0')));
...
RegWriteString(HKCU, HKCU_CONTROL_PANEL_DESKTOP, 'WallpaperStyle', IntToStr(Ord(Value)));
...
=== cut ===

http://msdn.microsoft.com/en-us/library/bb773190%28VS.85%29.aspx#desktop [^]
=== cut ===
[Control Panel\Desktop]
Wallpaper=%WinDir%\web\wallpaper\Windows\img0.jpg
; The path to the wallpaper picture can point to a
; .bmp, .gif, .jpg, .png, or .tif file.

TileWallpaper=0
; 0: The wallpaper picture should not be tiled
; 1: The wallpaper picture should be tiled

WallpaperStyle=2
; 0: The image is centered if TileWallpaper=0 or tiled if TileWallpaper=1
; 2: The image is stretched to fill the screen
; 6: The image is resized to fit the screen while maintaining the aspect
      ratio. (Windows 7 and later)
; 10: The image is resized and cropped to fill the screen while maintaining
      the aspect ratio. (Windows 7 and later)
=== cut ===

As a result:
=== cut ===
GetEnumProp(JvMiscInfo, 'WallpaperStyle') >> ??? VDRegion @ XX? ?]? ??? NetBIOS @\>> 8`? ? ?
=== cut ===
Additional Information
Tags No tags attached.
Attached Files zip file icon example.zip [^] (396 bytes) 2015-11-24 21:58

- Relationships

-  Notes
(0021083)
obones (administrator)
2014-12-04 15:03

Please provide the zipped sources of a sample application showing this.
(0021244)
HSerg (reporter)
2015-11-24 22:02

:: desktop wallpaper - stretch
> example.exe
wsStretch

:: desktop wallpaper - fill the screen
> example.exe
S] ?TJvMiscInfo?R] DN] ? ?JvComputerInfoEx? ΒΆ?@ ?b]

- Issue History
Date Modified Username Field Change
2014-11-09 18:33 HSerg New Issue
2014-12-04 15:03 obones Note Added: 0021083
2014-12-04 15:03 obones Status new => feedback
2015-11-24 21:58 HSerg File Added: example.zip
2015-11-24 22:02 HSerg Note Added: 0021244


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker