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

* added demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1708 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-06-18 18:10:07 +00:00
parent 820299b4eb
commit 64c51abbd6
6 changed files with 3902 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/spktoolbar/demos/basic/Project1.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

97
components/spktoolbar/demos/basic/Project1.lpi Normal file
View File

@ -0,0 +1,97 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<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>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<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"/>
<HasResources Value="True"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<Optimizations>
<OptimizationLevel Value="2"/>
</Optimizations>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

16
components/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.

BIN
components/spktoolbar/demos/basic/Project1.res Normal file
View File

Binary file not shown.

3672
components/spktoolbar/demos/basic/Unit1.lfm Normal file
View File

File diff suppressed because it is too large Load Diff

117
components/spktoolbar/demos/basic/Unit1.pas Normal file
View File

@ -0,0 +1,117 @@
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;
Button1: TButton;
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.