github-starred/ultimatepp
2
0
Fork 0
mirror of https://github.com/ultimatepp/ultimatepp.git synced 2026-07-11 22:03:01 -06:00
Code Issues 33 Projects Packages Wiki Activity Actions

Merge continued

Browse source 
git-svn-id: svn://ultimatepp.org/upp/trunk@10263 f0d560ea-af0d-0410-9eb7-867de7ffcac7
This commit is contained in:
cxl 2016-10-04 08:34:39 +00:00
parent adf46bd64e
commit 2e4b276e07
3860 changed files with 1161787 additions and 438 deletions
Download patch file Download diff file Expand all files Collapse all files

9
uppdev/ShellIcons/ShellIcons.upp Normal file
View file

@ -0,0 +1,9 @@
uses
CtrlLib;
file
main.cpp;
mainconfig
"" = "GUI";

35
uppdev/ShellIcons/main.cpp Normal file
View file

@ -0,0 +1,35 @@
#include <CtrlLib/CtrlLib.h>
using namespace Upp;
Image GetShellIcon(int ii, bool large)
{
HICON hIcon = NULL;
const char *kpath = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Icons";
Vector<String> s = Split(GetWinRegString(AsString(ii), kpath), ',');
String dll = "shell32.dll";
if(s.GetCount() == 2) {
dll = s[0];
ii = atoi(s[1]);
}
return Win32DllIcon(dll, ii, large);
}
struct App : TopWindow {
ArrayCtrl h;
App() {
Sizeable().Zoomable();
h.AddColumn("Icon no.");
h.AddColumn("Small icon").SetDisplay(CenteredImageDisplay());
h.AddColumn("Large icon").SetDisplay(CenteredImageDisplay());
h.SetLineCy(32);
for(int i = 0; i < 200; i++)
h.Add(i, GetShellIcon(i, false), GetShellIcon(i, true));
Add(h.SizePos());
}
};
GUI_APP_MAIN {
App().Run();
}