pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrls: Move virtual methods of TCustomCheckControlGroupEx from "private" to "protected"

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8709 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-18 17:26:24 +00:00
parent 7740070b5a
commit 04ffc7bc2e
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/exctrls/source/excheckctrls.pas
View File

@ -321,12 +321,6 @@ type
FOnItemEnter: TNotifyEvent; FOnItemEnter: TNotifyEvent;
FOnItemExit: TNotifyEvent; FOnItemExit: TNotifyEvent;
FOnSelectionChanged: TNotifyEvent; FOnSelectionChanged: TNotifyEvent;
procedure ItemEnter(Sender: TObject); virtual;
procedure ItemExit(Sender: TObject); virtual;
procedure ItemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
procedure ItemKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
procedure ItemKeyPress(Sender: TObject; var Key: Char); virtual;
procedure ItemUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); virtual;
procedure SetAutoFill(const AValue: Boolean); procedure SetAutoFill(const AValue: Boolean);
procedure SetColumnLayout(const AValue: TColumnLayout); procedure SetColumnLayout(const AValue: TColumnLayout);
procedure SetColumns(const AValue: integer); procedure SetColumns(const AValue: integer);
@ -336,6 +330,12 @@ type
procedure SetOnGetImageIndex(const AValue: TGetImageIndexEvent); procedure SetOnGetImageIndex(const AValue: TGetImageIndexEvent);
procedure SetReadOnly(const AValue: Boolean); procedure SetReadOnly(const AValue: Boolean);
protected protected
procedure ItemEnter(Sender: TObject); virtual;
procedure ItemExit(Sender: TObject); virtual;
procedure ItemKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
procedure ItemKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); virtual;
procedure ItemKeyPress(Sender: TObject; var Key: Char); virtual;
procedure ItemUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); virtual;
procedure UpdateAll; procedure UpdateAll;
procedure UpdateControlsPerLine; procedure UpdateControlsPerLine;
procedure UpdateInternalObjectList; procedure UpdateInternalObjectList;