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

SpkToolbar: Publish BiDiMode property. Update the Styles demo to show BiDiMode.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8960 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-10-13 10:19:19 +00:00
parent d744478fd0
commit ba931c14b4
3 changed files with 587 additions and 904 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/spktoolbar/SpkToolbar/SpkToolbar.pas
View File

@ -543,6 +543,7 @@ type
{ inherited properties } { inherited properties }
property Align default alTop; property Align default alTop;
property BiDiMode;
property BorderSpacing; property BorderSpacing;
property Anchors; property Anchors;
property Hint; property Hint;

1462
components/spktoolbar/demos/styles/unit1.lfm
View File

File diff suppressed because it is too large Load Diff

28
components/spktoolbar/demos/styles/unit1.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
spktoolbar, spkt_Tab, spkt_Pane, spkt_Buttons, spkt_Checkboxes; StdCtrls, spktoolbar, spkt_Tab, spkt_Pane, spkt_Buttons, spkt_Checkboxes;
type type
@ -18,6 +18,9 @@ type
Panel2: TPanel; Panel2: TPanel;
Panel3: TPanel; Panel3: TPanel;
Panel4: TPanel; Panel4: TPanel;
Panel5: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
SmallImages: TImageList; SmallImages: TImageList;
SpkCheckbox1: TSpkCheckbox; SpkCheckbox1: TSpkCheckbox;
@ -145,6 +148,7 @@ type
SpkToolbar3: TSpkToolbar; SpkToolbar3: TSpkToolbar;
SpkToolbar4: TSpkToolbar; SpkToolbar4: TSpkToolbar;
SpkToolbar5: TSpkToolbar; SpkToolbar5: TSpkToolbar;
procedure RadioButton1Change(Sender: TObject);
private private
public public
@ -158,5 +162,27 @@ implementation
{$R *.lfm} {$R *.lfm}
{ TForm1 }
procedure TForm1.RadioButton1Change(Sender: TObject);
begin
if Sender = RadioButton1 then
begin
SpkToolbar1.BiDiMode := bdLeftToRight;
SpkToolbar2.BiDiMode := bdLeftToRight;
SpkToolbar3.BiDiMode := bdLeftToRight;
SpkToolbar4.BiDiMode := bdLeftToRight;
SpkToolbar5.BiDiMode := bdLeftToRight;
end else
if Sender = RadioButton2 then
begin
SpkToolbar1.BiDiMode := bdRightToLeft;
SpkToolbar2.BiDiMode := bdRightToLeft;
SpkToolbar3.BiDiMode := bdRightToLeft;
SpkToolbar4.BiDiMode := bdRightToLeft;
SpkToolbar5.BiDiMode := bdRightToLeft;
end;
end;
end. end.