paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 11:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not use case with strings, older compilers do not support it

Browse Source 
git-svn-id: trunk@14862 -
This commit is contained in:
michael 2010-02-04 20:27:32 +00:00
parent e3c5ce04ec
commit 09109e5bf9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-web/src/webpage.pp
View File

@ -495,10 +495,10 @@ end;
procedure TStandardWebController.BindJavascriptCallstackToElement(AComponent: TComponent; AnElement: THtmlCustomElement; AnEvent: string);
begin
case AnEvent of
'onclick' : (AnElement as THTMLAttrsElement).onclick:=CurrentJavaScriptStack.GetScript;
'onchange' : if AnElement is THTML_input then (AnElement as THTML_input).onchange:=CurrentJavaScriptStack.GetScript;
end; {case}
if AnEvent='onclick' then
(AnElement as THTMLAttrsElement).onclick:=CurrentJavaScriptStack.GetScript
else if AnEvent='onchange' then
if AnElement is THTML_input then (AnElement as THTML_input).onchange:=CurrentJavaScriptStack.GetScript;
end;
procedure TStandardWebController.AddScriptFileReference(AScriptFile: String);