Last change
on this file since 1569 was 672, checked in by Kevin Toppenberg, 15 years ago |
Adding source to tntControls for compilation
|
File size:
1.6 KB
|
Rev | Line | |
---|
[672] | 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.