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

SpkToolbar: Use "More options" button in Actions demo. Based on patch provided by husker.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7699 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-26 22:35:29 +00:00
parent afaa49277f
commit 51e360c94b
3 changed files with 1415 additions and 469 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/spktoolbar/demos/actions/project1.lpi
View File

@ -1,13 +1,11 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>

1855
components/spktoolbar/demos/actions/unit1.lfm
View File

File diff suppressed because it is too large Load Diff

23
components/spktoolbar/demos/actions/unit1.pas
View File

@ -68,6 +68,7 @@ type
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
Panel1: TPanel;
ShowMoreOptionsButtonCheckbox: TSpkCheckbox;
SpkLargeButton4: TSpkLargeButton;
SpkLargeButton5: TSpkLargeButton;
SpkPane2: TSpkPane;
@ -135,6 +136,9 @@ type
procedure AcUnderlineExecute(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject);
procedure ShowMoreOptionsButtonCheckboxClick(Sender: TObject);
procedure SpkPane2MoreOptionsButtonClick(Sender: TObject);
procedure SpkPane6MoreOptionsButtonClick(Sender: TObject);
procedure StyleMenuClick(Sender: TObject);
private
{ private declarations }
@ -270,6 +274,22 @@ begin
LoadFromIni;
end;
procedure TForm1.ShowMoreOptionsButtonCheckboxClick(Sender: TObject);
begin
SpkPane2.ShowMoreOptionsButton := ShowMoreOptionsButtonCheckbox.Checked;
SpkPane6.ShowMoreOptionsButton := ShowMoreOptionsButtonCheckbox.Checked;
end;
procedure TForm1.SpkPane2MoreOptionsButtonClick(Sender: TObject);
begin
ShowMessage('You clicked on the ''More options'' button of the "Format settings" pane.');
end;
procedure TForm1.SpkPane6MoreOptionsButtonClick(Sender: TObject);
begin
ShowMessage('You clicked the ''More options'' button of the "User interface" pane.');
end;
procedure TForm1.LoadFromIni;
var
ini: TCustomIniFile;
@ -279,6 +299,8 @@ begin
SetUserInterface(ini.ReadBool('MainForm', 'RibbonInterface', AcRibbonGUI.Checked));
SpkToolbar1.Style := TSpkStyle(ini.ReadInteger('MainForm', 'RibbonStyle', 0));
SetStyle(SpkToolbar1.Style);
ShowMoreOptionsButtonCheckbox.Checked := ini.ReadBool('MainForm', 'ShowMoreOptionsButton', false);
ShowMoreOptionsButtonCheckboxClick(nil);
finally
ini.Free;
end;
@ -314,6 +336,7 @@ begin
try
ini.WriteBool('MainForm', 'RibbonInterface', AcRibbonGUI.Checked);
ini.WriteInteger('MainForm', 'RibbonStyle', ord(SpkToolbar1.Style));
ini.WriteBool('MainForm', 'ShowMoreOptionsButton', ShowMoreOptionsButtonCheckbox.Checked);
finally
ini.Free;
end;