Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

Share Me

  • Please share this topic with your friends. Click any of the icons below:
  • Twitter
  • facebook
  • reddit
  • email

Fix in TElStdTab.DrawTabEdges (ElPgCtl

We have fixed above methode:

    case FOwner.TabPosition of
      etpLeft:
        dec(R.Right, 1);
      etpRight:
        inc(R.Left, 1);
      etpTop:
        dec(R.Bottom, 1);
      etpBottom:
        inc(R.Bottom, 1);
    end;

changed to

    if (not StyleServices.Enabled) then
      case FOwner.TabPosition of
        etpLeft:
          dec(R.Right, 1);
        etpRight:
          inc(R.Left, 1);
        etpTop:
          dec(R.Bottom, 1);
        etpBottom:
          inc(R.Bottom, 1);
      end;


Please check if this is ok.
Works for us to avoid cutted to avoid cut of sublime of text

Comments

Sign In or Register to comment.