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

* Sort fields

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-18 11:46:10 +02:00
parent f22dd06ca5
commit 032a7e5066
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -167,6 +167,14 @@ Type
procedure GetValues(Proc: TGetStrProc); override;
end;
{ TDBHTMLElementActionFieldProperty }
TDBHTMLElementActionFieldProperty = Class(TFieldProperty)
procedure FillValues(const Values: TStringList); override;
end;
{ TBSColumnFieldProperty }
TBSColumnFieldProperty = Class(TFieldProperty)
@ -342,6 +350,7 @@ Procedure RegisterPropertyEditors;
begin
RegisterPropertyEditor(TypeInfo(String),THTMLCustomElementAction,'ElementID',TElementIDPropertyEditor);
RegisterPropertyEditor(TypeInfo(String),TDBHTMLInputElementAction,'FieldName',TDBHTMLElementActionFieldProperty);
RegisterPropertyEditor(TypeInfo(String),TCustomHTMLFragment,'HTMLFileName',THTMLFileNamePropertyEditor);
RegisterPropertyEditor(TypeInfo(String),TCustomHTMLFragment,'ParentID',TProjectElementIDPropertyEditor);
RegisterPropertyEditor(TypeInfo(String),TSQLDBRestDataset,'ResourceName',TSQLDBRestResourceNamePropertyEditor);
@ -421,6 +430,19 @@ begin
RegisterRESTHandling;
end;
{ TDBHTMLElementActionFieldProperty }
procedure TDBHTMLElementActionFieldProperty.FillValues(const Values: TStringList
);
Var
Act : TDBHTMLInputElementAction;
begin
Act:=TDBHTMLInputElementAction(GetComponent(0));
if Assigned(Act) and Assigned(Act.DataSource) then
ListDataSourceFields(Act.DataSource,Values)
end;
{ TPas2JSRPCClientComponentEditor }
procedure TPas2JSRPCClientComponentEditor.CreateServiceClient;
@ -759,6 +781,7 @@ begin
aList:=TStringList.Create;
try
IDERestUtils.GetConnectionList(aDataset.Connection,aList);
aList.Sort;
For S in aList do
Proc(S);
finally
@ -786,6 +809,7 @@ begin
aList:=TStringList.Create;
try
IDERestUtils.GetResourceList(aDataset.Connection,aList);
aList.Sort;
For S in aList do
Proc(S);
finally
@ -865,6 +889,8 @@ begin
if ExpandFileName(aHTMLFile)<>aHTMLFile then
begin
aHTMLFile:=IncludeTrailingPathDelimiter(HTMLBaseDir)+aHTMLFile;
if Not FileExists(aHTMLFile) then
aHTMLFile:='';
end;
end;
end;