paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 15:58:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

MemDS: added a standard command for editing dataset fields to component's context menu (patch from Aleksey, issue #39823)

Browse Source
This commit is contained in:
Maxim Ganetsky 2022-07-16 00:49:32 +03:00
parent e47c69672b
commit 54c3d26553
1 changed files with 39 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
components/memds/frmselectdataset.pp
View File

@ -20,9 +20,15 @@ uses
StdCtrls, Buttons, MemDS, ComponentEditors, PropEdits, LazarusPackageIntf;
Type
{ TMemDatasetEditor }
TMemDatasetEditor = Class(TComponentEditor)
FStartIndex : Integer;
private
DefaultEditor: TBaseComponentEditor;
Public
constructor Create(AComponent: TComponent; ADesigner: TComponentEditorDesigner); override;
destructor Destroy; override;
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
@ -84,33 +90,57 @@ end;
{ TMemDatasetEditor }
constructor TMemDatasetEditor.Create(AComponent: TComponent;
ADesigner: TComponentEditorDesigner);
var
CompClass: TClass;
begin
inherited Create(AComponent, ADesigner);
CompClass := PClass(Acomponent)^;
try
PClass(AComponent)^ := TDataSet;
DefaultEditor := GetComponentEditor(AComponent, ADesigner);
finally
PClass(AComponent)^ := CompClass;
end;
end;
destructor TMemDatasetEditor.Destroy;
begin
DefaultEditor.Free;
inherited Destroy;
end;
procedure TMemDatasetEditor.ExecuteVerb(Index: Integer);
begin
If Index<FStartIndex then
inherited ExecuteVerb(Index)
if Index < DefaultEditor.GetVerbCount then
DefaultEditor.ExecuteVerb(Index)
else
case (Index-FstartIndex) of
begin
case Index - DefaultEditor.GetVerbCount of
0 : CreateTable;
1 : CopyDataset;
end;
end;
end;
function TMemDatasetEditor.GetVerb(Index: Integer): string;
begin
If Index<FStartIndex then
Result:=inherited GetVerb(Index)
if Index < DefaultEditor.GetVerbCount then
Result := DefaultEditor.GetVerb(Index)
else
case (Index-FstartIndex) of
begin
case Index - DefaultEditor.GetVerbCount of
0 : Result:=SMenuCreateDataset;
1 : Result:=SMenuCopyDataset;
end;
end;
end;
function TMemDatasetEditor.GetVerbCount: Integer;
begin
FStartIndex:=inherited GetVerbCount;
Result:=FStartIndex+2;
Result:=DefaultEditor.GetVerbCount + 2;
end;
function TMemDatasetEditor.GetMemDataset: TMemDataset;