Howdy, Stranger!
It looks like you're new here. If you want to get involved, click one of these buttons!
Categories
In this Discussion
- balabuev December 2016
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
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