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"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="12"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/> <Title Value="project1"/>
<Scaled Value="True"/> <Scaled Value="True"/>
<ResourceType Value="res"/> <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; MenuItem8: TMenuItem;
MenuItem9: TMenuItem; MenuItem9: TMenuItem;
Panel1: TPanel; Panel1: TPanel;
ShowMoreOptionsButtonCheckbox: TSpkCheckbox;
SpkLargeButton4: TSpkLargeButton; SpkLargeButton4: TSpkLargeButton;
SpkLargeButton5: TSpkLargeButton; SpkLargeButton5: TSpkLargeButton;
SpkPane2: TSpkPane; SpkPane2: TSpkPane;
@ -135,6 +136,9 @@ type
procedure AcUnderlineExecute(Sender: TObject); procedure AcUnderlineExecute(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure ShowMoreOptionsButtonCheckboxClick(Sender: TObject);
procedure SpkPane2MoreOptionsButtonClick(Sender: TObject);
procedure SpkPane6MoreOptionsButtonClick(Sender: TObject);
procedure StyleMenuClick(Sender: TObject); procedure StyleMenuClick(Sender: TObject);
private private
{ private declarations } { private declarations }
@ -270,6 +274,22 @@ begin
LoadFromIni; LoadFromIni;
end; 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; procedure TForm1.LoadFromIni;
var var
ini: TCustomIniFile; ini: TCustomIniFile;
@ -279,6 +299,8 @@ begin
SetUserInterface(ini.ReadBool('MainForm', 'RibbonInterface', AcRibbonGUI.Checked)); SetUserInterface(ini.ReadBool('MainForm', 'RibbonInterface', AcRibbonGUI.Checked));
SpkToolbar1.Style := TSpkStyle(ini.ReadInteger('MainForm', 'RibbonStyle', 0)); SpkToolbar1.Style := TSpkStyle(ini.ReadInteger('MainForm', 'RibbonStyle', 0));
SetStyle(SpkToolbar1.Style); SetStyle(SpkToolbar1.Style);
ShowMoreOptionsButtonCheckbox.Checked := ini.ReadBool('MainForm', 'ShowMoreOptionsButton', false);
ShowMoreOptionsButtonCheckboxClick(nil);
finally finally
ini.Free; ini.Free;
end; end;
@ -314,6 +336,7 @@ begin
try try
ini.WriteBool('MainForm', 'RibbonInterface', AcRibbonGUI.Checked); ini.WriteBool('MainForm', 'RibbonInterface', AcRibbonGUI.Checked);
ini.WriteInteger('MainForm', 'RibbonStyle', ord(SpkToolbar1.Style)); ini.WriteInteger('MainForm', 'RibbonStyle', ord(SpkToolbar1.Style));
ini.WriteBool('MainForm', 'ShowMoreOptionsButton', ShowMoreOptionsButtonCheckbox.Checked);
finally finally
ini.Free; ini.Free;
end; end;