ver. 1.1.2

- Fixed option list for ListView in Demo.
EtheaDev · Sep 22, 2024 · cba5978 · cba5978
1 parent a678279
commit cba5978
Show file tree

Hide file tree

Showing 6 changed files with 30 additions and 24 deletions.
diff --git a/Demo/ShellControlsDemo/MainUnit.dfm b/Demo/ShellControlsDemo/MainUnit.dfm
@@ -3,7 +3,7 @@ object MainForm: TMainForm
   Top = 114
   Caption = 'Shell Controls Demo'
   ClientHeight = 571
-  ClientWidth = 853
+  ClientWidth = 899
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -19,7 +19,7 @@ object MainForm: TMainForm
   object ClientPanel: TPanel
     Left = 0
     Top = 0
-    Width = 853
+    Width = 899
     Height = 571
     Align = alClient
     BevelOuter = bvNone
@@ -81,12 +81,12 @@ object MainForm: TMainForm
     object CenterPanel: TPanel
       Left = 197
       Top = 0
-      Width = 656
+      Width = 702
       Height = 571
       Align = alClient
       TabOrder = 1
       object RightSplitter: TSplitter
-        Left = 508
+        Left = 554
         Top = 47
         Width = 4
         Height = 504
@@ -99,7 +99,7 @@ object MainForm: TMainForm
         AlignWithMargins = True
         Left = 4
         Top = 50
-        Width = 501
+        Width = 547
         Height = 498
         ObjectTypes = [otFolders, otNonFolders]
         Root = 'rfDesktop'
@@ -116,7 +116,7 @@ object MainForm: TMainForm
         TabOrder = 0
       end
       object FileInfo: TPanel
-        Left = 512
+        Left = 558
         Top = 47
         Width = 143
         Height = 504
@@ -169,15 +169,15 @@ object MainForm: TMainForm
       object StatusBar: TStatusBar
         Left = 1
         Top = 551
-        Width = 654
+        Width = 700
         Height = 19
         Panels = <>
         SimplePanel = True
       end
       object TopPanel: TPanel
         Left = 1
         Top = 1
-        Width = 654
+        Width = 700
         Height = 46
         Align = alTop
         TabOrder = 3
@@ -218,17 +218,11 @@ object MainForm: TMainForm
         object ViewStyle: TRadioGroup
           Left = 145
           Top = 1
-          Width = 508
+          Width = 554
           Height = 44
           Align = alClient
           Caption = 'View Style'
-          Columns = 4
-          ItemIndex = 0
-          Items.Strings = (
-            'Icon'
-            'List'
-            'Report'
-            'SmallIcon')
+          Columns = 5
           TabOrder = 1
           OnClick = ViewStyleClick
         end

diff --git a/Demo/ShellControlsDemo/MainUnit.pas b/Demo/ShellControlsDemo/MainUnit.pas
@@ -72,13 +72,24 @@ implementation
   Winapi.CommCtrl
   , Winapi.ShlObj
   , Vcl.Shell.Utils
+  , System.TypInfo
   ;
 
 type
   TNTFolders = (rfCommonDesktopDirectory, rfCommonPrograms, rfCommonStartMenu, rfCommonStartup);
 
 procedure TMainForm.FormCreate(Sender: TObject);
+var
+  I: TViewStyle;
+  LViewStyleName: string;
 begin
+  for I := Low(TViewStyle) to High(TViewStyle) do
+  begin
+    LViewStyleName := GetEnumName(TypeInfo(TViewStyle), Ord(I));
+    ViewStyle.Items.Add(LViewStyleName);
+  end;
+  ViewStyle.ItemIndex := 0;
+
   Caption := Application.Title;
   ClearFileInfo;
   InitImageListIcons;

diff --git a/Demo/ShellControlsDemo/ShellControlsDemo.res b/Demo/ShellControlsDemo/ShellControlsDemo.res
diff --git a/Packages/XE6/dclshlctrls.dproj b/Packages/XE6/dclshlctrls.dproj
@@ -30,12 +30,6 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
-        <Cfg_2_Win32>true</Cfg_2_Win32>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
         <DCC_UNIT_PLATFORM>false</DCC_UNIT_PLATFORM>
         <DCC_SYMBOL_PLATFORM>false</DCC_SYMBOL_PLATFORM>

diff --git a/README.md b/README.md
@@ -1,6 +1,6 @@
 # Shell Controls Packages and Utils [![License](https://img.shields.io/badge/License-Apache%202.0-yellowgreen.svg)](https://opensource.org/licenses/Apache-2.0)
 
-**Latest Version 1.1.1 - 08 Jun 2024**
+**Latest Version 1.1.2 - 22 Sep 2024**
 
 ** Packages, demo and Utility of Delphi ShellControl Components (missing by Embarcadero)
 
@@ -37,6 +37,9 @@ A simple demo that explain the use of those components is located under:
 
 ## Release Notes
 
+22 Sep 2024: ver. 1.1.2
+- Fixed option list for ListView in Demo.
+
 08 Jun 2024: ver. 1.1.1
 - Updated packages of ShellControls for Delphi 12.1
 

diff --git a/ReadMe.htm b/ReadMe.htm
@@ -30,7 +30,7 @@
 }
 </style>
 <h1>Shell Controls Packages and Utils <a href="https://opensource.org/licenses/Apache-2.0"><img src="https://img.shields.io/badge/License-Apache%202.0-yellowgreen.svg" alt="License"/></a></h1>
-<p><strong>Latest Version 1.1.1 - 08 Jun 2024</strong></p>
+<p><strong>Latest Version 1.1.2 - 22 Sep 2024</strong></p>
 <p>** Packages, demo and Utility of Delphi ShellControl Components (missing by Embarcadero)</p>
 <p>Delphi version supported: XE6, XE8, XE10, D10.1, D10.2, D10.3, D10.4, D11, D12</p>
 <p>For other versions, please add a request in the <a href="https://github.com/EtheaDev/DelphiShellControlsPackages/issues">Issue section</a> of the project.</p>
@@ -57,6 +57,10 @@ <h2>Installation Notes</h2>
 <h3>Preview of the Demo included:</h3>
 <p><img src="./Images/ShellControlsDemoDesktop.jpg" alt="Shell Controls Demo"/></p>
 <h2>Release Notes</h2>
+<p>22 Sep 2024: ver. 1.1.2</p>
+<ul>
+<li>Fixed option list for ListView in Demo.</li>
+</ul>
 <p>08 Jun 2024: ver. 1.1.1</p>
 <ul>
 <li>Updated packages of ShellControls for Delphi 12.1</li>