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

* Add TDBHTMLElementAction

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-12 11:51:00 +01:00
parent 2fe0b62df8
commit 6dea2497f5
4 changed files with 48 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/pas2js/components/frmselecthtmlactions.pas
View File

@ -158,9 +158,9 @@ begin
Result:=THTMLElementAction;
if PreferDB then
if {%H-}IndexText(aEl.TagName,['input','select','textarea'])<>-1 then
begin
Result:=TDBHTMLInputElementAction;
end;
Result:=TDBHTMLInputElementAction
else
Result:=TDBHTMLElementAction;
end;

1
components/pas2js/components/regpas2jscomponents.pas
View File

@ -164,6 +164,7 @@ Procedure RegisterStandardHTMLActions;
begin
RegisterPas2JSAction(THTMLElementAction,rsStandardHTMLAction);
RegisterPas2JSAction(TDBHTMLElementAction,rsDBHTMLAction);
RegisterPas2JSAction(TDBHTMLInputElementAction,rsDBEditHTMLAction);
RegisterPas2JSAction(TDBHTMLButtonElementAction,rsDBButtonHTMLAction);
end;

1
components/pas2js/components/strpas2jscomponents.pas
View File

@ -30,6 +30,7 @@ Resourcestring
rsStandardHTMLAction = 'Standard HTML Element action.';
rsDBEditHTMLAction = 'Standard Data-Aware HTML Element action.';
rsDBHTMLAction = 'Standard Data-Aware HTML read-only Element action.';
rsDBButtonHTMLAction = 'Data-aware HTML button action.';
rsActionListEditorNewAction = 'New Element Action';

55
components/pas2js/components/stubs/stub.data.htmlactions.pp
View File

@ -8,6 +8,7 @@ interface
uses sysutils, classes, Stub.HTMLActions, db;
Type
TDBCustomHTMLElementAction = Class;
TDBCustomHTMLInputElementAction = Class;
TDBCustomHTMLButtonElementAction = Class;
@ -16,20 +17,29 @@ Type
THTMLActionDataLink = class(TDataLink)
private
FFieldName: string;
FAction : TDBCustomHTMLInputElementAction;
FAction : TDBCustomHTMLElementAction;
procedure SetFieldName(AValue: string);
public
constructor Create(aAction : TDBCustomHTMLInputElementAction);
constructor Create(aAction : TDBCustomHTMLElementAction);
property FieldName: string read FFieldName write SetFieldName;
end;
TFieldTextData = Record
Field : TField;
Value : String;
end;
TGetFieldTextEvent = procedure(Sender : TObject; var aData : TFieldTextData) of object;
{ TDBCustomHTMLInputElementAction }
TDBCustomHTMLInputElementAction = class(THTMLCustomElementAction)
{ TDBHTMLCustomElementAction }
TDBCustomHTMLElementAction = class(THTMLCustomElementAction)
Private
FLink : THTMLActionDataLink;
FOnEndEditing: TNotifyEvent;
FOnGetFieldText: TGetFieldTextEvent;
FOnLayoutChanged: TNotifyEvent;
FOnStartEditing: TNotifyEvent;
function GetDataSource: TDatasource;
@ -46,6 +56,28 @@ Type
Property OnStartEditing : TNotifyEvent Read FOnStartEditing Write FOnStartEditing;
Property OnEndEditing : TNotifyEvent Read FOnEndEditing Write FOnEndEditing;
Property OnLayoutChanged : TNotifyEvent Read FOnLayoutChanged Write FOnLayoutChanged;
Property OnGetFieldText : TGetFieldTextEvent Read FOnGetFieldText Write FOnGetFieldText;
end;
TDBHTMLElementAction = class(TDBCustomHTMLElementAction)
Published
Property Events;
Property CustomEvents;
Property ElementID;
Property PreventDefault;
Property StopPropagation;
Property OnExecute;
Property BeforeBind;
Property AfterBind;
Property Datasource;
Property FieldName;
Property OnStartEditing;
Property OnEndEditing;
Property OnLayoutChanged;
Property OnGetFieldText;
end;
TDBCustomHTMLInputElementAction = class(TDBCustomHTMLElementAction)
end;
TDBHTMLInputElementAction = class(TDBCustomHTMLInputElementAction)
@ -63,6 +95,7 @@ Type
Property OnStartEditing;
Property OnEndEditing;
Property OnLayoutChanged;
Property OnGetFieldText;
end;
{ TButtonActionDataLink }
@ -159,37 +192,35 @@ end;
{ TDBCustomHTMLInputElementAction }
function TDBCustomHTMLInputElementAction.GetDataSource: TDatasource;
function TDBCustomHTMLElementAction.GetDataSource: TDatasource;
begin
Result:=Link.DataSource;
end;
function TDBCustomHTMLInputElementAction.GetFieldName: String;
function TDBCustomHTMLElementAction.GetFieldName: String;
begin
Result:=Link.FieldName;
end;
procedure TDBCustomHTMLInputElementAction.SetDatasource(AValue: TDatasource);
procedure TDBCustomHTMLElementAction.SetDatasource(AValue: TDatasource);
begin
if aValue=Link.DataSource then exit;
Link.Datasource:=aValue;
end;
procedure TDBCustomHTMLInputElementAction.SetFieldName(AValue: String);
procedure TDBCustomHTMLElementAction.SetFieldName(AValue: String);
begin
Link.FieldName:=aValue;
end;
constructor TDBCustomHTMLInputElementAction.Create(aOwner: TComponent);
constructor TDBCustomHTMLElementAction.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
FLink:=THTMLActionDataLink.Create(Self);
end;
destructor TDBCustomHTMLInputElementAction.Destroy;
destructor TDBCustomHTMLElementAction.Destroy;
begin
FreeAndNil(FLink);
inherited Destroy;
@ -206,7 +237,7 @@ end;
constructor THTMLActionDataLink.Create(aAction: TDBCustomHTMLInputElementAction);
constructor THTMLActionDataLink.Create(aAction: TDBCustomHTMLElementAction);
begin
Inherited Create;
FAction:=aAction;