diff --git a/Demo/ShellControlsDemo/MainUnit.dfm b/Demo/ShellControlsDemo/MainUnit.dfm index 6bb8fc6..1f0fcf5 100644 --- 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,7 +169,7 @@ object MainForm: TMainForm object StatusBar: TStatusBar Left = 1 Top = 551 - Width = 654 + Width = 700 Height = 19 Panels = <> SimplePanel = True @@ -177,7 +177,7 @@ object MainForm: TMainForm 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 index 4c48f52..5978dc3 100644 --- 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 deleted file mode 100644 index 1c32f35..0000000 Binary files a/Demo/ShellControlsDemo/ShellControlsDemo.res and /dev/null differ diff --git a/Packages/XE6/dclshlctrls.dproj b/Packages/XE6/dclshlctrls.dproj index 4fae67c..1dbfc38 100644 --- a/Packages/XE6/dclshlctrls.dproj +++ b/Packages/XE6/dclshlctrls.dproj @@ -30,12 +30,6 @@ Base true - - true - Cfg_2 - true - true - false false diff --git a/README.md b/README.md index 5dc6b04..2b99e47 100644 --- 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 index 7ac4b64..e21b94d 100644 --- a/ReadMe.htm +++ b/ReadMe.htm @@ -30,7 +30,7 @@ }

Shell Controls Packages and Utils License

-

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)

Delphi version supported: XE6, XE8, XE10, D10.1, D10.2, D10.3, D10.4, D11, D12

For other versions, please add a request in the Issue section of the project.

@@ -57,6 +57,10 @@

Installation Notes

Preview of the Demo included:

Shell Controls Demo

Release Notes

+

22 Sep 2024: ver. 1.1.2

+

08 Jun 2024: ver. 1.1.1