luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WebTextArea: The Text property works correctly again.

Browse Source 
[GB.WEB.FORM]
* BUG: WebTextArea: The Text property works correctly again.
This commit is contained in:
gambas 2019-02-14 18:08:31 +01:00
parent 5318c1db60
commit 1bf58ddd35
5 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
comp/src/gb.web.form/.component
View File

@ -1,6 +1,6 @@
[Component]
Key=gb.web.form
Version=3.12.0
Version=3.12.90
State=1
Authors=Benoît Minisini
Requires=gb.web,gb.util.web,gb.util

2
comp/src/gb.web.form/.project
View File

@ -1,7 +1,7 @@
# Gambas Project File 3.0
Startup=Webform6
UseHttpServer=1
Version=3.12.0
Version=3.12.90
VersionFile=1
Component=gb.util
Component=gb.util.web

6
comp/src/gb.web.form/.src/Test/Webform6.class
View File

@ -12,3 +12,9 @@ Public Sub WebComboBox1_Click()
Message(WebComboBox1.Text)
End
Public Sub WebButton2_Click()
Message(Html("TextBox: " & WebTextBox1.Text) & "<p>" & Html("TextArea: " & WebTextArea1.Text))
End

9
comp/src/gb.web.form/.src/Test/Webform6.webform
View File

@ -16,10 +16,15 @@
#MoveScaled(1,11,72,16)
}
{ WebHBox1 WebHBox
#MoveScaled(1,28,72,5)
#MoveScaled(1,28,72,7)
Spacing = True
{ WebButton1 WebButton
#MoveScaled(1,1,16,3)
#MoveScaled(1,1,16,5)
Text = ("Copy")
}
{ WebButton2 WebButton
#MoveScaled(18,1,16,5)
Text = ("Text")
}
}
}

1
comp/src/gb.web.form/.src/WebTextArea.class
View File

@ -61,6 +61,7 @@ Public Sub _BeforeRender()
Print "<textarea"; Me._GetClassId(); " autocomplete=\"off\"";
If Object.CanRaise(Me, "Change") Then Print " oninput=\"gw.textarea.onchange("; JS(Me.Name); ");\"";
Print Me._GetUpdateJS("onblur", "text", "this.value");
If Not Me.Enabled Then Print " disabled";
If $bReadOnly Then Print " readonly";
If $sPlaceHolder Then Print " placeholder=\""; Html($sPlaceHolder); "\"";