Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2021-09

Issue #37100 / Can not create StatusBar control under Win32 LCL Dll application

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Rolf Wetjen

Hello everybody,

can someone tell me what's the status of issue #37100? Will it be implemented?
The code looks a little bit strange. Both, the original one and the patch as well.

The procedure "InitializePreferredStatusBarHeight" is referenced only one time in
"class procedure TWin32WSStatusBar.GetPreferredSize(const AWinControl: TWinControl;
  var PreferredWidth, PreferredHeight: integer; WithThemeSpace: Boolean);" I assume that AWinControl is the TStatusBar object here and so I think the Parent used in InitializePreferredStatusBarHeight should be AWinControl.ParentWindow.Handle in all cases.

Easy to change by defining  "const AWinControl: TWinControl" as parameter for InitializePreferredStatusBarHeight.

What do you think about it?

Regards,

Rolf

Reply by email