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

[GB.WEB.FORM]

Browse source 
* BUG: WebTable: Cell foreground color is correctly taken into account.


git-svn-id: svn://localhost/gambas/trunk@7552 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2016-01-05 01:29:13 +00:00
parent 8dd59f2717
commit ab5628b57d
4 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
# Gambas Project File 3.0 # Gambas Project File 3.0
# Compiled with Gambas 3.8.90 # Compiled with Gambas 3.8.90
Startup=Webform2 Startup=Main
UseHttpServer=1 UseHttpServer=1
Version=3.8.90 Version=3.8.90
VersionFile=1 VersionFile=1

3
comp/src/gb.web.form/.src/Main.module
View file

@ -4,7 +4,8 @@
Public Sub Main() Public Sub Main()
Debug Base64(File.Load("arrow-right.png")) 'Debug Base64(File.Load("arrow-right.png"))
Debug WebForm._GetColor(Color.Gray)
End End

2
comp/src/gb.web.form/.src/WebTable/WebTable.class
View file

@ -78,7 +78,7 @@ Public Sub _Render()
hCol._PrintAlignment() hCol._PrintAlignment()
sStyle = "" sStyle = ""
If hData.Background <> Color.Default Then sStyle &= "background-color:" & WebControl._GetColor(hData.Background) & ";" If hData.Background <> Color.Default Then sStyle &= "background-color:" & WebControl._GetColor(hData.Background) & ";"
If hData.Foreground <> Color.Default Then sStyle &= "color:" & WebControl._GetColor(hData.Background) & ";" If hData.Foreground <> Color.Default Then sStyle &= "color:" & WebControl._GetColor(hData.Foreground) & ";"
If sStyle Then Print " style=\""; sStyle; "\""; If sStyle Then Print " style=\""; sStyle; "\"";
Print ">"; Print ">";
If hData.Html Then If hData.Html Then

2
comp/src/gb.web.form/.startup
View file

@ -1,4 +1,4 @@
Webform2 Main
0 0
0 0