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"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>

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

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

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

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

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

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

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

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

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

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

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

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

2
components/spktoolbar/spktoolbarpackage.lpk
View File

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