Delphi XE5 for android 使用 BITMAP STYLE DESIGNER 改变控件背景

最新推荐文章于 2022-01-14 21:13:19 发布
最新推荐文章于 2022-01-14 21:13:19 发布
阅读量109 收藏
点赞数
文章标签： 移动开发 开发工具
原文链接：http://www.cnblogs.com/happyhills/p/3674900.html
版权

 一、BITMAP STYLE DESIGNER

    工具集成在IDE开发工具的TOOLS菜单。

 

 

使用NEW 新建一个安卓样式。NEW—NEW ANDROID STYLE FOR FIREMONKEY。

这里我们改变edit的背景

在OBJECTS树找到EDIT

 

点击左侧OBJCEBTS的ITmap，然后在右侧的INSPECTOR中改变背景的bitmap

 选择：

空白。

方法是 ：鼠标左键选择，然后鼠标右键选择。确定白色区域。最后按[APPLY]

选择保存就形成了一个自定义的EDIT的STYLE样式文件。其他未改变的属性都是控件的默认属性。

二、在form中

  

拖进一个STYLEBOOK

将FORM的STYLEBOOK定义为这个STYLEBOOK1。

三、导入样式文件

双击STYLEBOOK,把刚才自定义的样式文件[LOAD],然后【apply and close】

   

至此，一个自定义背景的EDIT已经形成。编译的时候，样式文件自动打包了。

转载于:https://www.cnblogs.com/happyhills/p/3674900.html

weixin_30685047
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi自定义控件开发
09-26
这本书讲的是Delphi控件开发技术，请大家以Delphi7以下版本开发该例子！
delphi xe5 android 调用照相机获取拍的照片
07-03
在本篇文章中，我们将探讨如何在 Delphi XE5 中使用 Android 平台的照相机组件，获取拍摄的照片。 使用 Delphi XE5 调用 Android 照相机的步骤 ----------------------------------- 要使用 Delphi XE5 调用 ...
[工具] Firemonkey Style 调色工具（可另存 Style 文件）
weixin_30699955的博客
07-27 101
版本：2016.12.21 （新增可取代颜色） 下载：[工具]OneStylePalette_调色工具_20161221.zip 版本：2016.12.09 （新增可导出全平台的 Style） 下载：[工具]OneStylePalette_调色工具_20161209.zip 版本：2016.11.26 （新增导出 Windows 7, 8, 10 Style） 下载：[工具]On...
FireMonkey 底下用自己定义 Style 的方式，给按钮 Button 以颜色
pcplayer的博客
01-09 1989
FireMonkey 里面有 Style 的支持。通常的用法是做一整套的 Style 然后给一个程序用。官方提供了不少的各种配色的 Style 设计，程序可以直接拿来用。通过使用 Style 来达到换肤的目的。 但自己设计整套的 Style 比较麻烦。有时候只是想给一个按钮设置一个不同的颜色，而按钮是没有 Color 这样的属性可以用来设置颜色的。这时候，可以利用 FireMonkey 提供的 ...
Firemonkey下使用StyleBook的一些经验
cmd9x的专栏
06-20 1845
1、编辑style后关闭style designer再次打开发现之前的设置无效了，比如给一个StyleObject.SourceLink指定图像区域，失效后区域又变成整张图片了2、窗体上本来有StyleBook，然后用StyleBook加载了style文件，结果可能某些样式会不生效；可以将窗体上的StyleBook删除再试3、复制并粘贴一个style，新粘贴的style在编辑后看不到预览了，关闭s...
delphi xe 之路（14）使用FireMonkeyStyle
5201314的专栏
12-22 4251
FireMonkey使用Style来控制控件的显示方式。 每个控件都有一个StyleLookup属性，FireMonkey就是通过控件的这个属性来在当前窗体的StyleBook控件中查找匹配的Style，如果找到了这个Style，那么控件就使用这个Style来显示。   StyleBook是一个Style的集合，里面可以有窗体的Style，按钮的Style，文本框的Style，等等。每个St
BCB自定义风格
weixin_45682858的博客
01-14 170
Project - Options - Application - Apperance，选择主题皮肤 Tools-BitmapStyleDesigner，主题设计器 切换皮肤方法： 系统默认：TStyleManager::SetStyle(L"Windows"); 切换到Glow主题：TStyleManager::SetStyle(L"Glow"); 从外部直接引用：TStyleManager::LoadFromFile，或者也可以直接打包进E...
delphi xe5 android 调用照相机摄像头拍照片camera
09-24
在使用Delphi XE5开发Android应用程序时，调用照相机功能是常见的需求，以便让用户拍摄照片并集成到应用中。本示例着重讲解如何在Delphi XE5环境下，利用Android API来实现这一功能，无需额外的组件，只通过原生代码...
Android中使用Bitmap类将矩形图片转为圆形的方法
09-02
Bitmap是Android系统提供的一个类，用于处理图像，包括加载、绘制和操作位图。在本教程中，我们将深入探讨如何使用Bitmap类将矩形图片转换为圆形。 首先，为了实现圆形图片，我们通常需要从矩形图片开始，因为只有...
Android中Bitmap用法实例分析
09-02
在Android开发中，Bitmap是处理图像的基本类，用于在内存中表示位图图像。本文将深入探讨Bitmap的用法，包括图片的加载、属性设置以及旋转等关键技巧。 首先，我们来看如何加载存储在SD卡上的图片。在Android中，...
Delphi XE 10.2 设置全局Style
07-15
Delphi XE 10.2 设置全局Style，折腾了我不少时间，网上资料很多误导，希望大家节省宝贵时间。
Android中的Bitmap缓存池使用详解
01-05
使用内存缓存、使用磁盘缓存、处理配置改变事件等方法将会有效的解决这个问题。 在您的UI中显示单个图片是非常简单的，如果您需要一次显示很多图片就有点复杂了。在很多情况下(例如使用 ListView, GridView 或者 ...
Delphi10控件Style自定义注意点
jnshen77的博客
11-16 1628
StyledSettings属性，除常用Family、Size、Style等设置外，修改其它项目注意将Other项设置为True。否则，某些自定义属性无效。
Delphi xe5 StyleBook的用法（待续）
花の猫
11-19 7174
首先要在FORM里拖进来一个StyleBook1,然后在Form里设置属性，记住一定要在单击form，在OBject Inspector里设置StyleBook  [StyleBook1]. 下一个属性StyleName [  ]  好像是多余的，我多次都把StyleName [StyleBook1]， 但是没有效果。在其他控件下设置StyleLookup就可以了，单击选择。styleName就
Bitmap Style Designer非官方说明
QustDong的专栏
07-18 3231
Bitmap Style Designer Bitmap Style Designer给我的第一印象就是简陋，估计也是为了赶工。大致体会了一下，还是能够使用。因为目前没有对此有比较详细的中文资料，就把自己的使用心得总结一下。 Bitmap Style Designer对于VCL Style的支持相对还是比较不错的， 可以新建，可以打开，可以编辑。而对于Firemonkey Style就显得
使用 Bitmap Style Designer 为FMX修改已有样式
疯流人物
06-15 2100
我本是菜鸟，不懂编程，只是个设计师，但因工作需要，老板需要我熟悉 Delphi 控件，方便设计控件样式。在本人长期的自我摸索与学习中学到了点东西，因为关于 style 的设计的资料不多，我写一些自己的经验，发表出来，希望能帮助像我一样的菜鸟。如果你是高手就请路过···我本是菜鸟，只为小白提供服务，因为我只能做到这里了··· 下面我说下如何将 style 样式应用到你的窗体上，另外如何导出设计
自定义控件那些事儿 ----- 七【绘制Bitmap】
未来~超越自己
12-06 752
一、环境设置 本章节学习渲染Bitmap图片。定制展示效果的Demo。 1，创建自定义控件 /** * 自定义控件 */ public class CustomView extends View { /** * 笔头设置 */ private Paint mPaint; /** * 绘图资源文件 */ pr
delphixe delphi-opencv-master ToBitmap 详细代码
最新发布
06-07
以下是使用 Delphi-OpenCV 库在 Delphi XE 中将 IplImage 对象转换为Bitmap 对象的详细代码： ```delphiuses OpenCV_Core, OpenCV_ImageProc, // Delphi-OpenCV 库单元 Vcl.Graphics; // VCL 图形单元 function IplImageToBitmap(const Image: pIplImage): TBitmap; var Depth, Channels: Integer; LineSize: Integer; ImageData, SrcLine, DestLine: Pointer; Bitmap: TBitmap; Row, Col: Integer; Data: Byte; begin Depth := Image.depth; Channels := Image.nChannels; LineSize := Image.width * Channels; // 分配 Bitmap 对象 Bitmap := TBitmap.Create; Bitmap.PixelFormat := pf24bit; Bitmap.Width := Image.width; Bitmap.Height := Image.height; // 按行遍历 IplImage 数据并转换为 TBitmap 数据 ImageData := Image.imageData; for Row := 0 to Image.height - 1 do begin SrcLine := ImageData + Row * Image.widthStep; DestLine := Bitmap.ScanLine[Row]; case Depth of IPL_DEPTH_8U: begin for Col := 0 to Image.width - 1 do begin Data := PByte(SrcLine + Col * Channels)^; PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_8S: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PShortInt(SrcLine + Col * Channels)^); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_16U: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PWord(SrcLine + Col * Channels)^ shr 8); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_16S: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PShortInt(SrcLine + Col * Channels)^ shr 8 + 128); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_32S: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PInteger(SrcLine + Col * Channels)^ shr 24); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_32F: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PSingle(SrcLine + Col * Channels)^ * 255); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; IPL_DEPTH_64F: begin for Col := 0 to Image.width - 1 do begin Data := Byte(PDouble(SrcLine + Col * Channels)^ * 255); PByte(DestLine + Col * 3)^ := Data; PByte(DestLine + Col * 3 + 1)^ := Data; PByte(DestLine + Col * 3 + 2)^ := Data; end; end; end; end; Result := Bitmap; end; ``` 使用方法： ```delphi var Image: pIplImage; Bitmap: TBitmap; begin // 加载图像到 Image 变量中 Image := cvLoadImage('image.jpg'); // 将 IplImage 对象转换为 TBitmap 对象 Bitmap := IplImageToBitmap(Image); // 将 TBitmap 对象显示在 TImage 组件上 Image1.Picture.Assign(Bitmap); // 释放 IplImage 对象内存 cvReleaseImage(@Image); end; ``` 需要注意的是，由于 Delphi-OpenCV 库中的 IplImage 对象是指针类型的，因此需要传入指针的指针作为参数。在使用完毕后，需要手动释放 IplImage 对象的内存。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值