TWebPageControl in V3.0.3.0 does not work at all.

WEB TMS WEB Core
1

Tried using a TWebPageControl on a form. No tabs show up when setup at design time or pragmatically. None of the demos that use the TWebPageControl work either. The one that show the tabs the tabs are not clickable.

2

I could not reproduce an issue here.
Are you 100% sure you have a clean install of the latest version?
Can you verify there is only a single copy of WEBLib.ComCtrls.pas in the TMS WEB Core library path and that this version is from the latest release?
If a problem persists, try to uninstall TMS WEB Core, then scan your full hard disk for any possible leftover files of TMS WEB Core and then reinstall the latest version.

3

Bruno,

This was a clean install about 1 week ago. I uninstalled the older version and installed the .30 version. I will check the install again and let you know. I am using RAD 12.3.

4

image
As far as I can tell this file is correct and has not been modified. No other issues with the build.

5

I think the problem is the Tabsheets are covering the page control completely. But it is not that way in the designer.

image
image693×737 26.2 KB

6

The bug is in the procedure TPageControl.DoUpdateList; function. The use of the LNoVisTabs variable is backwards. A big miss in QA and I do not know how it is working for you unless it was fixed in the 3.0.4.0 release.

Changed to this:

    LNoVisTabs := true;

    for i := 0 to tabs.Count - 1 do
    begin
      s := tabs[i];
      if (s <> shidden) and ShowTabs then
      begin

        LNoVisTabs := false;

Removed this:

        end;

        li.appendChild(a);
      end
      else
        LNoVisTabs := false;  <--- wrong
    end;
7

It was fixed in v3.0.4.0.
I recommend to always first test against our latest release.

8

The bug is in the procedure TPageControl.DoUpdateList; function. The use of the LNoVisTabs variable is backwards. No sure how it is working for you unless it was fixed in the 3.0.4.0 release.

Changed to this:

    LNoVisTabs := true;

    for i := 0 to tabs.Count - 1 do
    begin
      s := tabs[i];
      if (s <> shidden) and ShowTabs then
      begin

        LNoVisTabs := false;

Removed this:

        end;

        li.appendChild(a);
      end
      else
        LNoVisTabs := false;  <--- wrong
    end;

Sorry, Should have looked at the version history first. :upside_down_face: