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

13
components/spktoolbar/SpkToolbar/spkt_Pane.pas
View File

@ -144,6 +144,7 @@ type
TSpkPanes = class(TSpkCollection)
private
FIsRightToLeft: Boolean;
protected
FToolbarDispatch: TSpkBaseToolbarDispatch;
FAppearance: TSpkToolbarAppearance;
@ -164,6 +165,7 @@ type
procedure SetDisabledLargeImages(const Value: TImageList);
procedure SetImagesWidth(const Value: Integer);
procedure SetLargeImagesWidth(const Value: Integer);
procedure SetIsRightToLeft(const Value: Boolean);
public
// *** Adding and inserting elements ***
@ -182,6 +184,7 @@ type
property LargeImages: TImageList read FLargeImages write SetLargeImages;
property DisabledLargeImages: TImageList read FDisabledLargeImages write SetDisabledLargeImages;
property ImagesWidth: Integer read FImagesWidth write SetImagesWidth;
property IsRightToLeft: Boolean read FIsRightToLeft write SetIsRightToLeft;
property LargeImagesWidth: Integer read FLargeImagesWidth write SetLargeImagesWidth;
end;
@ -1299,6 +1302,16 @@ begin
Items[i].ImagesWidth := Value;
end;
procedure TSpkPanes.SetIsRightToLeft(const Value: Boolean);
var
i: Integer;
begin
if FIsRightToLeft = Value then exit;
FIsRightToLeft := Value;
for i := 0 to Count-1 do
Items[i].Items.IsRightToLeft := Value;
end;
procedure TSpkPanes.SetLargeImages(const Value: TImageList);
var
I: Integer;