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 2019-05-04 21:03
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]
(0021803)
mh (reporter)
2019-05-04 16:35

I tried to compile the attached demo program, but at least in Rio this fails as the unit Graphics, which is used by JvComputerInfoEx.pas is not found on my system.
(0021804)
mh (reporter)
2019-05-04 16:46

Ok, I can compile it now in Rio: one needs to add VCL and VCL.Imaging as unit scope names to the project settings of the demo attached to this issue in order to be able to compile it.
(0021805)
mh (reporter)
2019-05-04 18:15

Ok, running the provided example in 10.3 Rio update 1 on a Windows 10 VM gives a wsFill result for me.

Current definition of TJvWallpaperStyle is:
TJvWallpaperStyle = (wsCenter, wsStretch, wsFit, wsFill, wsUnknown);

So I don't see what's wrong with it. I guess it has been fixed in the meantime and thus the issue can be closed.
(0021808)
HSerg (reporter)
2019-05-04 21:03

Agree. Fixed via https://github.com/project-jedi/jvcl/commit/5bbed962300ea0a8ddefd7dc0f4b8a57a3f069ce [^]

- 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
2019-05-04 16:35 mh Note Added: 0021803
2019-05-04 16:46 mh Note Added: 0021804
2019-05-04 18:15 mh Note Added: 0021805
2019-05-04 21:03 HSerg Note Added: 0021808


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