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

SpkToolbar: Increase version to v0.1.8 (after release of v0.1.7). Some minor changes in demos (included in released version).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8050 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-06-12 16:17:02 +00:00
parent d39f9aac7e
commit 6d39d416bb
10 changed files with 1314 additions and 3308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

2582
components/spktoolbar/demos/actions_hidpi/unit1.lfm
View File

File diff suppressed because it is too large Load Diff

4
components/spktoolbar/demos/basic/Project1.lpi
View File

@ -1,16 +1,16 @@
<?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> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/> <MainUnitHasTitleStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/> <Icon Value="0"/>

24
components/spktoolbar/demos/basic/Unit1.lfm
View File

@ -10,7 +10,7 @@ object Form2: TForm2
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
LCLVersion = '1.6.4.0' LCLVersion = '2.0.13.0'
object SpkToolbar1: TSpkToolbar object SpkToolbar1: TSpkToolbar
Left = 0 Left = 0
Height = 112 Height = 112
@ -430,7 +430,7 @@ object Form2: TForm2
CustomAppearance.Pane.BorderDarkColor = 14335646 CustomAppearance.Pane.BorderDarkColor = 14335646
CustomAppearance.Pane.BorderLightColor = 16315117 CustomAppearance.Pane.BorderLightColor = 16315117
CustomAppearance.Pane.CaptionBgColor = 15849922 CustomAppearance.Pane.CaptionBgColor = 15849922
CustomAppearance.Pane.CaptionFont.Color = 9126421 CustomAppearance.Pane.CaptionFont.Color = 9126421
CustomAppearance.Pane.GradientFromColor = 16115934 CustomAppearance.Pane.GradientFromColor = 16115934
CustomAppearance.Pane.GradientToColor = 15587527 CustomAppearance.Pane.GradientToColor = 15587527
CustomAppearance.Pane.GradientType = bkConcave CustomAppearance.Pane.GradientType = bkConcave
@ -480,15 +480,15 @@ object Form2: TForm2
end end
end end
object ActionList1: TActionList object ActionList1: TActionList
left = 128 Left = 128
top = 160 Top = 160
object Action1: TAction object Action1: TAction
Caption = 'Action1' Caption = 'Action1'
end end
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
left = 216 Left = 216
top = 160 Top = 160
object CUsersSpookDokumenty1: TMenuItem object CUsersSpookDokumenty1: TMenuItem
Caption = 'C:\Users\Spook\Dokumenty' Caption = 'C:\Users\Spook\Dokumenty'
end end
@ -499,8 +499,8 @@ object Form2: TForm2
object LargeImages: TImageList object LargeImages: TImageList
Height = 32 Height = 32
Width = 32 Width = 32
left = 216 Left = 216
top = 224 Top = 224
Bitmap = { Bitmap = {
4C69050000002000000020000000000000000000000000000000000000000000 4C69050000002000000020000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
@ -1146,8 +1146,8 @@ object Form2: TForm2
} }
end end
object Images: TImageList object Images: TImageList
left = 312 Left = 312
top = 224 Top = 224
Bitmap = { Bitmap = {
4C693D0000001000000010000000000000000000000000000000000000000000 4C693D0000001000000010000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
@ -3105,8 +3105,8 @@ object Form2: TForm2
} }
end end
object PopupMenu2: TPopupMenu object PopupMenu2: TPopupMenu
left = 312 Left = 312
top = 168 Top = 168
object Recent11: TMenuItem object Recent11: TMenuItem
Caption = 'Recent 1' Caption = 'Recent 1'
end end

7
components/spktoolbar/demos/basic/Unit1.pas
View File

@ -5,10 +5,9 @@ unit Unit1;
interface interface
uses uses
LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, LCLIntf, LCLType, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SpkToolbar, StdCtrls, ExtCtrls, SpkGUITools, SpkMath, SpkGraphTools, Dialogs, SpkToolbar, StdCtrls, ExtCtrls, ActnList, Menus,
Spin, spkt_Tab, spkt_Pane, ActnList, Menus, spkt_Types, spkt_Tab, spkt_Pane, ImgList, spkt_BaseItem, spkt_Buttons, spkt_Checkboxes;
spkt_Tools, ImgList, spkt_BaseItem, spkt_Buttons, spkt_Checkboxes;
type type
TForm2 = class(TForm) TForm2 = class(TForm)

11
components/spktoolbar/demos/runtime/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -18,13 +18,12 @@
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

18
components/spktoolbar/demos/runtime/unit1.lfm
View File

@ -8,7 +8,7 @@ object Form1: TForm1
ClientWidth = 643 ClientWidth = 643
OnCreate = FormCreate OnCreate = FormCreate
ShowHint = True ShowHint = True
LCLVersion = '1.7' LCLVersion = '2.0.13.0'
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 23
@ -111,8 +111,8 @@ object Form1: TForm1
TabOrder = 2 TabOrder = 2
end end
object ImageList: TImageList object ImageList: TImageList
left = 138 Left = 138
top = 151 Top = 151
Bitmap = { Bitmap = {
4C690F0000001000000010000000FFFFFF0000000000000000003040C4FF3040 4C690F0000001000000010000000FFFFFF0000000000000000003040C4FF3040
C4FF0000000000000000000000000000000000000000000000003040C4FF3040 C4FF0000000000000000000000000000000000000000000000003040C4FF3040
@ -600,8 +600,8 @@ object Form1: TForm1
object LargeImageList: TImageList object LargeImageList: TImageList
Height = 32 Height = 32
Width = 32 Width = 32
left = 224 Left = 224
top = 151 Top = 151
Bitmap = { Bitmap = {
4C69080000002000000020000000000000000000000000000000000000000000 4C69080000002000000020000000000000000000000000000000000000000000
0000000000063040C4FF3040C4FF000000060000000000000000000000000000 0000000000063040C4FF3040C4FF000000060000000000000000000000000000
@ -1631,8 +1631,8 @@ object Form1: TForm1
} }
end end
object RecentFilesPopupMenu: TPopupMenu object RecentFilesPopupMenu: TPopupMenu
left = 354 Left = 354
top = 152 Top = 152
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
Caption = 'First file' Caption = 'First file'
end end
@ -1644,8 +1644,8 @@ object Form1: TForm1
end end
end end
object StylePopupMenu: TPopupMenu object StylePopupMenu: TPopupMenu
left = 501 Left = 501
top = 151 Top = 151
object MnuOffice2007Blue: TMenuItem object MnuOffice2007Blue: TMenuItem
Caption = 'Office2007 blue' Caption = 'Office2007 blue'
Checked = True Checked = True

1
components/spktoolbar/demos/runtime/unit1.pas
View File

@ -417,6 +417,7 @@ begin
with Items.AddSmallButton do begin with Items.AddSmallButton do begin
Caption := 'Save now'; Caption := 'Save now';
Hint := 'Save settings now'; Hint := 'Save settings now';
HideFrameWhenIdle := true;
ImageIndex := 2; ImageIndex := 2;
end; end;
with Items.AddCheckbox do begin with Items.AddCheckbox do begin

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

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 614 ClientHeight = 614
ClientWidth = 636 ClientWidth = 636
Color = clMedGray Color = clMedGray
LCLVersion = '1.6.4.0' LCLVersion = '2.0.13.0'
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Height = 614 Height = 614
@ -301,6 +301,7 @@ object Form1: TForm1
) )
object SpkSmallButton36: TSpkSmallButton object SpkSmallButton36: TSpkSmallButton
Caption = 'Save now' Caption = 'Save now'
HideFrameWhenIdle = True
TableBehaviour = tbBeginsRow TableBehaviour = tbBeginsRow
end end
object SpkCheckbox1: TSpkCheckbox object SpkCheckbox1: TSpkCheckbox
@ -593,6 +594,7 @@ object Form1: TForm1
) )
object SpkSmallButton37: TSpkSmallButton object SpkSmallButton37: TSpkSmallButton
Caption = 'Save now' Caption = 'Save now'
HideFrameWhenIdle = True
end end
object SpkCheckbox2: TSpkCheckbox object SpkCheckbox2: TSpkCheckbox
Caption = 'Auto save' Caption = 'Auto save'
@ -884,6 +886,7 @@ object Form1: TForm1
) )
object SpkSmallButton38: TSpkSmallButton object SpkSmallButton38: TSpkSmallButton
Caption = 'Save now' Caption = 'Save now'
HideFrameWhenIdle = True
end end
object SpkCheckbox3: TSpkCheckbox object SpkCheckbox3: TSpkCheckbox
Caption = 'Auto save' Caption = 'Auto save'
@ -1203,6 +1206,7 @@ object Form1: TForm1
) )
object SpkSmallButton39: TSpkSmallButton object SpkSmallButton39: TSpkSmallButton
Caption = 'Save now' Caption = 'Save now'
HideFrameWhenIdle = True
end end
object SpkCheckbox4: TSpkCheckbox object SpkCheckbox4: TSpkCheckbox
Caption = 'Auto save' Caption = 'Auto save'
@ -1235,6 +1239,7 @@ object Form1: TForm1
Appearance.Tab.GradientFromColor = 4605510 Appearance.Tab.GradientFromColor = 4605510
Appearance.Tab.GradientToColor = 4605510 Appearance.Tab.GradientToColor = 4605510
Appearance.Tab.GradientType = bkSolid Appearance.Tab.GradientType = bkSolid
Appearance.Tab.InactiveTabHeaderFontColor = 7895160
Appearance.MenuButton.CaptionFont.Color = clWhite Appearance.MenuButton.CaptionFont.Color = clWhite
Appearance.MenuButton.IdleFrameColor = 11822592 Appearance.MenuButton.IdleFrameColor = 11822592
Appearance.MenuButton.IdleGradientFromColor = 11822592 Appearance.MenuButton.IdleGradientFromColor = 11822592
@ -1253,7 +1258,6 @@ object Form1: TForm1
Appearance.MenuButton.ActiveGradientType = bkSolid Appearance.MenuButton.ActiveGradientType = bkSolid
Appearance.MenuButton.ActiveCaptionColor = clWhite Appearance.MenuButton.ActiveCaptionColor = clWhite
Appearance.MenuButton.ShapeStyle = mbssRectangle Appearance.MenuButton.ShapeStyle = mbssRectangle
Appearance.Tab.InactiveTabHeaderFontColor = 7895160
Appearance.Pane.BorderDarkColor = 9208962 Appearance.Pane.BorderDarkColor = 9208962
Appearance.Pane.BorderLightColor = 10657179 Appearance.Pane.BorderLightColor = 10657179
Appearance.Pane.CaptionBgColor = 4605510 Appearance.Pane.CaptionBgColor = 4605510
@ -1507,6 +1511,7 @@ object Form1: TForm1
) )
object SpkSmallButton40: TSpkSmallButton object SpkSmallButton40: TSpkSmallButton
Caption = 'Save now' Caption = 'Save now'
HideFrameWhenIdle = True
end end
object SpkCheckbox5: TSpkCheckbox object SpkCheckbox5: TSpkCheckbox
Caption = 'auto ssave' Caption = 'auto ssave'
@ -1519,8 +1524,8 @@ object Form1: TForm1
object LargeImages: TImageList object LargeImages: TImageList
Height = 32 Height = 32
Width = 32 Width = 32
left = 368 Left = 368
top = 112 Top = 112
Bitmap = { Bitmap = {
4C69040000002000000020000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 4C69040000002000000020000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
@ -2038,8 +2043,8 @@ object Form1: TForm1
} }
end end
object SmallImages: TImageList object SmallImages: TImageList
left = 456 Left = 456
top = 112 Top = 112
Bitmap = { Bitmap = {
4C690C0000001000000010000000B782187CB78114FFB57E0FFFB57C0BFFB57C 4C690C0000001000000010000000B782187CB78114FFB57E0FFFB57C0BFFB57C
09FFB57C09FFB57C09FFB57C09FFB57C09FFB57C09FFB57C09FFB57C09FFB57C 09FFB57C09FFB57C09FFB57C09FFB57C09FFB57C09FFB57C09FFB57C09FFB57C

2
components/spktoolbar/spktoolbarpackage.lpk
View File

@ -16,7 +16,7 @@
</CompilerOptions> </CompilerOptions>
<Description Value="Ribbon-like toolbar"/> <Description Value="Ribbon-like toolbar"/>
<License Value="Modified LGPL (like Lazarus)"/> <License Value="Modified LGPL (like Lazarus)"/>
<Version Minor="1" Release="7"/> <Version Minor="1" Release="8"/>
<Files Count="26"> <Files Count="26">
<Item1> <Item1>
<Filename Value="SpkToolbar\spkt_Appearance.pas"/> <Filename Value="SpkToolbar\spkt_Appearance.pas"/>