1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
{
*****************************************************************************
This file is part of a Lazarus Package, IconFinder.
See the file COPYING.modifiedLGPL.txt, included in the Lazarus distribution,
for details about the license.
*****************************************************************************
Unit for registration of
- new property editors for TGraphic, TImage, TSpeedButton.Glyph, TBitBtn.Glyph
- new component editor for TImageList
- a settings page in the Options form of the IDE for setting up IconFinder.
}
unit IconFinderReg;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
// LCL
Controls, Graphics, Buttons,
// IDEIntf
PropEdits, ComponentEditors, IDEOptEditorIntf,
// IconFinder
ImageListEditorEx, GraphPropEditsEx;
procedure Register;
implementation
{$R iconfinder_ide_img.res}
uses
IconFinderSettings;
procedure Register;
begin
// Register new property editors for TGraphic, TImage, button glyphs
RegisterPropertyEditor(ClassTypeInfo(TGraphic), nil, '', TGraphicPropertyEditorEx);
RegisterPropertyEditor(ClassTypeInfo(TPicture), nil, '', TPicturePropertyEditorEx);
RegisterPropertyEditor(ClassTypeInfo(TBitmap), TSpeedButton, 'Glyph', TButtonGlyphPropEditorEx);
RegisterPropertyEditor(ClassTypeInfo(TBitmap), TBitBtn, 'Glyph', TButtonGlyphPropEditorEx);
// Register new component editor for TImageList
RegisterComponentEditor(TImageList, TImageListComponentEditorEx);
// Register options page in IDE
IconFinderOptionsFrameID := RegisterIDEOptionsEditor(IconFinderOptionsGroup,
TIconFinderSettingsFrame, IconFinderOptionsIndex)^.Index;
end;
end.
|
