865
社区成员
- 全部
- API 调用
- 基础类
- 控件与界面
- 数据库相关
- DataWindow
- 项目管理
- Web 应用
- 脚本语言
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
lllyyymmm 2008-04-07
支持1楼的
SKY_4K_PPM 2008-04-07
// F_CENTER() RETURNS INTEGER
=========================================================
INT LI_SCREENHEIGHT,LI_SCREENWIDTH,LI_RC,LI_X=1,LI_Y=1
ENVIRONMENT LENV_OBJ
IF ISNULL(THIS) OR NOT ISVALID(THIS) THEN RETURN -1
IF GETENVIRONMENT(LENV_OBJ)=-1 THEN RETURN -1
LI_SCREENHEIGHT=PIXELSTOUNITS(LENV_OBJ.SCREENHEIGHT,YPIXELSTOUNITS!)
LI_SCREENWIDTH =PIXELSTOUNITS(LENV_OBJ.SCREENWIDTH ,XPIXELSTOUNITS!)
IF NOT(LI_SCREENHEIGHT>0) OR NOT (LI_SCREENWIDTH>0) THEN RETURN -1
IF LI_SCREENWIDTH>THIS.WIDTH THEN
LI_X=(LI_SCREENWIDTH/2) - (THIS.WIDTH/2)
END IF
IF LI_SCREENHEIGHT>THIS.HEIGHT THEN
LI_Y=(LI_SCREENHEIGHT/2) -(THIS.HEIGHT/2)
END IF
LI_RC=THIS.MOVE(LI_X,LI_Y)
IF LI_RC<>1 THEN RETURN -1
RETURN 1
=================================================================
=========================================================
INT LI_SCREENHEIGHT,LI_SCREENWIDTH,LI_RC,LI_X=1,LI_Y=1
ENVIRONMENT LENV_OBJ
IF ISNULL(THIS) OR NOT ISVALID(THIS) THEN RETURN -1
IF GETENVIRONMENT(LENV_OBJ)=-1 THEN RETURN -1
LI_SCREENHEIGHT=PIXELSTOUNITS(LENV_OBJ.SCREENHEIGHT,YPIXELSTOUNITS!)
LI_SCREENWIDTH =PIXELSTOUNITS(LENV_OBJ.SCREENWIDTH ,XPIXELSTOUNITS!)
IF NOT(LI_SCREENHEIGHT>0) OR NOT (LI_SCREENWIDTH>0) THEN RETURN -1
IF LI_SCREENWIDTH>THIS.WIDTH THEN
LI_X=(LI_SCREENWIDTH/2) - (THIS.WIDTH/2)
END IF
IF LI_SCREENHEIGHT>THIS.HEIGHT THEN
LI_Y=(LI_SCREENHEIGHT/2) -(THIS.HEIGHT/2)
END IF
LI_RC=THIS.MOVE(LI_X,LI_Y)
IF LI_RC<>1 THEN RETURN -1
RETURN 1
=================================================================
leio 2008-04-07
pb9及以上，窗口有个center属性，直接勾上就行。
pb9以下在open事件中写
long ll_ScreenH,ll_ScreenW
Environment le_Env
GetEnvironment(le_Env)
ll_ScreenH = PixelsToUnits(le_Env.ScreenHeight, YPixelsToUnits!)
ll_ScreenW = PixelsToUnits(le_Env.ScreenWidth , XPixelsToUnits!)
w_Window.Y = (ll_ScreenH - w_Window.Height) / 2
w_Window.X = (ll_ScreenW - w_Window.Width ) / 2
pb9以下在open事件中写
long ll_ScreenH,ll_ScreenW
Environment le_Env
GetEnvironment(le_Env)
ll_ScreenH = PixelsToUnits(le_Env.ScreenHeight, YPixelsToUnits!)
ll_ScreenW = PixelsToUnits(le_Env.ScreenWidth , XPixelsToUnits!)
w_Window.Y = (ll_ScreenH - w_Window.Height) / 2
w_Window.X = (ll_ScreenW - w_Window.Width ) / 2
socket 通信那位同仁帮帮忙那 自己做的一个利用socket通信传输文件的东西，不知道什么问题服务端只接受一次数据就不再接收了，第二次传数据的话怎么也没响应，如果重启服务端就可以传了，不过还是只能传输一次，已经困扰了好几天了。...
请您帮帮忙系统需求分析及设计文档.docx 请您帮帮忙系统需求分析及设计文档 李杰胡海亮曹杨 摘要 随着移动互联网的飞速发展智能手机已经成为人们日常生活中不可忽缺的一部分 人 们使用智能手机收发邮件网上购物查找路线等现象随处可见 传统日常生活中当人们...
求大神帮做个音频水印的界面代码已有-音频水印.rar 写了一个音频水印的代码，但是不会做软件的界面，自己用GUI做了一个，但是连wav文件的波形都读不出来，请各位高手帮帮忙看看这界面要怎么做。代码我做到嵌入，提取还没做，所以界面的功能做到能显示嵌入后的波形就好...
BLOG_lhr_【故障处理】IMP-00010错误 12C的dmp文件导入11G.pdf BLOG_lhr_【故障处理】IMP-00010错误 12C的dmp文件导入11G.pdfBLOG_lhr_【故障处理】IMP-00010错误 12C的dmp文件导入11G.pdf
不完整的坦克 不完整的坦克（w,s,a,d移动坦克，空格发射子弹） ...求各路大神帮帮忙帮我修改下代码，让子弹移动和坦克移动不冲突！！！万分感谢 修改后请联系QQ：2246611230 或将修改后的源码发我邮箱谢谢！！！
