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

pas2js: less hints

Browse Source
This commit is contained in:
mattias 2024-01-27 10:22:59 +01:00
parent 94547e3f9a
commit 2734600c27
5 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/pas2js/components/bootstrapformgen.pas
View File

@ -28,7 +28,6 @@ Type
TBootstrapFormGenerator = class(TDataFormGenerator)
private
FBottomMargin: Integer;
FEditlColWidth: Integer;
FHorizontalForm: Boolean;
FLabelColWidth: Integer;
FUseInputGroup: Boolean;
@ -86,12 +85,14 @@ begin
S:='mb-'+IntToStr(FBottomMargin);
Result:=Result+Indent+Format('<div class="row %s">',[S])+LF;
IncIndent;
if aEntry=nil then ;
end;
function TBootstrapFormGenerator.GetRowColEnd(aEntry: TDataFieldEntryItem): String;
begin
Decindent;
Result:=Indent+'</div> <!-- .row -->'+Lf;
if aEntry=nil then ;
end;
constructor TBootstrapFormGenerator.Create(aOwner: TComponent);
@ -175,12 +176,14 @@ function TBootstrapFormGenerator.GetInputGroup(aEntry : TDataFieldEntryItem): St
begin
Result:=Indent+'<div class="input-group">'+LF;
IncIndent;
if aEntry=nil then ;
end;
function TBootstrapFormGenerator.GetInputGroupEnd(aEntry : TDataFieldEntryItem): String;
begin
DecIndent;
Result:=Indent+'</div> <!-- .input-group -->'+LF;
if aEntry=nil then ;
end;
function TBootstrapFormGenerator.GenerateFieldHTML(aEntry: TDataFieldEntryItem): String;

5
components/pas2js/components/frmaddmissingtablecolumns.pas
View File

@ -5,7 +5,7 @@ unit frmaddmissingtablecolumns;
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ButtonPanel, ExtCtrls, ValEdit, Grids, StdCtrls,
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ButtonPanel, ExtCtrls, Grids, StdCtrls,
db, types, stub.bootstraptablewidget;
type
@ -236,7 +236,7 @@ begin
For I:=1 to SGFields.RowCount-1 do
if SGFields.Cells[idxAdd,I]='1' then
Inc(Count);
SetLength(Result,Count);
SetLength(Result{%H-},Count);
Count:=0;
For I:=1 to SGFields.RowCount-1 do
if SGFields.Cells[idxAdd,I]='1' then
@ -311,7 +311,6 @@ end;
class function TAddMissingTableColumsForm.GetFieldProps(aTable: TDBBootstrapTableWidget; const aFieldName : String; out aProps: TFieldProps): Boolean;
var
DS : TDataset;
I : Integer;
FD : TFieldDef;
F : TField;

2
components/pas2js/components/frmhtmlactionseditor.pas
View File

@ -136,7 +136,7 @@ var
begin
aComp:=aComp.Owner;
aCount:=0;
SetLength(Result,aComp.ComponentCount);
SetLength(Result{%H-},aComp.ComponentCount);
For I:=0 to aComp.ComponentCount-1 do
if aComp.Components[i] is TDatasource then
begin

8
components/pas2js/components/pas2jscompedits.pas
View File

@ -5,10 +5,10 @@ unit pas2jscompedits;
interface
uses
Classes, SysUtils, ProjectIntf, PropEdits, ComponentEditors, fpjsondataset, dbpropedits,
db, stub.htmlfragment, stub.htmlactions, stub.data.htmlactions, stub.restdataset,
Classes, SysUtils, ProjectIntf, PropEdits, ComponentEditors, dbpropedits,
db, stub.htmlactions, stub.data.htmlactions, stub.restdataset,
stub.webwidget, stub.bootstrapwidgets, stub.bootstraptablewidget, stub.bulmawidgets,
stub.templateloader, stub.jsondataset, stub.dbwebwidget, stub.dbhtmlwidgets,
stub.templateloader, stub.dbhtmlwidgets,
stub.fprpcclient;
Type
@ -204,7 +204,7 @@ implementation
uses
// LCL/Lazarus
Types, IDEWindowIntf, controls, forms, dialogs, formeditingintf, lazideintf, idemsgintf, IDEExternToolIntf, Menuintf,
Types, IDEWindowIntf, controls, forms, dialogs, formeditingintf, lazideintf, IDEExternToolIntf, Menuintf,
idehtmltools,
frmHTMLActionsEditor, strpas2jscomponents, pas2jsrestutils, pas2jsrestcmd, frmpas2jsedithtml, p2jselementactions,
frmcreaterpcserviceclient, frmaddmissingtablecolumns;

2
components/pas2js/components/stubs/stub.fprpcclient.pp
View File

@ -190,8 +190,6 @@ Type
implementation
uses stub.web;
{ TRPCCustomService }
procedure TRPCCustomService.SetClient(AValue: TRPCClient);