DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡ ①
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡ ②
发布代码
发布控件
文档资料
经典工具
≡事务区≡ ③
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入： sprblck
今日帖子： 10
在线用户： 15
导航： 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 17:53:56
标题：
Tulip-UI新编辑器源码及相关环境，需要的自己下载 浏览:2203
加入我的收藏
楼主： 1、基于FMX
2、压缩包里面带了PXL引擎代码、FreeType相关代码、Tulip-UI代码以及编译需要的一些引用库
3、Tulip-UI被我改了一些
4、暂不支持导出json、xml，需要的朋友自己实现一下，如果有朋友实现了，希望能给我一份代码，非常感谢。
5、atlas.json这个文件是描述资源的，大家根据自己需要去制作。我目前是用其他工具生成一张大图和配置，然后我自己写了个转换工具把配置转成我需要的json格式。
6、主体功能已经完成，还有很多辅助性质的功能没有完成，最近工作有点忙，进度可能会慢，干脆发上来，需要的同学自己下载回去自己去完善吧。

代码简陋，高手们请轻喷，谢谢！
----------------------------------------------
虽千万人吾往矣！
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 17:56:06
1楼： 盒子不让传太大的文件，分开传了。

编译后的--
此帖子包含附件:looper_2018426175559.rar 大小:3.69M
----------------------------------------------
虽千万人吾往矣！
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 17:56:33
2楼： 代码和相关的引用--
此帖子包含附件:looper_2018426175628.rar 大小:2.80M
----------------------------------------------
虽千万人吾往矣！
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 17:59:27
3楼： 对了，开发环境是XE8，如果有高版本的Delphi出现一些什么私有变量不能在helper里面引用之类的，麻烦自己改一下。我还没去改。
----------------------------------------------
虽千万人吾往矣！
作者：
男 fausten (fausten) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 18:30:38
4楼： 谢谢！！！
----------------------------------------------
-
作者：
男 isxuzhu (e.Wong) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 18:57:05
5楼： 感谢looper兄！
----------------------------------------------
你我,都可以是个造梦者!欢迎加入脚本引擎PaxCompiler交流群303904495http://www.cnblogs.com/fireboxsoft有需要错别字检测软件的朋友可以在我博客上的地址下载使用，备注“2ccc”的朋友可以免费获取超级黄金VVVVVVVVVVIP授权
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 19:50:08
6楼： 水平有限，大家发现问题或者需要优化的地方麻烦帖子回复一下，非常感谢！
----------------------------------------------
虽千万人吾往矣！
作者：
男 keymark (嬲) ▲▲▲△△ -
普通会员
2018/4/26 20:33:14
7楼： 10.2
缺少
引用
FMX.ListView.Appearances
后出现冲突.
FPropEditor.InspectorItem:=TListViewItem      
lvInspector.Selected=TListItem;
0.0

  TPropEditor = class
  private
    FContainer: TControl;
    FWorkDir: string;
    FOnDataChange: TProc<TParam>;
    FControlID: Integer;
    FInspectorItem: TListViewItem;  看样子只能改这个了.


 Detail  一堆然并卵的不存在.
----------------------------------------------
[alias]  co = clone --recurse-submodules  up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 21:38:20
8楼： xe8后面的版本好像listview改动过，确实有不少调整。明天我把代码改成动态创建listview吧，方便大家升级到最新的delphi。
----------------------------------------------
虽千万人吾往矣！
作者：
男 kaida (kaida) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 23:20:46
9楼： Tulip-UI for D10.2.3(修改自 looper 提供的代码).rar
----------------------------------------------
http://down.desei.com.cn/down/1041485/MyWeb/VCLs.html
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/27 9:16:09
10楼： @kaida (kaida): 感谢！

用Delphi10以上版本的同学们就用9楼的代码去完善吧 按此在新窗口浏览图片
----------------------------------------------
虽千万人吾往矣！
作者：
男 keymark (嬲) ▲▲▲△△ -
普通会员
2018/4/27 14:15:58
11楼： 源码 Tulip-UI for D10.2.3(修改自 looper 提供的代码).rar
操作
  Button20
  双击 没反应
  操作
  Button49
  再操作Button28  (误操作的删除)
  双击  AV来了..按此在新窗口浏览图片

----------
Debugger Exception Notification
----------
Project UIEditor.exe raised exception class $C0000005 with message 'access violation at 0x04a4571e: write of address 0x00000000'.
----------
Break   Continue   Help   
----------
----------------------------------------------
[alias]  co = clone --recurse-submodules  up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/27 18:31:11
12楼： Castle Engine中的信息提示效果
此帖子包含附件:
GIF 图像
大小:42.5K
----------------------------------------------
虽千万人吾往矣！
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/27 18:36:12
13楼： 移植的代码，使用方法：
procedure TMainFrm.Button1Click(Sender: TObject);
begin
  Notifications.Show('test message');
end;

procedure TMainFrm.RenderScene;
begin
  Notifications.Render;
end;

引用上面发的UI编辑器代码，要把这个单元中的se.game.client.fontmanager改成Fonts.FontManager

还有一些比如字体对齐、颜色之类的可以完善，有兴趣的朋友自己完善一下

或者等我以后完善好了发上来
此帖子包含附件:looper_2018427183612.rar 大小:2,890B
----------------------------------------------
虽千万人吾往矣！
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/27 18:39:50
14楼： @keymark (keymark): 我知道这个错误, 还有一些其他问题, 等我改完会把修正的代码段放上来.
----------------------------------------------
虽千万人吾往矣！
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/27 18:51:20
15楼： PXL的TQuad.Scaled实现的效果，代码：
procedure TMainFrm.RenderScene;
begin
  FUIManager.Render;
  //
  FEngineCanvas.UseImage(ImageManager.GetImage('test_scaled.png'));
  FEngineCanvas.TexQuad(TQuad.Scaled(FDisplaySize.X*0.5, FDisplaySize.Y*0.5,
          185, 47,
          FEngineTicks * 0.02
          ),
          IntColorAlpha(Max(0,200-FEngineTicks)));
end;
此帖子包含附件:
GIF 图像
大小:82.8K
----------------------------------------------
虽千万人吾往矣！
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/27 18:56:45
16楼： PXL的TQuad.Rotated实现的效果，代码：

procedure TMainFrm.RenderScene;
begin
  FUIManager.Render;
  //
  FEngineCanvas.UseImage(ImageManager.GetImage('test_rotate.png'));
  FEngineCanvas.TexQuad(TQuad.Rotated(Point2f(FDisplaySize.X*0.5, FDisplaySize.Y*0.5),
          Point2f(32, 32),
          FEngineTicks * 0.05
          ),
          IntColorAlpha(200));
  //
  FEngineCanvas.TexQuad(TQuad.RotatedTL(Point2f(FDisplaySize.X*0.5-150, FDisplaySize.Y*0.5-150),
          Point2f(32, 32),
          Point2f(200, 200),
          FEngineTicks * 0.03
          ),
          IntColorAlpha(200));
end;
此帖子包含附件:
GIF 图像
大小:102.0K
----------------------------------------------
虽千万人吾往矣！
作者：
男 s421600 (shen) ▲▲▲▲▲ -
普通会员
2018/4/28 10:36:10
17楼： 谁科普一下，这东西怎么用？
----------------------------------------------
-
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/5/2 19:08:52
18楼： 最近修改了一些bug，功能实在没时间做。

XE8环境，Delphi10环境的同学自己用一下楼上的部分代码替换一下。
此帖子包含附件:looper_20185219852.rar 大小:197.3K
----------------------------------------------
虽千万人吾往矣！
作者：
男 keymark (嬲) ▲▲▲△△ -
普通会员
2018/5/2 20:35:40
19楼： 请提供
//  FreeFontManager;
//  FreeImageManager;
  with CreateImageManager(FEngineDevice, FEngineCanvas) do
  begin
    AssetRoot:= FAssetRoot;
    AtlasRoot:= FAtlasRoot;
  end;
  看了下我的 TImageManager  也是你发的 
  木有这 AssetRoot   AtlasRoot
----------------------------------------------
[alias]  co = clone --recurse-submodules  up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/5/3 8:49:25
20楼： 漏掉的
此帖子包含附件:looper_20185384925.rar 大小:4.7K
----------------------------------------------
虽千万人吾往矣！
作者：
男 bigboy2050 (bigboy2050) ★☆☆☆☆ -
普通会员
2018/5/3 8:57:43
21楼： 大家都在盛大写游戏么？

用delphi写游戏的公司多么？
----------------------------------------------
kittyapp
作者：
男 blueflag (昆了) ★☆☆☆☆ -
盒子活跃会员
2018/5/3 9:22:29
22楼： 这个能做游戏渲染？
----------------------------------------------
-
作者：
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/5/3 9:24:27
23楼： editor.manager.pas的删除方法有bug，最新代码：

procedure TEditorManager.Delete(const AControlID: Integer);
var
  LControl: TEditorControl;
  LTulipControl: TAControl;
begin
  if not FEditorControlMap.TryGetValue(AControlID, LControl) then Exit;
  LControl.BindNode.TreeView.RemoveObject(LControl.BindNode);
  LTulipControl:= LControl.TulipControl;
  if LTulipControl.Parent <> nil then
    LTulipControl.Parent.RemoveControl(LTulipControl)
  else
    Self.Root.RemoveControl(LTulipControl);
  FreeAndNil(LTulipControl);
  FEditorControlMap.Remove(AControlID);
end;
----------------------------------------------
虽千万人吾往矣！
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行164.0625毫秒 RSS