Problem with a Form include MainMenu and TStatusBar

[marikar17]

I use Delphi XE10.2 and the lastest vcl-styles-utils.

We have a form with a BorderStyle=bsSizeable, mainmenu, listview, buttons and a TStatusBar.

If activate a Style, the form shrink and the statusbar show over the button

If I remove the TMainMenu, the form not shrink and the button not show over the button

How resolve my problem?

Best regards

Unit1.pas

unit Unit1;

interface

uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Buttons, System.ImageList, Vcl.ImgList, Vcl.Menus;

type TForm1 = class(TForm) ListView1: TListView; BitBtn1: TBitBtn; BitBtn2: TBitBtn; StatusBar1: TStatusBar; MainMenu1: TMainMenu; test1: TMenuItem; private { Private declarations } public { Public declarations } end;

var Form1: TForm1;

implementation

{$R *.dfm}

end.

Unit1.dfm

object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 219 ClientWidth = 208 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False DesignSize = ( 208 219) PixelsPerInch = 96 TextHeight = 13 object ListView1: TListView Left = 8 Top = 0 Width = 185 Height = 133 Anchors = [akLeft, akTop, akRight, akBottom] Columns = <> DoubleBuffered = True DragMode = dmAutomatic MultiSelect = True ReadOnly = True RowSelect = True ParentDoubleBuffered = False ParentShowHint = False ShowColumnHeaders = False ShowHint = True SortType = stText TabOrder = 0 ViewStyle = vsReport end object BitBtn1: TBitBtn Left = 8 Top = 139 Width = 185 Height = 25 Anchors = [akLeft, akRight, akBottom] Caption = 'BitBtn1' TabOrder = 1 end object BitBtn2: TBitBtn Left = 8 Top = 169 Width = 185 Height = 25 Anchors = [akLeft, akRight, akBottom] Caption = 'BitBtn1' TabOrder = 2 end object StatusBar1: TStatusBar Left = 0 Top = 200 Width = 208 Height = 19 Panels = <> end object MainMenu1: TMainMenu Left = 98 Top = 116 object test1: TMenuItem Caption = 'test' end end end

[pyscripter]

In Project, Options, Application uncheck Enable Hi DPI.

[marikar17]

I tried but it's not functionnal.

Projects.zip

I attach my projects on this post.