

Result:=InsertMenuItem(hMenu, uPosition, True, LMenuItem) LMenuItem.fMask := MIIM_FTYPE or MIIM_ID or MIIM_BITMAP or MIIM_STRING LMenuItem.cbSize := SizeOf(TMenuItemInfo) Procedure WndProc(var Message: TMessage) Ĭonstructor Create(AOwner: TForm) reintroduce įunction InsertMenuHelper(hMenu: HMENU uPosition: UINT uIDNewItem: UINT_PTR lpNewItem, IconName: LPCWSTR) : BOOL
TProcCallback = reference to procedure(Info : TMethodInfo) įMethodsDict : TObjectDictionaryThen using the AppendMenu or the InsertMenuItem methods you can customize the system menu, from here you must store the identifier of the new menu item added and finally process the WM_SYSCOMMAND message to launch an action. Typically we use a combobox or listbox to allow to the final user select and appy a VCL Style, Today I will show you a new way using the system menu of the form.įirst you need to use the GetSystemMenu WinApi function to get a handle to the system menu of the form. Also a fix for the select folder combobox was introduced.Ĭategories: Delphi, Tools, VCL Styles | Tags: Delphi, Vcl Styles, VCL Styles Utils |. The VCL Styles support of the Open and Save dialogs was improved adding styling for groups and highlight items. The styling for the select directory dialog was enhanced adding support for the open and close glyphs and fixing the color of the highlight bar. Improved support for the TProgressbar component without flicker and with Marquee style. TDateTimePicker and TMonthCalendar with VCL Styles + unit

TDateTimePicker and TMonthCalendar with VCL Styles With this new release the styling of these controls is now possible. The Styling of the TMonthCalendar and TDatetimepicker components is one of the limitations of the VCL Styles, because such components are owner-draw by the system and doesn’t allow to customize the look and feel when the native themes are enabled (for more information read these TMonthCalendar and TDatetimepicker ) also only the newest versions of Delphi includes a partial styling support for such components. ListView with VCL Styles + unitĪlso was added support for style the Listview groups. This new release fix the highlight color used on the selected items and also replace the themed checkBox by a styled checkbox. Which allows take the control of the painting process for the system themed (and owner-draw) controls. This unit is the responsible of hook some of the UxTheme and WinApi methods like DrawThemeBackground, GetSysColor and GetSysColorBrush. The unit is the most updated part of this new release. This version include several fixes and new features. The TNCControls component was updated to support a different custom VCL Style in the NC Area. Check these screenshots with the glow style (this is the application VCL Style) in the body of the form and a custom VCL Style in the NC Area.Ī Major updated was made to the VCL Styles Utils project. Support for Custom VCL Styles in the NonClient Area NCControls.AlphaHotColor:= clWebAliceBlue NCControls.Add(TNCButton.Create(NCControls)) To add a button in the NC Area, only you need add a TNCControls component to your form and then insert a TNCButton in the collection like so. So now you can add Alpha-blended and Gradient buttons to the title bar of the Forms. Two new styles was added to the TNCButton control ( nsAlpha and nsGradient). I just added a set of new features to the VCL Styles Utils project New NC Buttons styles
