paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-22 18:48:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Update Caption of a TPageControl when something is docked there. Issue #40741, patch by Anton Kavalenka.

Browse Source
This commit is contained in:
Juha 2024-07-31 00:18:42 +03:00
parent 85bf6be863
commit d944f9f554
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -592,6 +592,7 @@ type
procedure DoRemoveDockClient(Client: TControl); override; procedure DoRemoveDockClient(Client: TControl); override;
function DoUndockClientMsg(NewTarget, Client: TControl):boolean; override; function DoUndockClientMsg(NewTarget, Client: TControl):boolean; override;
function ChildClassAllowed(ChildClass: TClass): boolean; override; function ChildClassAllowed(ChildClass: TClass): boolean; override;
procedure UpdateDockCaption(Exclude: TControl = nil); override;
public public
procedure Clear; procedure Clear;
function FindNextPage(CurPage: TTabSheet; function FindNextPage(CurPage: TTabSheet;

10
lcl/include/pagecontrol.inc
View File

@ -116,7 +116,15 @@ begin
if Widgetset.GetLCLCapability(lcAllowChildControlsInNativeControls) = LCL_CAPABILITY_YES then Result := True; if Widgetset.GetLCLCapability(lcAllowChildControlsInNativeControls) = LCL_CAPABILITY_YES then Result := True;
end; end;
procedure TPageControl.UpdateDockCaption(Exclude: TControl = nil);
var
i:integer;
begin
for i:=0 to Self.PageCount-1 do
with Pages[i] do
if ControlCount>0 then
Caption:=Controls[0].Caption;
end;
function TPageControl.FindNextPage(CurPage: TTabSheet; GoForward, function TPageControl.FindNextPage(CurPage: TTabSheet; GoForward,
CheckTabVisible: Boolean): TTabSheet; CheckTabVisible: Boolean): TTabSheet;