DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: emprorgame
今日帖子: 24
在线用户: 14
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 msfm (清洁工) ★☆☆☆☆ -
盒子活跃会员
2021/5/17 14:45:16
标题:
win桌面快捷工具条 浏览:986
加入我的收藏
楼主: 虽然比不上专业的object Dock 但是平时弄个快捷工具栏也凑合用用 源码地址
https://github.com/msfm2018/win_mac_tool
此帖子包含附件:
PNG 图像
大小:273.7K
----------------------------------------------
-
作者:
男 nevergrief (孤独骑士) ★☆☆☆☆ -
盒子活跃会员
2021/5/17 15:06:03
1楼: 必须点赞。TMS也实现过一个,效果不错,不过只要底下图标多了,就卡的很,不知道你这个怎么样。稍后试试。
----------------------------------------------
只有偏执狂才能生存!
作者:
男 szyourname (szyourname) ★☆☆☆☆ -
盒子活跃会员
2021/5/17 15:08:29
2楼: 点赞!
----------------------------------------------
-
作者:
男 laimama_1 (苞谷) ★☆☆☆☆ -
盒子活跃会员
2021/5/17 19:55:07
3楼: 顶一下,支持开源
----------------------------------------------
-
作者:
男 snakegao (snakegao) ★☆☆☆☆ -
盒子活跃会员
2021/5/17 22:01:03
4楼: 支持楼主开源分享!
----------------------------------------------
-
作者:
男 tulater (tulater) ★☆☆☆☆ -
普通会员
2021/5/18 18:15:36
5楼: 支持楼主开源分享!,已用上
----------------------------------------------
http://www.cnblogs.com/tulater/
作者:
男 ksrsoft (cb168) ★☆☆☆☆ -
注册会员
2021/5/18 18:53:49
6楼: 不错
----------------------------------------------
-
作者:
男 smartdata (Jack) ★☆☆☆☆ -
普通会员
2021/5/18 22:35:00
7楼: 漂亮!
----------------------------------------------
==========
作者:
男 lps (lps) ★☆☆☆☆ -
盒子活跃会员
2021/5/19 16:09:54
8楼: github下不了!下载了一部分后报错
----------------------------------------------
-
作者:
男 keymark (嬲) ▲▲△△△ -
注册会员
2021/5/19 17:14:04
9楼: https://hub.fastgit.org/msfm2018/win_mac_tool
https://github.com.cnpmjs.org/msfm2018/win_mac_tool
https://github.bajins.com/msfm2018/win_mac_tool
https://github.rc1844.workers.dev/msfm2018/win_mac_tool
https://gh.haval.gq/msfm2018/win_mac_tool
https://github.wuyanzheshui.workers.dev/msfm2018/win_mac_tool
一堆镜子 随意造
----------------------------------------------
git config --global alias.co 'clone --recurse-submodules'
git config --global alias.up 'submodule update --init --recursive'
懒鬼提速
http://qalculate.github.io/downloads.html
https://www.cctry.com/
作者:
男 pcplayer (pcplayer) ★☆☆☆☆ -
普通会员
2021/5/19 18:16:25
10楼: 支持楼主开源
----------------------------------------------
-
作者:
男 pcplayer (pcplayer) ★☆☆☆☆ -
普通会员
2021/5/19 21:17:33
11楼: 报告楼主,我从 github clone 源代码后,在虚拟机的 WIN7 底下的 D10.3.3 上面,编译运行成功,但看不到任何东西。

跟踪了一下,if not DwmCompositionEnabled then  这个是 False 虽然我已经把 WIN7 桌面设置为可以毛玻璃半透明显示了。

屏蔽掉这个 if not DwmCompositionEnabled then 让它执行底下的代码,跟踪发现:

BitBlt(Form1.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, h, self.Left, self.Top, SRCCOPY);

这句,Self.Left 的值是 1248;Self.TOp 的值是:-115

因此我怀疑它跑屏幕外面去了。

查代码,
form1.Left := g_core.db.syspara.GetInteger('left');
form1.Top := g_core.db.syspara.GetInteger('top');

这两个值来自 SQLITE 数据库。我检查 git 拉下来的代码里面没有数据库文件,但程序编译运行的目录下有一个 DestTopdb.db 库文件,看起来是程序运行时自动生成的?

因为看不到任何界面,也没法去操控它。
----------------------------------------------
-
作者:
男 lps (lps) ★☆☆☆☆ -
盒子活跃会员
2021/5/20 9:49:40
12楼: @keymark (嬲)  谢谢你的镜像,可以下载了
----------------------------------------------
-
作者:
男 msfm (清洁工) ★☆☆☆☆ -
盒子活跃会员
2021/5/20 19:46:55
13楼: @11楼 其实我写的这个 并不理想 ,严格意义上上 人家的应该不是这样写的, 你们可以自己任意修改 代码理解也不难 或者另起炉灶  

数据库是自动生成的 
  
初始化你可以自己赋值 窗体位置form1.Left form1.top

form1.Left := g_core.db.syspara.GetInteger('left');
form1.Top := g_core.db.syspara.GetInteger('top');
这个是下一次启动的时候 窗体的位置。

只win10试了试 win7系统没测过
----------------------------------------------
-
作者:
男 pcplayer (pcplayer) ★☆☆☆☆ -
普通会员
2021/5/21 21:11:24
14楼: 多谢楼主指教
----------------------------------------------
-
作者:
男 kinneng (kinneng) ★☆☆☆☆ -
盒子活跃会员
2021/6/5 20:49:52
15楼: 厉害
----------------------------------------------
声明:本人不在论坛询问任何编程问题,请不要将我的帖子当成问题来回答。炒股一天,编程三年,不浪费时间了。 经常在外面,没空,不要找我..
作者:
男 dbyoung (dbyoung) ★☆☆☆☆ -
普通会员
2021/6/5 21:58:05
16楼: 这种异型的动画效果窗体,用 Delphi 来做,的确不是合适的工具。
FlashAS 曾经是一个不错的工具。
很多年前用 Authorware 做过类似的界面。那效果够炫、够酷。
----------------------------------------------
武汉天气不好
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行62.5毫秒 RSS