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

Win32: rename recently added class helpers, so their names better refelct their purpose. No functional changes. Part of issue #41567.

Browse Source
This commit is contained in:
Bart 2025-07-30 11:22:16 +02:00
parent 52a346bb27
commit 950b7a0f72
5 changed files with 40 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32pagecontrol.inc
View File

@ -10,11 +10,11 @@
type type
{ TCustomPageHelper } { TCustomPageAccessHelper }
// Provides access to protected methods and properties of TCustomPage, without using a typecast hack, // Provides access to protected methods and properties of TCustomPage, without using a typecast hack,
// since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON} // since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON}
TCustomPageHelper = class helper for TCustomPage TCustomPageAccessHelper = class helper for TCustomPage
private private
function _GetFlags: TPageFlags; function _GetFlags: TPageFlags;
public public
@ -24,12 +24,12 @@ type
end; end;
function TCustomPageHelper._GetFlags: TPageFlags; function TCustomPageAccessHelper._GetFlags: TPageFlags;
begin begin
Result := Flags; Result := Flags;
end; end;
function TCustomPageHelper._FindNextControl(CurrentControl: TWinControl; function TCustomPageAccessHelper._FindNextControl(CurrentControl: TWinControl;
GoForward, CheckTabStop, CheckParent: Boolean): TWinControl; GoForward, CheckTabStop, CheckParent: Boolean): TWinControl;
begin begin
Result := FindNextControl(CurrentControl, GoForward, CheckTabStop, CheckParent); Result := FindNextControl(CurrentControl, GoForward, CheckTabStop, CheckParent);

6
lcl/interfaces/win32/win32wsbuttons.pp
View File

@ -71,17 +71,17 @@ uses
Win32Int, Win32Proc; Win32Int, Win32Proc;
type type
{ TCustomBitBtnHelper } { TCustomBitBtnAccessHelper }
// Provides access to protected methods and properties of TCustomBitBtn, without using a typecast hack, // Provides access to protected methods and properties of TCustomBitBtn, without using a typecast hack,
// since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON} // since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON}
TCustomBitBtnHelper = class helper for TCustomBitBtn TCustomBitBtnAccessHelper = class helper for TCustomBitBtn
private private
function GetFButtonGlyph: TButtonGlyph; function GetFButtonGlyph: TButtonGlyph;
public public
property _FButtonGlyph: TButtonGlyph read GetFButtonGlyph; property _FButtonGlyph: TButtonGlyph read GetFButtonGlyph;
end; end;
function TCustomBitBtnHelper.GetFButtonGlyph: TButtonGlyph; function TCustomBitBtnAccessHelper.GetFButtonGlyph: TButtonGlyph;
begin begin
Result := FButtonGlyph; Result := FButtonGlyph;
end; end;

8
lcl/interfaces/win32/win32wscomctrls.pp
View File

@ -291,11 +291,11 @@ const
type type
{ TStatusPanelHelper } { TStatusPanelAccessHelper }
// Provides access to protected methods and properties of TStatusPanel, without using a typecast hack, // Provides access to protected methods and properties of TStatusPanel, without using a typecast hack,
// since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON} // since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON}
TStatusPanelHelper = class helper for TStatusPanel TStatusPanelAccessHelper = class helper for TStatusPanel
private private
function GetFIntfFlag: Integer; function GetFIntfFlag: Integer;
procedure SetFIntfFlag(AValue: Integer); procedure SetFIntfFlag(AValue: Integer);
@ -303,12 +303,12 @@ type
property _FIntfFlag: Integer read GetFIntfFlag write SetFIntfFlag; property _FIntfFlag: Integer read GetFIntfFlag write SetFIntfFlag;
end; end;
function TStatusPanelHelper.GetFIntfFlag: Integer; function TStatusPanelAccessHelper.GetFIntfFlag: Integer;
begin begin
Result := FIntfFlag; Result := FIntfFlag;
end; end;
procedure TStatusPanelHelper.SetFIntfFlag(AValue: Integer); procedure TStatusPanelAccessHelper.SetFIntfFlag(AValue: Integer);
begin begin
FIntfFlag := AValue; FIntfFlag := AValue;
end; end;

30
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -49,11 +49,11 @@ type
type type
{ TTCustomListViewHelper } { TTCustomListViewAccessHelper }
// Provides access to protected methods and properties of TCustomListView, without using a typecast hack, // Provides access to protected methods and properties of TCustomListView, without using a typecast hack,
// since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON} // since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON}
TTCustomListViewHelper = class helper for TCustomListView TTCustomListViewAccessHelper = class helper for TCustomListView
private private
function GetColumnClick: Boolean; function GetColumnClick: Boolean;
function GetColumns: TListColumns; function GetColumns: TListColumns;
@ -74,72 +74,72 @@ type
function _IsCustomDrawn(ATarget: TCustomDrawTarget; AStage: TCustomDrawStage): Boolean; function _IsCustomDrawn(ATarget: TCustomDrawTarget; AStage: TCustomDrawStage): Boolean;
end; end;
{ TListColumnHelper } { TListColumnAccessHelper }
// Provides access to protected methods and properties of TListColumn, without using a typecast hack, // Provides access to protected methods and properties of TListColumn, without using a typecast hack,
// since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON} // since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON}
TListColumnHelper = class helper for TListColumn TListColumnAccessHelper = class helper for TListColumn
public public
function _GetStoredWidth: Integer; function _GetStoredWidth: Integer;
end; end;
{ TTCustomListViewHelper } { TTCustomListViewHelper }
function TTCustomListViewHelper.GetColumnClick: Boolean; function TTCustomListViewAccessHelper.GetColumnClick: Boolean;
begin begin
Result := ColumnClick; Result := ColumnClick;
end; end;
function TTCustomListViewHelper.GetColumns: TListColumns; function TTCustomListViewAccessHelper.GetColumns: TListColumns;
begin begin
Result := Columns; Result := Columns;
end; end;
function TTCustomListViewHelper.GetFWinControl: TWinControlFlags; function TTCustomListViewAccessHelper.GetFWinControl: TWinControlFlags;
begin begin
Result := FWinControlFlags; Result := FWinControlFlags;
end; end;
function TTCustomListViewHelper.GetStateImages: TCustomImageList; function TTCustomListViewAccessHelper.GetStateImages: TCustomImageList;
begin begin
Result := StateImages; Result := StateImages;
end; end;
function TTCustomListViewHelper._CanChange(AItem: TListItem; AChange: Integer): Boolean; function TTCustomListViewAccessHelper._CanChange(AItem: TListItem; AChange: Integer): Boolean;
begin begin
Result := CanChange(AItem, AChange); Result := CanChange(AItem, AChange);
end; end;
function TTCustomListViewHelper._DoOwnerDataFind(AFind: TItemFind; function TTCustomListViewAccessHelper._DoOwnerDataFind(AFind: TItemFind;
const AFindString: string; const AFindPosition: TPoint; AFindData: Pointer; const AFindString: string; const AFindPosition: TPoint; AFindData: Pointer;
AStartIndex: Integer; ADirection: TSearchDirection; AWrap: Boolean): Integer; AStartIndex: Integer; ADirection: TSearchDirection; AWrap: Boolean): Integer;
begin begin
Result := DoOwnerDataFind(AFind, AFindString, AFindPosition, AFindData, AStartIndex, ADirection, AWrap); Result := DoOwnerDataFind(AFind, AFindString, AFindPosition, AFindData, AStartIndex, ADirection, AWrap);
end; end;
function TTCustomListViewHelper._DoOwnerDataHint(AStartIndex, AEndIndex: Integer): Boolean; function TTCustomListViewAccessHelper._DoOwnerDataHint(AStartIndex, AEndIndex: Integer): Boolean;
begin begin
Result := DoOwnerDataHint(AStartIndex, AEndIndex); Result := DoOwnerDataHint(AStartIndex, AEndIndex);
end; end;
function TTCustomListViewHelper._GetUpdateCount: Integer; function TTCustomListViewAccessHelper._GetUpdateCount: Integer;
begin begin
Result := GetUpdateCount; Result := GetUpdateCount;
end; end;
function TTCustomListViewHelper._IntfCustomDraw(ATarget: TCustomDrawTarget; function TTCustomListViewAccessHelper._IntfCustomDraw(ATarget: TCustomDrawTarget;
AStage: TCustomDrawStage; AItem, ASubItem: Integer; AState: TCustomDrawState; AStage: TCustomDrawStage; AItem, ASubItem: Integer; AState: TCustomDrawState;
const ARect: PRect): TCustomDrawResult; const ARect: PRect): TCustomDrawResult;
begin begin
Result := IntfCustomDraw(ATarget, AStage, AItem, ASubItem, AState, ARect); Result := IntfCustomDraw(ATarget, AStage, AItem, ASubItem, AState, ARect);
end; end;
function TTCustomListViewHelper._IsCustomDrawn(ATarget: TCustomDrawTarget; AStage: TCustomDrawStage): Boolean; function TTCustomListViewAccessHelper._IsCustomDrawn(ATarget: TCustomDrawTarget; AStage: TCustomDrawStage): Boolean;
begin begin
Result := IsCustomDrawn(ATarget, AStage); Result := IsCustomDrawn(ATarget, AStage);
end; end;
{ TLisColumnHelper } { TLisColumnHelper }
function TListColumnHelper._GetStoredWidth: Integer; function TListColumnAccessHelper._GetStoredWidth: Integer;
begin begin
Result := GetStoredWidth; Result := GetStoredWidth;
end; end;

31
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -1737,14 +1737,11 @@ begin
end; end;
type type
//TTaskDialogAccess = class(TCustomTaskDialog) { TTaskDialogAccessHelper }
//end;
{ TTaskDialogHelper }
// Provides access to protected methods and properties of TCustomTaskDialog, without using a typecast hack, // Provides access to protected methods and properties of TCustomTaskDialog, without using a typecast hack,
// since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON} // since such a typecast wil raise an EInvalidCast when compiled with -CR {$OBJECTCHECKS ON}
TTaskDialogHelper = class helper for TCustomTaskDialog TTaskDialogAccessHelper = class helper for TCustomTaskDialog
public public
procedure _InternalSetDialogHandle(AHandle: THandle); procedure _InternalSetDialogHandle(AHandle: THandle);
procedure _DoOnDialogConstructed; procedure _DoOnDialogConstructed;
@ -1762,63 +1759,63 @@ type
{ TTsakDialogHelper } { TTsakDialogHelper }
procedure TTaskDialogHelper._InternalSetDialogHandle(AHandle: THandle); procedure TTaskDialogAccessHelper._InternalSetDialogHandle(AHandle: THandle);
begin begin
InternalSetDialogHandle(AHandle); InternalSetDialogHandle(AHandle);
end; end;
procedure TTaskDialogHelper._DoOnDialogConstructed; procedure TTaskDialogAccessHelper._DoOnDialogConstructed;
begin begin
DoOnDialogConstructed; DoOnDialogConstructed;
end; end;
procedure TTaskDialogHelper._DoOnDialogCreated; procedure TTaskDialogAccessHelper._DoOnDialogCreated;
begin begin
DoOnDialogCreated; DoOnDialogCreated;
end; end;
procedure TTaskDialogHelper._DoOnDialogDestroyed; procedure TTaskDialogAccessHelper._DoOnDialogDestroyed;
begin begin
DoOnDialogDestroyed; DoOnDialogDestroyed;
end; end;
procedure TTaskDialogHelper._DoOnButtonClicked(AModalResult: Integer; procedure TTaskDialogAccessHelper._DoOnButtonClicked(AModalResult: Integer;
var ACanClose: Boolean); var ACanClose: Boolean);
begin begin
DoOnButtonClicked(AModalResult, ACanClose); DoOnButtonClicked(AModalResult, ACanClose);
end; end;
procedure TTaskDialogHelper._DoOnHyperlinkClicked(const AURL: string); procedure TTaskDialogAccessHelper._DoOnHyperlinkClicked(const AURL: string);
begin begin
DoOnHyperlinkClicked(AURL); DoOnHyperlinkClicked(AURL);
end; end;
procedure TTaskDialogHelper._DoOnNavigated; procedure TTaskDialogAccessHelper._DoOnNavigated;
begin begin
DoOnNavigated; DoOnNavigated;
end; end;
procedure TTaskDialogHelper._DoOnTimer(TickCount: Cardinal; var Reset: Boolean); procedure TTaskDialogAccessHelper._DoOnTimer(TickCount: Cardinal; var Reset: Boolean);
begin begin
DoOnTimer(TickCount, Reset); DoOnTimer(TickCount, Reset);
end; end;
procedure TTaskDialogHelper._DoOnverificationClicked(Checked: Boolean); procedure TTaskDialogAccessHelper._DoOnverificationClicked(Checked: Boolean);
begin begin
DoOnverificationClicked(Checked); DoOnverificationClicked(Checked);
end; end;
procedure TTaskDialogHelper._DoOnExpandButtonClicked(Expanded: Boolean); procedure TTaskDialogAccessHelper._DoOnExpandButtonClicked(Expanded: Boolean);
begin begin
DoOnExpandButtonClicked(Expanded); DoOnExpandButtonClicked(Expanded);
end; end;
procedure TTaskDialogHelper._DoOnRadioButtonClicked(ButtonID: Integer); procedure TTaskDialogAccessHelper._DoOnRadioButtonClicked(ButtonID: Integer);
begin begin
DoOnRadioButtonClicked(ButtonID); DoOnRadioButtonClicked(ButtonID);
end; end;
procedure TTaskDialogHelper._DoOnHelp; procedure TTaskDialogAccessHelper._DoOnHelp;
begin begin
DoOnHelp; DoOnHelp;
end; end;