paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, added dbgrid columns component editor at design time, from Leslie Kaye, issue #12941

Browse Source 
git-svn-id: trunk@18224 -
This commit is contained in:
jesus 2009-01-09 17:00:13 +00:00
parent 3a48aa228b
commit 530feb4ea2
1 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
ideintf/dbpropedits.pas
View File

@ -23,7 +23,8 @@ unit DBPropEdits;
interface
uses
Classes, PropEdits, Componenteditors, TypInfo, DB, SysUtils, DBGrids;
Classes, ObjInspStrConsts, PropEdits, Componenteditors, TypInfo, DB, SysUtils,
DBGrids;
type
TFieldProperty = class(TStringPropertyEditor)
@ -38,6 +39,15 @@ type
procedure FillValues(const Values: TStringList); override;
end;
{ TDBGridComponentEditor }
TDBGridComponentEditor = class(TComponentEditor)
public
function GetVerbCount: Integer; override;
function GetVerb(Index: Integer): string; override;
procedure ExecuteVerb(Index: Integer); override;
end;
implementation
{ TFieldProperty }
@ -87,9 +97,33 @@ begin
DataSource.DataSet.GetFieldNames(Values);
end;
{ TDBGridComponentEditor }
function TDBGridComponentEditor.GetVerbCount: Integer;
begin
Result:= 1;
end;
function TDBGridComponentEditor.GetVerb(Index: Integer): string;
begin
Result:= sccsLvColEdt;
end;
procedure TDBGridComponentEditor.ExecuteVerb(Index: Integer);
var
Hook: TPropertyEditorHook;
DBGrid: TDBGrid;
begin
DBGrid := GetComponent as TDBGrid;
GetHook(Hook);
EditCollection(DBGrid, DBGrid.Columns, 'Columns');
if Assigned(Hook) then Hook.Modified(Self);
end;
initialization
RegisterPropertyEditor(TypeInfo(string), TComponent, 'DataField', TFieldProperty);
RegisterPropertyEditor(TypeInfo(string), TColumn, 'FieldName', TDBGridFieldProperty);
RegisterComponentEditor(TDBGrid,TDBGridComponentEditor);
end.