Fix mime-type and improvements to demos and registration in IDE

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2451 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-06-06 01:29:36 +00:00
parent 54716119b3
commit ca54a2935b
7 changed files with 2435 additions and 2902 deletions

View File

@ -50,24 +50,36 @@
<Unit1>
<Filename Value="Unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form2"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<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"/>
<StripSymbols Value="True"/>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>

File diff suppressed because it is too large Load Diff

View File

@ -53,7 +53,6 @@ type
SpkSmallButton11: TSpkSmallButton;
SpkSmallButton12: TSpkSmallButton;
SpkSmallButton13: TSpkSmallButton;
Button1: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }

View File

@ -14,7 +14,7 @@ object frmEditWindow: TfrmEditWindow
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object tvStructure: TTreeView
Left = 0
Height = 346
@ -29,6 +29,7 @@ object frmEditWindow: TfrmEditWindow
RightClickSelect = True
TabOrder = 0
OnChange = tvStructureChange
OnDeletion = tvStructureDeletion
OnEdited = tvStructureEdited
OnKeyDown = tvStructureKeyDown
Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
@ -112,7 +113,7 @@ object frmEditWindow: TfrmEditWindow
end
end
object ilTreeImages: TImageList
left = 8
left = 56
top = 32
Bitmap = {
4C69030000001000000010000000000000000000000000000000000000000000
@ -215,8 +216,8 @@ object frmEditWindow: TfrmEditWindow
}
end
object ilActionImages: TImageList
left = 40
top = 32
left = 56
top = 96
Bitmap = {
4C69080000001000000010000000000000000000000000000000000000000235
CCFF000000000000000000000000000000000000000000000000000000000000
@ -479,7 +480,7 @@ object frmEditWindow: TfrmEditWindow
end
object ActionList1: TActionList
Images = ilActionImages
left = 72
left = 192
top = 32
object aAddTab: TAction
Caption = 'Add tab'
@ -517,6 +518,18 @@ object frmEditWindow: TfrmEditWindow
ImageIndex = 4
OnExecute = aAddLargeButtonExecute
end
object aAddCheckbox: TAction
Caption = 'SpkCheckbox'
Hint = 'Add SpkCheckbox'
ImageIndex = 4
OnExecute = aAddCheckboxExecute
end
object aAddRadioButton: TAction
Caption = 'SpkRadioButton'
Hint = 'Add SpkRadioButton'
ImageIndex = 4
OnExecute = aAddRadioButtonExecute
end
object aRemoveItem: TAction
Caption = 'Remove item'
Hint = 'Remove item'
@ -537,19 +550,25 @@ object frmEditWindow: TfrmEditWindow
end
end
object pmAddItem: TPopupMenu
left = 8
top = 64
left = 144
top = 160
object SpkLargeButton1: TMenuItem
Action = aAddLargeButton
end
object SpkSmallButton1: TMenuItem
Action = aAddSmallButton
end
object MenuItem3: TMenuItem
Action = aAddCheckbox
end
object MenuItem4: TMenuItem
Action = aAddRadioButton
end
end
object pmStructure: TPopupMenu
Images = ilActionImages
left = 40
top = 64
left = 144
top = 216
object Addtab1: TMenuItem
Action = aAddTab
Bitmap.Data = {
@ -792,6 +811,84 @@ object frmEditWindow: TfrmEditWindow
0000000000000000000000000000000000000000000000000000
}
end
object MenuItem1: TMenuItem
Action = aAddCheckbox
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000B7916BFFB7916BFFB7916BFFB7916BFFB7916BFFB7916BFFB791
6BFFB7916BFFB7916BFFB7916BFF000000000000000000000000000000000000
0000B7916BFFFFEDDFFFFFEDDFFFFFEDDFFFFFEDDFFFFFEDDFFFFFEDDFFFFFED
DFFFFFEDDFFFFFEDDFFFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFFFFEDDFFFF1C9A2FFF0CAA1FFF1C9A2FFF0C9A1FFF0C9A2FFF1C9
A1FFF0CAA1FFF1C9A1FFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFFFFEDDFFFEEC49CFFEEC49CFFEEC59CFFEEC49BFFEEC49BFFEEC4
9BFFEEC49BFFEFC49CFFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFFFFEDDFFF0235CCFFEBBF96FFEBBF96FFECBF96FFECBF96FFEBBF
96FFECBF95FFECBF96FFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFFFFEDDFFF0235CCFFE9BA90FFE9BA91FFE9BA91FFE9BA90FFE9BA
90FFE9BA90FFE9BA90FFFFEDDFFFB7916BFF0000000000000000000000000468
FFFFB7916BFFFFEDDFFF0235CCFFE6B58AFFE7B48AFF0436CDFFE6B58BFFE6B5
8AFFE7B58BFFE7B58AFFFFEDDFFFB7916BFF0000000000000000000000000000
00000436CDFFFFEDDFFF0235CCFFE4B085FF0267FFFFE4B085FFE4B085FFE4AF
85FFE4AF85FFE4B085FFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFF0267FFFF0235CCFF0267FFFFE2AC81FFE2AC81FFE2AC81FFE1AC
80FFE2AC81FFE2AC81FFFFEDDFFFB7916BFF0000000000000000000000000235
CCFF0235CCFF0033CCFF33CCFFFF0234CCFF0234CCFF0234CCFFE7B68CFFE7B6
8CFFE7B68CFFE7B68CFFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFF0267FFFF0235CCFF0267FFFFE9BA91FFE9BA91FFE9BA91FFE9BA
91FFE9BA91FFE9BA91FFFFEDDFFFB7916BFF0000000000000000000000000000
00000468FFFFFFEDDFFF0235CCFFEEC49BFF0468FFFFEEC49BFFEEC49BFFEEC4
9BFFEEC49BFFEEC49BFFFFEDDFFFB7916BFF0000000000000000000000000436
CDFFB7916BFFFFEDDFFF0235CCFFFFEDDFFFFFEDDFFF0436CDFFFFEDDFFFFFED
DFFFFFEDDFFFFFEDDFFFFFEDDFFFB7916BFF0000000000000000000000000000
000000000000B7916BFF0235CCFFB7916BFFB7916BFFB7916BFFB7916BFFB791
6BFFB7916BFFB7916BFFB7916BFF000000000000000000000000000000000000
000000000000000000000235CCFF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
end
object MenuItem2: TMenuItem
Action = aAddRadioButton
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000B7916BFFB7916BFFB7916BFFB7916BFFB7916BFFB7916BFFB791
6BFFB7916BFFB7916BFFB7916BFF000000000000000000000000000000000000
0000B7916BFFFFEDDFFFFFEDDFFFFFEDDFFFFFEDDFFFFFEDDFFFFFEDDFFFFFED
DFFFFFEDDFFFFFEDDFFFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFFFFEDDFFFF1C9A2FFF0CAA1FFF1C9A2FFF0C9A1FFF0C9A2FFF1C9
A1FFF0CAA1FFF1C9A1FFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFFFFEDDFFFEEC49CFFEEC49CFFEEC59CFFEEC49BFFEEC49BFFEEC4
9BFFEEC49BFFEFC49CFFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFFFFEDDFFF0235CCFFEBBF96FFEBBF96FFECBF96FFECBF96FFEBBF
96FFECBF95FFECBF96FFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFFFFEDDFFF0235CCFFE9BA90FFE9BA91FFE9BA91FFE9BA90FFE9BA
90FFE9BA90FFE9BA90FFFFEDDFFFB7916BFF0000000000000000000000000468
FFFFB7916BFFFFEDDFFF0235CCFFE6B58AFFE7B48AFF0436CDFFE6B58BFFE6B5
8AFFE7B58BFFE7B58AFFFFEDDFFFB7916BFF0000000000000000000000000000
00000436CDFFFFEDDFFF0235CCFFE4B085FF0267FFFFE4B085FFE4B085FFE4AF
85FFE4AF85FFE4B085FFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFF0267FFFF0235CCFF0267FFFFE2AC81FFE2AC81FFE2AC81FFE1AC
80FFE2AC81FFE2AC81FFFFEDDFFFB7916BFF0000000000000000000000000235
CCFF0235CCFF0033CCFF33CCFFFF0234CCFF0234CCFF0234CCFFE7B68CFFE7B6
8CFFE7B68CFFE7B68CFFFFEDDFFFB7916BFF0000000000000000000000000000
0000B7916BFF0267FFFF0235CCFF0267FFFFE9BA91FFE9BA91FFE9BA91FFE9BA
91FFE9BA91FFE9BA91FFFFEDDFFFB7916BFF0000000000000000000000000000
00000468FFFFFFEDDFFF0235CCFFEEC49BFF0468FFFFEEC49BFFEEC49BFFEEC4
9BFFEEC49BFFEEC49BFFFFEDDFFFB7916BFF0000000000000000000000000436
CDFFB7916BFFFFEDDFFF0235CCFFFFEDDFFFFFEDDFFF0436CDFFFFEDDFFFFFED
DFFFFFEDDFFFFFEDDFFFFFEDDFFFB7916BFF0000000000000000000000000000
000000000000B7916BFF0235CCFFB7916BFFB7916BFFB7916BFFB7916BFFB791
6BFFB7916BFFB7916BFFB7916BFF000000000000000000000000000000000000
000000000000000000000235CCFF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
end
end
object Removeitem1: TMenuItem
Action = aRemoveItem

View File

@ -6,12 +6,16 @@ interface
uses
Classes, SysUtils, LazarusPackageIntf, SpkToolbar, PropEdits, ComponentEditors,
SpkToolbarEditor, spkt_Buttons, spkt_Pane, spkt_Tab, spkt_Appearance;
SpkToolbarEditor, spkt_Buttons, spkt_Checkboxes, spkt_Pane, spkt_Tab, spkt_Appearance,
LResources;
procedure Register;
implementation
uses
ImgList;
procedure RegisterUnitSpkToolbar;
begin
RegisterComponents('SpkToolbar', [TSpkToolbar]);
@ -22,6 +26,11 @@ begin
RegisterNoIcon([TSpkLargeButton, TSpkSmallButton]);
end;
procedure RegisterUnitSpkt_Checkboxes;
begin
RegisterNoIcon([TSpkCheckbox, TSpkRadioButton]);
end;
procedure RegisterUnitSpkt_Pane;
begin
RegisterNoIcon([TSpkPane]);
@ -36,14 +45,22 @@ procedure Register;
begin
RegisterUnit('SpkToolbar', @RegisterUnitSpkToolbar);
RegisterUnit('spkt_Buttons', @RegisterUnitSpkt_Buttons);
RegisterUnit('spkt_Checkboxes', @RegisterUnitSpkt_Checkboxes);
RegisterUnit('spkt_Pane', @RegisterUnitSpkt_Pane);
RegisterUnit('spkt_Tab', @RegisterUnitSpkt_Tab);
RegisterComponentEditor(TSpkToolbar, TSpkToolbarEditor);
RegisterPropertyEditor(TypeInfo(TSpkToolbarAppearance), TSpkToolbar,
'Appearance', TSpkToolbarAppearanceEditor);
RegisterPropertyEditor(TypeInfo(TImageIndex), TSpkLargeButton, '',
TSpkImageIndexPropertyEditor);
RegisterPropertyEditor(TypeInfo(TImageIndex), TSpkSmallButton, '',
TSpkImageIndexPropertyEditor);
//todo: register Caption Editor
end;
initialization
{$I SpkToolbar.lrs}
end.

View File

@ -5,9 +5,10 @@
<Name Value="SpkToolbarPackage"/>
<Author Value="Spook. Ported to Lazarus/LCL by Luiz Américo"/>
<CompilerOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="SpkToolbar;designtime"/>
<OtherUnitFiles Value="SpkToolbar;SpkMath;SpkGUITools;SpkGraphTools;SpkXML;designtime"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
@ -21,7 +22,7 @@
<Description Value="Ribbon like toolbar"/>
<License Value="Modified LGPL"/>
<Version Minor="1"/>
<Files Count="24">
<Files Count="26">
<Item1>
<Filename Value="SpkToolbar\spkt_Appearance.pas"/>
<UnitName Value="spkt_Appearance"/>
@ -76,7 +77,7 @@
</Item13>
<Item14>
<Filename Value="SpkGUITools\SpkGUITools.pas"/>
<UnitName Value="SpkGuiTools"/>
<UnitName Value="SpkGUITools"/>
</Item14>
<Item15>
<Filename Value="SpkGraphTools\SpkGraphTools.pas"/>
@ -119,6 +120,14 @@
<Filename Value="designtime\spkte_EditWindow.pas"/>
<UnitName Value="spkte_EditWindow"/>
</Item24>
<Item25>
<Filename Value="SpkToolbar\spkt_Checkboxes.pas"/>
<UnitName Value="spkt_Checkboxes"/>
</Item25>
<Item26>
<Filename Value="designtime\SpkToolbar.lrs"/>
<Type Value="LRS"/>
</Item26>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
@ -135,5 +144,8 @@
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<CustomOptions Items="ExternHelp" Version="2">
<_ExternHelp Items="Count"/>
</CustomOptions>
</Package>
</CONFIG>

View File

@ -2,7 +2,7 @@
This source is only used to compile and install the package.
}
unit SpkToolbarPackage;
unit SpkToolbarPackage;
interface
@ -11,15 +11,15 @@ uses
spkt_Exceptions, spkt_Items, spkt_Pane, spkt_Tab, spkt_Tools, spkt_Types,
SpkToolbar, SpkMath, SpkGUITools, SpkGraphTools, SpkXMLIni, SpkXMLParser,
SpkXMLTools, RegisterSpkToolbar, SpkToolbarEditor, spkte_AppearanceEditor,
spkte_EditWindow, LazarusPackageIntf;
spkte_EditWindow, spkt_Checkboxes, LazarusPackageIntf;
implementation
procedure Register;
procedure Register;
begin
RegisterUnit('RegisterSpkToolbar', @RegisterSpkToolbar.Register);
end;
RegisterUnit('RegisterSpkToolbar', @RegisterSpkToolbar.Register);
end;
initialization
RegisterPackage('SpkToolbarPackage', @Register);
RegisterPackage('SpkToolbarPackage', @Register);
end.