Author: Pawe Gowacki
it is not a big discovery that all applications are running in the environment provided by the underlying operating system. Delphi is well-known for its rapid application development capabilities. The latest version of Delphi – Delphi 2010 – is the first release to support Windows 7, with all its latest and hottest additions including touch, multi-touch, gesturing and Direct2D. The Windows operating system is implemented in native C++ code and Delphi 2010 can directly leverage all its features without introducing additional layers of redirection, which is necessary in .NET. Microsoft has provided .NET developers with Windows API Code Pack for .NET, which contains managed wrappers for p-invoked functionality available from native Windows API layer. If you want to code for Windows you have the choice of using any of the .NET programming languages, including C#, Delphi Prism and others, or resort to native programming, like Visual C++, Delphi and C++Builder. Even though many .NET programmers believe that .NET is the only and the best way to code for Windows, the native code is still recommended where performance matters, like in the case of new Windows 7 subsystems like Direct2D or Windows Web Service API. I like Kenny Kerr saying in “Introducting Direct2D” MSDN article, that “if you want to develop high-performance and high-quality commercial applications, you’ll still look to C++ and native code to deliver that power.” Another great comment from this author is on the new native Windows 7 Web Services API in another MSDN article “Windows Web Services”: “C++ developers no longer have to think of themselves as second-class citizens in the world of Web Services. WWS is designed from the ground up to be a completely native-code implementation of SOAP, including support for many of the WS-* protocols.”
Delphi 2010 is gaining traction again, and many Delphi programmers that moved away to Java and .NET in the dark era of late Borland, are looking at Delphi again, because it continues to be the relevant choice for your just another new project and it combines native performance with the the power of visual RAD programming. You get the best of two worlds: native, high performance code and elegant Visual Component Library. Delphi also means great, very responsive IDE and standalone executables with no dependencies that will run on just any version of Windows, does not matter which version of .NET is installed or not:-)
I was just reading through recent Dr.Bob’s excellent article on using new Windows 7 TaskBar in Delphi code (good stuff!) and though it would be cool to revisit just another area also covered by Windows API Code Pack: Windows Stock Icons.
Delphi 2010 comes with “ShellAPI” unit that simplifies Windows Shell programming. It is not a new unit, but it works great with new Windows 7 APIs! In order to retrieve Windows Stock Icons in your Delphi code, you need to call “SHGetStockIconInfo” function defined in “ShellAPI” exported from shell32 Windows DLL. The “SHGetStockIconInfo” function takes an integer “id” of the icon we want to retrieve, “flags” argument that can be used to specify if we want normal or large size icons, and returns HResult and “TSHStockIconInfo” record as “out” parameter.
I have put together a small utility class named “TStockIcon” that wraps calls to “SHGetStockIconInfo” and simplifies access to Windows Stock Icons.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
<br> <strong>unit</strong> StockIconUtil;<br> <br> <strong>interface</strong><br> <br> <strong>uses</strong><br> Windows, Graphics;<br> <br> <strong>type</strong><br> TStockIconSize = (sisLarge, sisSmall, sisShellSize);<br> <br> TStockIcon = <strong>class</strong><br> <strong>class</strong> <strong>function</strong> GetIcon(id: integer): HICON; <strong>overload</strong>;<br> <strong>class</strong> <strong>function</strong> GetIcon(id: integer; size: TStockIconSize;<br> overlay, selected: boolean): HICON; <strong>overload</strong>;<br> <strong>class</strong> <strong>function</strong> GetBmp(id: integer): Graphics.TBitmap; <strong>overload</strong>; <span style="color:#003399;"><em>// conflicts with "Windows" unit</em></span><br> <strong>class</strong> <strong>function</strong> GetBmp(id: integer; size: TStockIconSize;<br> overlay, selected: boolean): Graphics.TBitmap; <strong>overload</strong>;<br> <strong>end</strong>;<br> <br> <strong>implementation</strong><br> <br> <strong>uses</strong><br> SysUtils, ShellAPI;<br> <br> <span style="color:#003399;"><em>{ TStockIcon }</em></span><br> <br> <strong>class</strong> <strong>function</strong> TStockIcon.GetIcon(id: integer; size: TStockIconSize;<br> overlay, selected: boolean): HICON;<br> <strong>var</strong><br> flags: cardinal;<br> SSII: TSHStockIconInfo;<br> ResCode: HResult;<br> <strong>begin</strong><br> <span style="color:#003399;"><em>// you always want to get an icon so SHGSI_ICON is here in all choices</em></span><br> <strong>case</strong> size <strong>of</strong><br> sisLarge: flags := SHGSI_ICON <strong>or</strong> SHGSI_LARGEICON;<br> sisSmall: flags := SHGSI_ICON <strong>or</strong> SHGSI_SMALLICON;<br> sisShellSize: flags := SHGSI_ICON <strong>or</strong> SHGSI_SHELLICONSIZE;<br> <strong>end</strong>;<br> <br> <strong>if</strong> selected <strong>then</strong><br> flags := flags <strong>OR</strong> SHGSI_SELECTED;<br> <strong>if</strong> overlay <strong>then</strong><br> flags := flags <strong>OR</strong> SHGSI_LINKOVERLAY;<br> <br> SSII.cbSize := SizeOf(SSII);<br> ResCode := SHGetStockIconInfo(id, flags, SSII);<br> <br> <strong>if</strong> ResCode <> S_OK <strong>then</strong><br> <strong>begin</strong><br> <strong>if</strong> ResCode = E_INVALIDARG <strong>then</strong><br> <strong>raise</strong> Exception.Create(<br> <span style="color:#9933cc;">'The stock icon identifier ['</span> + IntToStr(id) + <span style="color: #9933cc">'] is invalid'</span>)<br> <strong>else</strong><br> Result := 0;<br> <strong>end</strong><br> <strong>else</strong><br> Result := SSII.hIcon;<br> <strong>end</strong>;<br> <br> <strong>class</strong> <strong>function</strong> TStockIcon.GetIcon(id: integer): HICON;<br> <strong>begin</strong><br> Result := GetIcon(id, sisLarge, false, false);<br> <strong>end</strong>;<br> <br> <strong>class</strong> <strong>function</strong> TStockIcon.GetBmp(id: integer): TBitmap;<br> <strong>begin</strong><br> Result := GetBmp(id, sisLarge, false, false);<br> <strong>end</strong>;<br> <br> <strong>class</strong> <strong>function</strong> TStockIcon.GetBmp(id: integer; size: TStockIconSize; overlay,<br> selected: boolean): TBitmap;<br> <strong>var</strong> aIcon: HICON; tempIcon: TIcon;<br> <strong>begin</strong><br> aIcon := GetIcon(id, size, overlay, selected);<br> tempIcon := TIcon.Create;<br> <strong>try</strong><br> tempIcon.Handle := aIcon;<br> Result := Graphics.TBitmap.Create;<br> tempIcon.AssignTo(Result);<br> <strong>finally</strong><br> tempIcon.Free;<br> <strong>end</strong>;<br> <strong>end</strong>;<br> <br> <strong>end</strong>.<br> |
What is new to Delphi 2010 is the possibility to easily convert icons to bitmaps with new: “TIcon.AssignTo(Dest: TPersistent); override;” method that can take a TBitmap param as “Dest”.
Here is the output of my test Delphi 2010 application running on Windows 7 and displaying all Stock Icons as bitmaps in a Delphi VCL Form:
The source code for “StockIconUtil” Delphi unit and a test application can be downloaded from the EDN Code Central.
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
