paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 02:19:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCustomTabControl: rename a method. No functional changes.

Browse Source
This commit is contained in:
Bart 2024-02-25 13:29:39 +01:00
parent 5e54b2f921
commit 148735d8fb
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -463,7 +463,7 @@ type
function GetPageCount : integer; virtual;
procedure InsertPage(APage: TCustomPage; Index: Integer); virtual;
procedure RemovePage(Index: Integer); virtual;
procedure ActivateFirstControlOnPage(APage: TCustomPage) virtual;
procedure MaybeSelectFirstControlOnPage(APage: TCustomPage) virtual;
//Delphi compatible properties
function CanChange: Boolean; virtual;
property DisplayRect: TRect read GetDisplayRect;

6
lcl/include/customnotebook.inc
View File

@ -769,7 +769,7 @@ begin
{$ENDIF}
end;
procedure TCustomTabControl.ActivateFirstControlOnPage(APage: TCustomPage);
procedure TCustomTabControl.MaybeSelectFirstControlOnPage(APage: TCustomPage);
var
ParentForm: TCustomForm;
C, ActiveControl: TWinControl;
@ -1065,7 +1065,7 @@ begin
ParentForm := GetParentForm(Self);
if not (Assigned(ParentForm) and Assigned(APage) and APage.Visible and APage.Enabled and (APage.ControlCount > 0)) then
Exit;
ActivateFirstControlOnPage(APage);
MaybeSelectFirstControlOnPage(APage);
DoChange;
end;
@ -1104,7 +1104,7 @@ begin
FPageIndex := AValue;
UpdateAllDesignerFlags;
DoSendPageIndex;
ActivateFirstControlOnPage(GetActivePageComponent);
MaybeSelectFirstControlOnPage(GetActivePageComponent);
end;
{------------------------------------------------------------------------------