数据窗口的内容随分辨率变化而变化

[曹胜利]

我调整界面时，设置了界面控件，数据窗口大小随分辨率变化都没问题。但是数据窗口中的内容，就是那些列，还是按原来的位置存在一直没有变化，太难看了。我想要他们居中，我要怎么设置呢。求大侠们帮帮兄弟了。

[wangxun0997]

你这需求的成本也太高了！有必要吗？

[zhgwbzhd]

如果是根据每一个分辨率，自动调整。
有时候确实界面很难看。

我们近期采用的方法是，如果是640×480或者800×600之间的，按照640×480的界面显示。
如果是1204×768之类的，再打开另外一个界面。
只需要根据分辨率的范围，打开不同的界面就好了。

[曹胜利]

数据窗口dw_xx手调居中 1024X768
--------------------------
| 标题 |
| 列1 列2 列3 |
| |
| |
| |
|-------------------------
控件

数据窗口dw_xx 1152X864
--------------------------------------
| 标题 |
| 列1 列2 列3 |
| |
| |
| |
|-------------------------------------
控件
我的意思是窗口的空间我可以调整随分辨率变化而改变大小。函数我写好了。但是数据窗口中的内容位置却不随数据窗口
的分辨率的改变而改变，如图效果，分辨率变高了。数据窗口中的内容会偏左而不是居中了。我想要的效果是让数据窗口
中的内容随分辨率改变而始终保持居中。

[newease]

楼主最好把现状和想实现的效果贴上来看看

[曹胜利]

谢谢楼上，但是没有效果。我要的效果是子窗口平铺下数据列无论屏幕分辨率怎么变都保持居中的效果。

[永生天地]

没怎么看懂，明天在议
[Quote=引用 8 楼 victorycsl 的回复:]
谢谢楼上，但是没有效果。我要的效果是子窗口平铺下数据列无论屏幕分辨率怎么变都保持居中的效果。
[/Quote]

[曹胜利]

好的，谢谢了。我的数据窗口是mdi窗口。而我的一个报表窗口是子窗口。我将这个子窗口平铺，而数据窗口中的内容不是居中的。我通过手动调节窗口的内容，将其居中了。但是这只适合这个分辨率，如果分辨率变化的话，数据窗口中的内容将不再居中。

[曹胜利]

来来往往的大侠们，别飞太快了。给看一眼吧。

[永生天地]

应楼主如此强烈要求，特意给楼主写了一个实例，不知能能否满足楼主

新建窗口 - 放置dw控件 - retrieve事件代码

dw_1.width=newwidth
dw_1.height = newheight - dw_1.y

long ll_columncount,ll_columnwidth[],i,ll_columnwidthall,ll_dwwidth
dec ll_columnwidthpercent[]
ll_columncount =long( dw_1.describe( "datawindow.column.count"))

for i=1 to ll_columncount
ll_columnwidth[i]=long( dw_1.Describe("#"+string(i)+".Width"))
ll_columnwidthall+=ll_columnwidth[i]
next

for i=1 to ll_columncount
ll_columnwidthpercent[i]=ll_columnwidth[i]/ll_columnwidthall
next

ll_dwwidth=dw_1.width
for i=1 to ll_columncount
dw_1.Modify("#"+string(i)+".Width='"+string(ll_columnwidthpercent[i] * ll_dwwidth)+"'")
next


预览结果

[xiaolei8000]

如果是640×480或者800×600之间的，按照640×480的界面显示。
如果是1204×768之类的，再打开另外一个界面

[曹胜利]

可以这样操作，但是这样做的话，一是，如果数据窗口有变化的话，就得调整几个窗口。增加了工作量。二是，现在用户最求的办公条件不同。各种屏幕的适应分辨率不同，我得出几套方案去适应用户，甚至将来屏幕分辨率会到什么程度我也不清楚若这样只能每个分辨率对应一套方案。不能简单的以一个标准去做。

[曹胜利]

难道真的没有高手吗？我再补充一句，我用的是数据窗口是自由风格的。

[永生天地]

freeform的，还得研究一下了
[Quote=引用 13 楼 victorycsl 的回复:]
难道真的没有高手吗？我再补充一句，我用的是数据窗口是自由风格的。
[/Quote]

[jimwoo]

得到datawindow的大小，然后再算每列的x

[永生天地]

//效果差强人意，需要在窗口里设置好dw_1的宽度，使之能够将datawindow的内容居中
long delta_x,ll_dwoldwidth,ll_dwnewwidth

ll_dwoldwidth = dw_1.width
dw_1.width=newwidth
dw_1.height = newheight - dw_1.y
ll_dwnewwidth= dw_1.width
delta_x= (ll_dwnewwidth - ll_dwoldwidth) / 2

long ll_objs_x[],i

string ls_objs,ls_obj[]
ls_objs = dw_1.describe( "DataWindow.Objects")+"~t"

i=1
do while Pos(ls_objs, "~t" )>0
ls_obj[i]=left(ls_objs,Pos(ls_objs,"~t" ) - 1)
ls_objs=right(ls_objs,len(ls_objs) - Pos( ls_objs, "~t" ) )
//ls_objtype=adw_which.Describe(ls_obj+".Type")
ll_objs_x[i]=long(dw_1.describe(ls_obj[i]+".x") )
i++
loop

for i=1 to upperbound(ll_objs_x)
dw_1.Modify(ls_obj[i]+".x='"+string(ll_objs_x[i] + delta_x)+"'")
next

[chenllxx]

我有自动调的代码，把邮箱留下吧

[阿富888]

PFC里有这个的类的，你可以去看看！

[greatxingxing]

咦，楼上，能给我一份吗？
[e-mail]

[fuxiaoyang13]

俺也来顶顶，[e-mail]

[曹胜利]

最近很乱，我的邮箱[e-mail]谢谢楼主了。