Last change
on this file since 729 was 672, checked in by Kevin Toppenberg, 15 years ago |
Adding source to tntControls for compilation
|
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 |
|
---|
12 | unit TntDBGrids_Design;
|
---|
13 |
|
---|
14 | {$INCLUDE ..\Source\TntCompilers.inc}
|
---|
15 |
|
---|
16 | interface
|
---|
17 |
|
---|
18 | uses
|
---|
19 | DesignEditors, DesignIntf;
|
---|
20 |
|
---|
21 | type
|
---|
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 |
|
---|
29 | procedure Register;
|
---|
30 |
|
---|
31 | implementation
|
---|
32 |
|
---|
33 | uses
|
---|
34 | TntDBGrids, DsnDBCst, TntDesignEditors_Design;
|
---|
35 |
|
---|
36 | procedure Register;
|
---|
37 | begin
|
---|
38 | RegisterComponentEditor(TTntDBGrid, TTntDBGridEditor);
|
---|
39 | end;
|
---|
40 |
|
---|
41 | { TTntDBGridEditor }
|
---|
42 |
|
---|
43 | function TTntDBGridEditor.GetVerbCount: Integer;
|
---|
44 | begin
|
---|
45 | Result := 1;
|
---|
46 | end;
|
---|
47 |
|
---|
48 | function TTntDBGridEditor.GetVerb(Index: Integer): string{TNT-ALLOW string};
|
---|
49 | begin
|
---|
50 | Result := DsnDBCst.SDBGridColEditor;
|
---|
51 | end;
|
---|
52 |
|
---|
53 | procedure TTntDBGridEditor.ExecuteVerb(Index: Integer);
|
---|
54 | begin
|
---|
55 | EditPropertyWithDialog(Component, 'Columns', Designer);
|
---|
56 | end;
|
---|
57 |
|
---|
58 | end.
|
---|
Note:
See
TracBrowser
for help on using the repository browser.