dafa0ba164
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8868 8e941d3f-bd1b-0410-a28a-d453659cc2b4
112 lines
3.1 KiB
ObjectPascal
112 lines
3.1 KiB
ObjectPascal
|
|
{-------------------------------------------------------------------------------
|
|
|
|
The contents of this file are subject to the Mozilla Public License
|
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
|
with the License. You may obtain a copy of the License at
|
|
http://www.mozilla.org/MPL/
|
|
|
|
Software distributed under the License is distributed on an "AS IS" basis,
|
|
WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
|
|
the specific language governing rights and limitations under the License.
|
|
|
|
|
|
The Original Code is NiceGridReg.pas released at April 11st, 2003.
|
|
The Original Code is a part of NiceGrid component.
|
|
The Initial Developer of the Original Code is Priyatna.
|
|
(Website: http://www.priyatna.org/ Email: me@priyatna.org)
|
|
All Rights Reserved.
|
|
|
|
|
|
Alternatively, the contents of this file may be used under the terms of the
|
|
GNU General Public License Version 2 or later (the "GPL"), in which case
|
|
the provisions of the GPL are applicable instead of those above.
|
|
If you wish to allow use of your version of this file only under the terms
|
|
of the GPL and not to allow others to use your version of this file
|
|
under the MPL, indicate your decision by deleting the provisions above and
|
|
replace them with the notice and other provisions required by the GPL.
|
|
If you do not delete the provisions above, a recipient may use your version
|
|
of this file under either the MPL or the GPL.
|
|
|
|
-------------------------------------------------------------------------------}
|
|
|
|
|
|
unit NiceGridReg;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE Delphi}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
{$IFDEF FPC}
|
|
{$R nicegrid.res}
|
|
{$ELSE}
|
|
{$R nicegrid.dcr}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
Dialogs, Classes,
|
|
{$IFDEF FPC}
|
|
PropEdits, ComponentEditors,
|
|
{$ELSE}
|
|
DesignIntf, DesignEditors, ColnEdit,
|
|
{$ENDIF}
|
|
NiceGrid;
|
|
|
|
type
|
|
TNiceGridEditor = class(TComponentEditor)
|
|
public
|
|
function GetVerbCount: Integer; override;
|
|
function GetVerb(Index: Integer): string; override;
|
|
procedure ExecuteVerb(Index: Integer); override;
|
|
end;
|
|
|
|
|
|
{ TNiceGridEditor }
|
|
|
|
procedure TNiceGridEditor.ExecuteVerb(Index: Integer);
|
|
begin
|
|
case Index of
|
|
0: {$IFDEF FPC}
|
|
EditCollection(Component, TNiceGrid(Component).Columns, 'Columns');
|
|
{$ELSE}
|
|
ShowCollectionEditorClass(Designer, TCollectionEditor, Component,
|
|
TNiceGrid(Component).Columns, 'Columns', [coAdd, coDelete, coMove]);
|
|
{$ENDIF}
|
|
1: ShowMessage(
|
|
'TNiceGrid v 1.00 (Mozilla Public License)'#13 +
|
|
'(c) Priyatna, 2003'#13 +
|
|
'Bandung - Indonesia'#13 +
|
|
'http://www.priyatna.org/'#13 +
|
|
'mailto:me@priyatna.org'
|
|
);
|
|
end;
|
|
end;
|
|
|
|
function TNiceGridEditor.GetVerb(Index: Integer): string;
|
|
begin
|
|
case Index of
|
|
0: Result := 'Edit Columns ...';
|
|
1: Result := 'About';
|
|
end;
|
|
end;
|
|
|
|
function TNiceGridEditor.GetVerbCount: Integer;
|
|
begin
|
|
Result := 2;
|
|
end;
|
|
|
|
procedure Register;
|
|
begin
|
|
RegisterComponents('priyatna.org', [TNiceGrid, TNiceGridSync]);
|
|
RegisterComponentEditor(TNiceGrid, TNiceGridEditor);
|
|
RegisterComponentEditor(TNiceGridSync, TNiceGridEditor);
|
|
end;
|
|
|
|
end.
|