Problem with TabSheets on Windows 11
lazarus / 34-Windows

----------------------------------------------------------------------
embedded-systems · 2023-07-19 10:32

Hello,
I have written an application in Lazarus IDE (version 1.8.4) under
Win7 and everything works. The test ran fine on Win7 and Win10
computers. On Win11, I found the PageControl and TabSheet components
underneath it not working - they are unresponsive and can't switch
tabs. Other things like Buttons, Labels, Dialogs work...
I tried to compile the same application on a second machine already
with Win11, where I also have Lazarus IDE, but the result is the same.

Does anyone have any idea where the problem might be. Is there any
special compiler setup required for Win11?

Thank you.

----------------------------------------------------------------------
wp · 2023-07-19 13:36

No special requirement for Win-11...

Create a new application, drop a TPagecontrol and add several sheets
to it. Compile and run. Do the tabs work? They should... If not, I am
afraid that something might be wrong in your Win-11. Or maybe your
virus scanner is playing fools with you. Put the Lazarus/FPC and your
project directories on the white-list of the scanner.

----------------------------------------------------------------------
BlueIcaro · 2023-07-19 15:35

Hello, Last year I made a program with TPagecontrol, using Lazarus
2.2.4. The program runs fine in w10 and W11. I used w11 for
programing.

Now I test TPagecontrol  with W11 and Lazarus 3.0RC1 and no problem.

May be you can update your lazarus version to new one. If you don't
want use a release candidate you can download the lastest stable:
2.2.6

/BlueIcaro

----------------------------------------------------------------------
lagprogramming · 2023-07-20 07:57

lcl/include/pagecontrol.inc has
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i function
TPageControl.ChildClassAllowed(ChildClass: TClass): boolean;begin 
Result:=(ChildClass<>nil) and
(ChildClass.InheritsFrom(GetPageClass));  if
Widgetset.GetLCLCapability(lcAllowChildControlsInNativeControls) =
LCL_CAPABILITY_YES then Result := True;end;The result assignments look
strange to me.

LCL: Call GetPageClass when adding a TTabSheet in PageControl.
Eliminate...
https://gitlab.com/freepascal.org/lazarus/lazarus/-
/commit/b13519cc855f3956aaa73a37f81da47f87986b3f
And here is for lcl/include/customedit.inc
customdrawnws: Starts implementing TEdit, Starts implementing Android
key...
https://gitlab.com/freepascal.org/lazarus/lazarus/-
/commit/aa5c1a901ce8f75808a0980d44761fc3c9915696#63e89bb6d3f82217a3f2b
ac3b27348803a46661b