先看一下实际项目中的运行效果,如图,通过品牌的导航栏,显示不同品牌的商品列表. 完全基于ChinaCock控件包中CCNavigateTitle组件实现的,这是一个可视控件,从组件面板上拖放一个到Form上,然后做如下设置: object CCNavigateTitle1: TCCNavigateTitle Align = Top Appearence.IndicatorFill.Color = claCadetblue Appearence.IndicatorStroke.Color = cl…

这是一个显示等待状态的控件,当在线程中执行一个稍长时间的任务,需要显示一个等待过程,免得让用户不知app在做什么?避免用户寂寞. 先看看这个控件的属性说明: BackgroundTransparency:指这个控件显示时,背景是否透明,默认False,当设置为False时,等待界面会锁定背后的控件,不允许用户操作.很多时间,我们需要设置他为False,防止app在执行查询时,用户还会有其他的操作. Fill:显示控件的填充颜色 Height:高度 LoadingBitmap:显示的图片,默认情况…

Delphi原生控件支持日期的选择,但对于只选择年月的情况,则没有好的实现.TCCYearMonthSelector正是为解决这个问题而产生的.看看运行效果图: 用法一如即往的简单,这是一个不可视控件,拖一个到Form上,现在只有一个属性Value,设置初始值,然后象下面这样调用: procedure TKCReportDoc.MenuTextClick(Sender: TObject); begin inherited; CCYearMonthSelector1.Show( procedure…

有多个图片,左右滑动可以切换,通过手势还可以放大.缩小查看,象常见的相册,就是这样子实现效果. 现在,我们有了TCCImageViewerForm组件,也可以轻松实现这样的场景应用. 现在看看TCCImageViewerForm用法,一如既往的简单. TCCImageViewerForm是一个不可视控件,拖放一个到Form上,然后调用他的两个方法,一个是增加图片Add,一个是显示图片ShowForm. procedure TForm1.CCGridPictureEditor1ItemClick(…

即将发布的ChinaCock新版本,将带来一个CCButton控件,实现可视按钮.Delphi原生的Button,在上面滑动后,当释放手指时会误触发OnClick事件,这不是我们想要的结果,CCButton完美解决了这个问题! 现在,可以看一下这个控件的用法,这是一个可视控件,从组件面版拖放一个TCCButton到Form上,然后定义他的外观样式: 1.Fill:这个属性定义按钮的颜色,用法与原生控件的Fill一样,默认为白色 2.Text:定义按钮显示文字 3.TextSettings:定义文…

Android 4.4之后谷歌提供了沉浸式全屏体验, 在沉浸式全屏模式下, 状态栏. 虚拟按键动态隐藏, 应用可以使用完整的屏幕空间, 按照 Google 的说法, 给用户一种 身临其境 的体验.而Android 5.0之后谷歌又提出了 ColorPalette 的概念,让开发者可以自己设定系统区域的颜色,使整个 App 的颜色风格和系统的颜色风格保持统一. 在没有CCSystemBar之前,用Delphi实现上面的功能,是件很麻烦的事情,前期的博文也有写这方面的实现.现在这一切变的简单了! 先…

条码生成器,可以生成各种条码,包括二维码.这是一个不可视控件.用起来依旧简单. 属性说明: BarCodeColor:生成条码的颜色 BarcodeFormat:生成条码的类型,支持的条码类型: BottomText:底部的文字 BottomTextColor:底部文字的颜色 BottomTextLinePaddiung: BottomTextPadding: BottomTextSize: Code:条码的内容 ImageHeight: ImageWidth: IncludeLogo: Log…

CCGridPictureEditor如其名,网格图片编辑控件,实现利用一个网格来显示多张图片的缩略图,这是一个非常实用的控件,实现类似微信朋友圈中发布多张图片的功能. 在没有这个控件之前,我都是用Delphi自带的GridLayout来自己组织管理这种业务场景,虽然实现了同样的功能,但要写的代码还是太多,现在有了CCGridPictureEditor,一切都变的简单. 先看一下这个控件的属性与事件: 如上图,我用红色框标记出了这个控件主要的属性与事件,其中: Appearence:定义控件的外…

上图是控件包里的Demo运行效果,轮播新闻图片. 这个控件用起来简单,拖放一个CCNewsSiler到Form上,设置Align为Top,再设置好高度,然后用代码加载图片: procedure TForm1.Button2Click(Sender: TObject); begin CCNewsSilder1.BeginUpdate; try self.CCNewsSilder1.Add('移动信息化专家', 'url|http://www.jaina.cc/weixin/galley/image…

项目中遇到,要蓝牙针式打印机,用手机打印表单.感谢专家,对厂家提供的SDK进行了封装,实现利用Delphi开发出这一功能. 现在来看看,如何利用这一控件实现打印过程: procedure startScanDevices; procedure stopScanDevices; function getScanedDevices: TList<TCCFujitsuPrinterDevice>; function openConnection(ADevice: TCCFujitsuPrinterD…