Commit ed6e0875 authored by Martin's avatar Martin
Browse files

TTabControl: fix ClientOrigin, Issue #38403 - Need the origin of the child TabControl.

git-svn-id: trunk@64424 -
parent 07b254d1
......@@ -758,6 +758,11 @@ begin
Result := TTabControlNoteBookStrings.Create(Self);
end;
function TTabControl.GetClientOrigin: TPoint;
begin
Result := TTabControlNoteBookStrings(FTabs).FNoteBook.ClientOrigin;
end;
constructor TTabControl.Create(TheOwner: TComponent);
begin
FTabControlCreating:=true;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment