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

SpkToolbar: Prepare for RTL

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8953 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-10-12 21:43:33 +00:00
parent 6852677f7c
commit 9dc50e13f7
5 changed files with 54 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -126,6 +126,7 @@ type
{%H-}X, {%H-}Y: Integer); override;
function GetRootComponent: TComponent;
function IsRightToLeft: Boolean;
property ActionLink: TSpkButtonActionLink read FActionLink;
property Checked: Boolean read GetChecked write SetChecked default false;
@@ -522,6 +523,11 @@ begin
result := tab.Collection.RootComponent;
end;
function TSpkBaseButton.IsRightToLeft: Boolean;
begin
Result := (GetRootComponent as TControl).IsRightToLeft;
end;
procedure TSpkBaseButton.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin