【结帖】界面显示问题**

rzport_lq0 · 发表于 2008-6-27 11:30:37

现在有些部门用的时15寸的crt，分辨率设置的是：800*600，界面有些地方显示部出来，把他们的分辨率调到1024*768，字又太小了。他们不适应！
能不能在界面上加个滚动条！

shangxy · 发表于 2008-6-27 11:51:36

http://bbs.justep.com/forum.php? ... 3&highlight=768

rzport_lq0 · 发表于 2008-6-27 14:31:05

我知道分辨率要调到1024*768
但是用户中有很多都是中老年人，视力并不是很好。
他们不可能为了用这个系统去配副眼镜或者去换副眼镜吧！
他们提议能不能在界面上加上滚动条！

shangxy · 发表于 2008-6-27 15:15:48

默认上面应该有垂直滚动条的。

rzport_lq0 · 发表于 2008-6-30 10:07:43

有垂直滚动条，但是没有水平滚动条。有好多内容都显示不出来！！

shangxy · 发表于 2008-6-30 10:42:11

业务模型\协同系统\桌面设置\面板信息\Preview
设置Container的HorzScollBar的Visible和Tracking属性为True
看看

rzport_lq0 · 发表于 2008-6-30 14:31:51

按照你说的设置，还是没有水平方向的滚动条

shangxy · 发表于 2008-6-30 15:29:23

还需要修改点代码：
在那个单元下卖弄修改这个代码看看
procedure TPREVIEW.ContainerResize(Sender: TObject);
var
  W: Integer;
begin
  if FCtrlGrid.Columns.Count = 0 then
Exit;

//  W := Container.ClientWidth div FCtrlGrid.Columns.Count;

  FCtrlGrid.DefaultColumnWidth := Business.Forms.Forms.Screen.Width - 430;
  if FCtrlGrid.Rows.Count <> 0 then
FCtrlGrid.DefaultRowHeight := self.Height div Info.GetRowNum;

  FCtrlGrid.CalcControlsPosition;
  FCtrlGrid.AlignControls(nil);
end;

rzport_lq0 · 发表于 2008-6-30 15:52:16

改了过后。
用ie登陆时。
cpu占用到了100%，
机器运行非常慢。
好几台机器都一样。

shangxy · 发表于 2008-6-30 16:02:34

那效果出来了么？

		自动登录	找回密码
密码			立即注册