GDIPFill - something wrong

VCL TMS VCL UI Pack
1

At th procedure TGDIPButton.Draw ios something wrong code:

...
if not VerticalText then
begin
tw := sizer.Width;
th := sizer.Height;
end
else
begin
tw := TextW;
th := TextH;
end;

**if Down then**
  **pt := MakePoint(X + ShiftDown, Y + ShiftDown + (Height - th) / 2)**
**else**
  **pt := MakePoint(X + ShiftDown, Y + ShiftDown + (Height - th) / 2);**

...

This is duplicate code

2

It should be:

    if Down then
      pt := MakePoint(X + ShiftDown, Y + ShiftDown + (Height - th) / 2)
    else
      pt := MakePoint(X, Y + (Height - th) / 2);

will be adapted in the next update.