babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
spktoolbar/demos/basic/Project1.lpi Normal file
View File

@@ -0,0 +1,98 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</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>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="SpkToolbarPackage"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="Project1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="Unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form2"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="bin\project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<SmartLinkUnit Value="True"/>
<Optimizations>
<OptimizationLevel Value="2"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

16
spktoolbar/demos/basic/Project1.lpr Normal file
View File

@@ -0,0 +1,16 @@
program Project1;
{$MODE Delphi}
uses
Forms, Interfaces,
Unit1 in 'Unit1.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
// Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm2, Form2);
Application.Run;
end.

2979
spktoolbar/demos/basic/Unit1.lfm Normal file
View File

File diff suppressed because it is too large Load Diff

116
spktoolbar/demos/basic/Unit1.pas Normal file
View File

@@ -0,0 +1,116 @@
unit Unit1;
{$MODE Delphi}
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, {ButtonGroup,} Menus, spkt_Types,
spkt_Tools, ImgList, spkt_BaseItem, spkt_Buttons;
type
TForm2 = class(TForm)
ActionList1: TActionList;
Action1: TAction;
PopupMenu1: TPopupMenu;
LargeImages: TImageList;
Images: TImageList;
SpkToolbar1: TSpkToolbar;
SpkTab1: TSpkTab;
CUsersSpookDokumenty1: TMenuItem;
DDokumenty1: TMenuItem;
SpkPane2: TSpkPane;
SpkSmallButton2: TSpkSmallButton;
SpkSmallButton3: TSpkSmallButton;
SpkSmallButton4: TSpkSmallButton;
SpkLargeButton4: TSpkLargeButton;
SpkPane3: TSpkPane;
SpkSmallButton1: TSpkSmallButton;
SpkSmallButton5: TSpkSmallButton;
SpkSmallButton6: TSpkSmallButton;
SpkSmallButton7: TSpkSmallButton;
SpkSmallButton8: TSpkSmallButton;
SpkPane4: TSpkPane;
SpkSmallButton10: TSpkSmallButton;
SpkLargeButton5: TSpkLargeButton;
SpkSmallButton9: TSpkSmallButton;
SpkTab2: TSpkTab;
SpkPane5: TSpkPane;
SpkLargeButton6: TSpkLargeButton;
SpkLargeButton7: TSpkLargeButton;
SpkLargeButton8: TSpkLargeButton;
PopupMenu2: TPopupMenu;
Recent11: TMenuItem;
Recent21: TMenuItem;
Recent31: TMenuItem;
SpkPane1: TSpkPane;
SpkLargeButton1: TSpkLargeButton;
SpkLargeButton2: TSpkLargeButton;
SpkLargeButton3: TSpkLargeButton;
SpkPane6: TSpkPane;
SpkSmallButton11: TSpkSmallButton;
SpkSmallButton12: TSpkSmallButton;
SpkSmallButton13: TSpkSmallButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.lfm}
procedure TForm2.Button2Click(Sender: TObject);
var i,j,k : integer;
Item : TSpkSmallButton;
Pane : TSpkPane;
Tab : TSpkTab;
begin
SpkToolbar1.BeginUpdate;
for i := 0 to 20 do
Tab:=SpkToolbar1.Tabs.add;
for k := 0 to 6 do
begin
Pane:=SpkTab1.Panes.Add;
for j := 0 to 2 do
begin
Item:=Pane.Items.AddSmallButton;
Item.TableBehaviour:=tbBeginsRow;
//Item.GroupBehaviour:=gbBeginsGroup;
Item.ShowCaption:=false;
Item.ImageIndex:=random(50);
//Item.DropdownMenu:=PopupMenu1;
for i := 0 to 4 do
begin
Item:=Pane.Items.AddSmallButton;
Item.ShowCaption:=false;
Item.ImageIndex:=random(50);
//Item.GroupBehaviour:=gbContinuesGroup;
//Item.DropdownMenu:=PopupMenu1;
end;
Item:=Pane.Items.AddSmallButton;
Item.TableBehaviour:=tbContinuesRow;
//Item.GroupBehaviour:=gbEndsGroup;
Item.ShowCaption:=false;
Item.ImageIndex:=random(50);
//Item.DropdownMenu:=PopupMenu1;
end;
end;
SpkToolbar1.EndUpdate;
end;
end.