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

spktoolbar: Fix broken assignment of SpkPopopMenu to buttons at designtime.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8726 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-21 22:03:57 +00:00
parent 33121d356d
commit 100404da41
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/spktoolbar/SpkPopupMenu/spkpopup.pas
View File

@ -196,8 +196,8 @@ procedure TSpkPopupMenu.SetAppearance(AValue: TSpkToolbarAppearance);
var var
i: Integer; i: Integer;
begin begin
if FAppearance = AValue then // if FAppearance = AValue then
exit; // exit;
FAppearance := AValue; FAppearance := AValue;
OwnerDraw := FAppearance <> nil; OwnerDraw := FAppearance <> nil;
OnDrawItem := @DrawItemHandler; OnDrawItem := @DrawItemHandler;

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

@ -995,6 +995,9 @@ end;
procedure TSpkLargeButton.CalcRects; procedure TSpkLargeButton.CalcRects;
begin begin
if (FDropdownMenu is TSpkPopupMenu) then
TSpkPopupMenu(FDropdownMenu).Appearance := FAppearance;
{$IFDEF EnhancedRecordSupport} {$IFDEF EnhancedRecordSupport}
if FButtonKind = bkButtonDropdown then if FButtonKind = bkButtonDropdown then
begin begin