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

* Added fitlabel and fmNone

Browse Source 
git-svn-id: trunk@8183 -
This commit is contained in:
joost 2007-07-28 21:49:06 +00:00
parent ceeac6e8e4
commit 07eb623e07
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-web/src/fpdatasetform.pp
View File

@ -36,7 +36,7 @@ type
TFieldCheckEvent = procedure (aField:TField; var check:boolean) of object;
TFormInputType = (fittext,fitpassword,fitcheckbox,fitradio,fitfile,fithidden,
fitproducer,fittextarea,fitrecordselection);
fitproducer,fittextarea,fitrecordselection,fitlabel);
{ TTablePosition }
@ -244,7 +244,7 @@ type
TButtonVerPosition = (bvpTop, bvpBottom);
TButtonVerPositionSet = set of TButtonVerPosition;
TButtonHorPosition = (bhpLeft, bhpCenter, bhpJustify, bhpRight);
TFormMethod = (fmGet, fmPost);
TFormMethod = (fmNone, fmGet, fmPost);
{ THTMLDatasetFormProducer }
@ -734,10 +734,10 @@ begin
end;
function THTMLDatasetFormProducer.StartForm(aWriter: THTMLWriter) : THTMLCustomElement;
const MethodAttribute : array[TFormMethod] of string = ('GET','POST');
const MethodAttribute : array[TFormMethod] of string = ('','GET','POST');
var t : THTMLCustomElement;
begin
if FormAction <> '' then
if Self.FormMethod <> fmNone then
begin
result := aWriter.Startform;
with THTML_Form(result) do
@ -761,7 +761,7 @@ begin
with aWriter do
begin
EndTable;
if FormAction <> '' then
if self.FormMethod <> fmNone then
Endform;
end;
end;
@ -854,6 +854,7 @@ procedure THTMLDatasetFormEditProducer.ControlToTableDef (aControldef : TFormFie
with TableDef.CopyTablePosition(aControlDef.ValuePos) do
begin
case aControlDef.inputtype of
fitlabel,
fittext,
fitpassword,
fitcheckbox,
@ -1099,6 +1100,8 @@ function TTableCell.WriteContent(aWriter: THTMLWriter) : THTMLCustomElement;
aWriter.FormFile(Name, Value);
fithidden :
aWriter.FormHidden (Name, Value);
fitlabel :
aWriter.Text (Value);
end;
end;