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

ExCtrls: Fix TRadiogroupEx/TCheckGroupEx firing OnEnter/OnExit events when another sub-control is selected. New events OnItemEnter/OnItemExit. See also LCL issue #37768.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7674 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-20 17:32:29 +00:00
parent 2263b9ccd0
commit 206fc7f0e3
2 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/exctrls/examples/ButtonEx/main.lfm
View File

@ -721,9 +721,9 @@ object Form1: TForm1
Left = 8
Height = 25
Top = 254
Width = 99
Width = 113
AutoSize = True
Caption = 'Test 2nd form'
Caption = 'Test modal form'
OnClick = Button2Click
TabOrder = 5
end

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

@ -316,14 +316,15 @@ type
FUpdatingItems: Boolean;
FOnClick: TNotifyEvent;
FOnGetImageIndex: TGetImageIndexEvent;
FOnItemEnter: TNotifyEvent;
FOnItemExit: TNotifyEvent;
FOnSelectionChanged: TNotifyEvent;
procedure ItemEnter(Sender: TObject);
procedure ItemExit(Sender: TObject);
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 ItemResize(Sender: TObject);
procedure SetAutoFill(const AValue: Boolean);
procedure SetColumnLayout(const AValue: TColumnLayout);
procedure SetColumns(const AValue: integer);
@ -347,6 +348,8 @@ type
property ReadOnly: Boolean read FReadOnly write SetReadOnly default false;
property OnClick: TNotifyEvent read FOnClick write FOnClick;
property OnGetImageIndex: TGetImageIndexEvent read FOnGetImageIndex write SetOnGetImageIndex;
property OnItemEnter: TNotifyEvent read FOnItemEnter write FOnItemEnter;
property OnItemExit: TNotifyEvent read FOnItemExit write FOnItemExit;
property OnSelectionChanged: TNotifyEvent read FOnSelectionChanged write FOnSelectionChanged;
public
constructor Create(AOwner: TComponent); override;
@ -438,6 +441,8 @@ type
property OnEnter;
property OnExit;
property OnGetImageIndex;
property OnItemEnter;
property OnItemExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
@ -531,6 +536,8 @@ type
property OnExit;
property OnGetImageIndex;
property OnItemClick;
property OnItemEnter;
property OnItemExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
@ -1405,12 +1412,12 @@ end;
procedure TCustomCheckControlGroupEx.ItemEnter(Sender: TObject);
begin
DoEnter;
if Assigned(FOnItemEnter) then FOnItemEnter(Sender);
end;
procedure TCustomCheckControlGroupEx.ItemExit(Sender: TObject);
begin
DoExit;
if Assigned(FOnItemExit) then FOnItemExit(Sender);
end;
procedure TCustomCheckControlGroupEx.ItemKeyDown(Sender: TObject;
@ -1439,11 +1446,6 @@ begin
UTF8KeyPress(UTF8Key);
end;
procedure TCustomCheckControlGroupEx.ItemResize(Sender: TObject);
begin
//
end;
function TCustomCheckControlGroupEx.Rows: integer;
begin
if FItems.Count > 0 then
@ -1853,7 +1855,6 @@ begin
OnKeyUp := @Self.ItemKeyUp;
OnKeyPress := @Self.ItemKeyPress;
OnUTF8KeyPress := @Self.ItemUTF8KeyPress;
OnResize := @Self.ItemResize;
ParentFont := True;
ReadOnly := Self.ReadOnly;
BorderSpacing.CellAlignHorizontal := ccaLeftTop;