起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 1277|回复: 2

[DockStub]X3平台界面方案如何修改功能树的属性

[复制链接]
发表于 2006-8-16 10:57:12 | 显示全部楼层 |阅读模式
系统空间:强力建议不做任何的修改,当然也不要增加自己的单元,在升级的时候,会删除这个空间的所有内容的(除了可以扩展部门表、岗位表、人员表之外)。

新建一个业务空间(JMKJ),用来专门存放主界面方案的相关资源,下面讲述的有:主界面、欢迎界面、关于窗体、登陆界面、工具栏、流传窗体、用户参数录入界面、历史数据窗体,其他的部分的修改,请参考系统空间下相应对象。

实现步骤:

1:在新建的业务空间(JMKJ)中建立一个文件夹,复制 业务模型\系统空间\简洁风格\界面库\系统接口 并在新建的文件夹中粘贴。
2:复制 业务模型\系统空间\简洁风格\界面库\窗体库 并在步骤1中新建的文件中粘贴。
3:打开复制过来的系统接口的项目配置属性,把其中引用列表中对简洁风格中的窗体库的引用删除掉。并添加步骤2中粘贴过来的窗体库的引用。
4:关闭Studio和服务,对Tomcat/bin目录下的Config.justep.xml文件做如下修改。
<!-- 界面主题,默认界面主题与是否允许不同用户使用不同的主题 -->
                <uitheme default="Biz:\JMKJ" allowuser="false"/>
修改后同步配置文件。
5:重新启动服务并进入Studio,打开 业务模型\界面空间\界面方案\窗体库\标准风格主窗体,找到
FFuncNavBar: TOperatorFuncNavBar;
对功能树的修改直接在源代码中修改FFuncNavBar对象就可以了。FFuncNavBar是一个叫做TdxNavBar的第三方组件。
附上TdxNavBar的帮助文件下载地址:
http://www.justep.com/ftp/BusinessPartner/Docs/NavBarHelp.zip
回复

使用道具 举报

发表于 2006-8-16 11:10:15 | 显示全部楼层
DockStub
平台主界面的功能树的自动隐藏使用了DockStub控件来实现。

A、添加DockStub控件
   Align属性设置为 alClient
B、设置需要显示在Dockstub中的控件(必须是TWinControl的子类)属性
C、向DockStub中加入Acontrol:TwinControl
procedure TfrmWord.AddControlClick(Sender: TObject);
var
  cc : TControlConfig;
begin
  cc := TControlConfig.Create('DocView1');  //用于设置Acontrol:TwinControl的显示和控制参数
  cc.CanClose := false; 能否关闭
  cc.Text := '显示名称'; 显示标题
  cc.AutoHide := 'AutoHide';
  cc.AutoHideHeight := 600;
  cc.AutoHideWidth := 600;
  cc.AllowButtons := [TDockWindowButton.wbHide, TDockWindowButton.wbAutoHide,
    TDockWindowButton.wbDock, TDockWindowButton.wbClose]; 控制按钮
  cc.AllowDockKinds := [TDockKind.dkDocking, TDockKind.dkFloating,
    TDockKind.dkAutoHide]; 显示风格
  cc.Image := img.Picture;
  DockStub.AddClient('DocView1', DocView1, cc); 将Acontrol:TwinControl按照CC指定的显示和控制方式加入DockStub
end;

D、也可以调用DockStub.InitControlConfigs设置显示参数
procedure InitControlConfigs(IDs: array of string; Texts: array of string; Images: array of Business.System.TPicture; Width: Longint; Height: Longint; Kind: TDockKind; Side: TAlign; CanClose: Boolean; AllowButtons: TDockWindowButtons; AllowDockKinds: TDockKinds);

E、调用DockStub.SaveConfig保存控件显示状态(不保存浮动窗体的标签)
  procedure LoadConfig(IniFile: Business.System.TCustomIniFile);
    procedure SaveConfig(IniFile: Business.System.TCustomIniFile);
回复 支持 反对

使用道具 举报

发表于 2007-11-22 14:58:04 | 显示全部楼层
如果修改为自己的界面方案,注意要删除系统接口的项目管理的项目配置属性中的旧引用,添加新的窗体库的引用。系统接口的代码里面 uses   FormLibrary; 也要改为您自己的窗体库的名字。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-3-29 18:30 , Processed in 0.051145 second(s), 23 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表