mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 12:56:08 +02:00
* Use the Action form a control as a Link in a THTMLDatasetFormGridProducer
git-svn-id: trunk@8106 -
This commit is contained in:
parent
ca6ce14767
commit
4c5d8a9c79
@ -1006,6 +1006,8 @@ procedure THTMLDatasetFormGridProducer.ControlToTableDef (aControldef : TFormFie
|
|||||||
CellType := ctLabel;
|
CellType := ctLabel;
|
||||||
IsLabel := false;
|
IsLabel := false;
|
||||||
Value := aControlDef.FField.asstring;
|
Value := aControlDef.FField.asstring;
|
||||||
|
if aControldef.Action <> '' then
|
||||||
|
Link := Format(aControldef.Action,[value]);
|
||||||
if not FSeparateLabel and not FIncludeHeader then
|
if not FSeparateLabel and not FIncludeHeader then
|
||||||
begin
|
begin
|
||||||
Caption := aControldef.LabelCaption;
|
Caption := aControldef.LabelCaption;
|
||||||
|
Loading…
Reference in New Issue
Block a user