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

spktoolbar: Improved setters of some TSpkBaseButton properties. See https://forum.lazarus.freepascal.org/index.php/topic,51552.msg471040.html#msg471040.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8706 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-14 09:21:29 +00:00
parent 37211f9d43
commit 36eff03740
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/spktoolbar/SpkToolbar/spkt_Buttons.pas
View File

@ -849,6 +849,9 @@ end;
procedure TSpkBaseButton.SetButtonKind(const Value: TSpkButtonKind);
begin
if FButtonKind = Value then
exit;
FButtonKind := Value;
if Assigned(FToolbarDispatch) then
FToolbarDispatch.NotifyMetricsChanged;
@ -856,6 +859,9 @@ end;
procedure TSpkBaseButton.SetCaption(const Value: string);
begin
if FCaption = Value then
exit;
FCaption := Value;
if Assigned(FToolbarDispatch) then
FToolbarDispatch.NotifyMetricsChanged;
@ -884,6 +890,9 @@ end;
procedure TSpkBaseButton.SetDropdownMenu(const Value: TPopupMenu);
begin
if FDropDownMenu = Value then
exit;
FDropdownMenu := Value;
if Assigned(FToolbarDispatch) then
FToolbarDispatch.NotifyMetricsChanged;