DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: ZMskyuza
今日帖子: 25
在线用户: 11
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2018/4/26 17:53:56
标题:
Tulip-UI新编辑器源码及相关环境,需要的自己下载 浏览:2239
加入我的收藏
楼主: 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 版权所有 页面执行179.6875毫秒 RSS