pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:collumns editor - default editor for RxDBGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6567 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-07-31 05:59:54 +00:00
parent 712522fcce
commit 7b2b6e168f
1 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/rx/trunk/registerrxdb.pas
View File

@ -63,6 +63,25 @@ type
procedure FillValues(const Values: TStringList); override;
end;
{ TRxDBGridComponentEditor }
TRxDBGridComponentEditor = class(TDBGridComponentEditor)
procedure ExecuteVerb({%H-}Index: Integer); override;
end;
{ TRxDBGridComponentEditor }
procedure TRxDBGridComponentEditor.ExecuteVerb(Index: Integer);
var
Hook: TPropertyEditorHook;
FRxBGrid: TRxDBGrid;
begin
FRxBGrid := GetComponent as TRxDBGrid;
GetHook(Hook);
EditDBGridColumns( FRxBGrid, FRxBGrid.Columns, 'Columns' );
if Assigned(Hook) then Hook.Modified(Self);
end;
{ TRxDBVerticalGridFieldProperty }
procedure TRxDBVerticalGridFieldProperty.FillValues(const Values: TStringList);
@ -211,6 +230,7 @@ begin
//Component Editors
RegisterComponentEditor(TRxMemoryData, TMemDataSetEditor);
RegisterComponentEditor(TRxDBGrid, TRxDBGridComponentEditor);
//
RegisterPropertyEditor(TypeInfo(string), TRxColumn, 'FieldName', TRxDBGridFieldProperty);