source: cprs/branches/tmg-cprs/TntWare/Delphi Unicode Controls/Design/TntDBGrids_Design.pas@ 1806

Last change on this file since 1806 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.6 KB
Line 
1
2{*****************************************************************************}
3{ }
4{ Tnt Delphi Unicode Controls }
5{ http://www.tntware.com/delphicontrols/unicode/ }
6{ Version: 2.3.0 }
7{ }
8{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
9{ }
10{*****************************************************************************}
11
12unit TntDBGrids_Design;
13
14{$INCLUDE ..\Source\TntCompilers.inc}
15
16interface
17
18uses
19 DesignEditors, DesignIntf;
20
21type
22 TTntDBGridEditor = class(TComponentEditor)
23 public
24 procedure ExecuteVerb(Index: Integer); override;
25 function GetVerb(Index: Integer): string{TNT-ALLOW string}; override;
26 function GetVerbCount: Integer; override;
27 end;
28
29procedure Register;
30
31implementation
32
33uses
34 TntDBGrids, DsnDBCst, TntDesignEditors_Design;
35
36procedure Register;
37begin
38 RegisterComponentEditor(TTntDBGrid, TTntDBGridEditor);
39end;
40
41{ TTntDBGridEditor }
42
43function TTntDBGridEditor.GetVerbCount: Integer;
44begin
45 Result := 1;
46end;
47
48function TTntDBGridEditor.GetVerb(Index: Integer): string{TNT-ALLOW string};
49begin
50 Result := DsnDBCst.SDBGridColEditor;
51end;
52
53procedure TTntDBGridEditor.ExecuteVerb(Index: Integer);
54begin
55 EditPropertyWithDialog(Component, 'Columns', Designer);
56end;
57
58end.
Note: See TracBrowser for help on using the repository browser.