paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 23:27:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add disabled property to TButtonWidget

Browse Source
This commit is contained in:
Luca Olivetti 2022-09-29 20:37:05 +02:00
parent 4ea009cf53
commit 80e261c379
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/webwidget/htmlwidgets.pp
View File

@ -32,10 +32,13 @@ Type
private
FText: String;
FTextMode: TTextMode;
FDisabled: boolean;
procedure SetText(AValue: String);
procedure SetTextMode(AValue: TTextMode);
procedure SetDisabled(AValue: boolean);
Protected
procedure ApplyText(aElement: TJSHTMLElement);
procedure ApplyDisabled(aElement: TJSHTMLElement);
Procedure SetName(const NewName: TComponentName); override;
Procedure ApplyWidgetSettings(aElement: TJSHTMLElement); override;
Public
@ -44,6 +47,7 @@ Type
Published
Property Text : String Read FText Write SetText;
Property TextMode : TTextMode Read FTextMode Write SetTextMode;
Property Disabled : boolean Read FDisabled Write SetDisabled;
end;
{ TViewPort }
@ -2939,6 +2943,14 @@ begin
ApplyText(Element)
end;
procedure TButtonWidget.SetDisabled(AValue: boolean);
begin
if FDisabled=AValue then Exit;
FDisabled:=AValue;
if IsRendered then
ApplyDisabled(Element);
end;
procedure TButtonWidget.SetName(const NewName: TComponentName);
@ -2961,6 +2973,7 @@ procedure TButtonWidget.ApplyWidgetSettings(aElement: TJSHTMLElement);
begin
Inherited;
ApplyText(aElement);
ApplyDisabled(aElement);
end;
Procedure TButtonWidget.ApplyText(aElement : TJSHTMLElement);
@ -2972,6 +2985,11 @@ begin
aElement.InnerHTML:=FText;
end;
procedure TButtonWidget.ApplyDisabled(aElement : TJSHTMLElement);
begin
TJSHTMLButtonElement(aElement).disabled:=FDisabled;
end;
procedure TButtonWidget.Click;
begin