以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表界面显示的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80418)

--  作者:chnfo
--  发布时间:2016/1/22 13:53:00
--  [求助]表界面显示的问题
窗口表,绑定某一个表A。

表A里设定了一个自定义样式RWE,如底色为红色,字体为白色。

窗口表的字体都是14号字,事先设好的。

表A里代码如下:

Select Case e.Col.Name
    Case "W1","W2","W3"
        If e.Row("RW") = True Then
            e.Style = "RWE"
        End If
    Case "E1","E2","E3"
        If e.Row("RE") = True Then
            e.Style = "RWE"
        End If
End Select

问题出来了,窗口表如果没有应用到样式的时候,它的字体是14号的;应用到样式的时候,底色和字体颜色都变了,但是它的字体成了系统默认的大小(好象是9号字);再去看表A,也是这种情况,字体缩小了

这个咋整?
[此贴子已经被作者于2016/1/22 13:56:20编辑过]

--  作者:大红袍
--  发布时间:2016/1/22 14:18:00
--  

测试了下,没问题啊。

 

e.form.controls("Table1").Table.Font = new font("宋体", 14)

 


--  作者:chnfo
--  发布时间:2016/1/22 14:22:00
--  
在表A里看也是这样的吗?
--  作者:大红袍
--  发布时间:2016/1/22 14:28:00
--  

2楼的代码,是修改表控件的字体。你要修改哪个表的字体就单独设置font

 

我测试,没问题。


--  作者:chnfo
--  发布时间:2016/1/22 14:28:00
--  
这是示例。着色的单元格字体设定不起作用。
增加一个窗口,里面一个button,一个table(绑定表D)

button代码:
e.form.controls("Table1").Table.Font = new font("宋体", 14)
看到的效果跟截图一样的。着色的单元格里的字体就是9号,而不是14号

如果把下图的那个-123456改为123456,字体就会变成14号


图片点击可在新窗口打开查看此主题相关图片如下:界面样式显示问题.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/1/22 14:34:21编辑过]

--  作者:大红袍
--  发布时间:2016/1/22 14:51:00
--  

我测试,没问题。做例子上来。


--  作者:chnfo
--  发布时间:2016/1/22 16:14:00
--  
OK
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:字体大小设置.rar


--  作者:大红袍
--  发布时间:2016/1/22 16:27:00
--  
Select Case e.Col.Name
    Case "B","C","D"
        Dim cl = e.Table.grid.getCellRange(e.Row.index+1, e.Col.index+1)
        If e.Row(e.Col.Name) < 0 Then
            If cl.style Is Nothing Then
                Dim t As Table = e.Table
                Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add("Error")
               
                cl.style = cs1
            End If
            cl.style.backcolor = Color.Red
            cl.Style.font = new font(e.Table.font.Name, e.Table.font.Size, FontStyle.Bold)
           
        Else
            cl.Style = Nothing
        End If
End Select

--  作者:chnfo
--  发布时间:2016/1/22 16:48:00
--  
这么复杂?有木有简单点的?
--  作者:大红袍
--  发布时间:2016/1/22 17:05:00
--  
不行,除非你不设置加粗。