自从 XE8 提供 ImageList 带来了很多便利,但 SpeedButton 的图标太小(不够大气),还好 FMX 提供了 Style 可供使用者自订图标大小及显示位置,请自行按图索骥,做一遍: 开一个新工程. 放一个 SpeedButton. 放一个 ImageList. 在 ImageList1 点二下,加入一些图标. 设定 SpeedButton 的 Images 及 ImageIndex (见下图): 在 SpeedButton 按鼠标右键,选 "Edit Default Styl…
研究zlib库,想实现一个类似winrar功能的小东东,打开winrar界面看它的工具栏比较好看于是动手想做一个,当然资源也使用的是winrar附带的.下面是截图:真彩色(32位)32*32大图标工具栏 我得工具栏风格 smile风格 代码下载 感触:软件功能重要,软件的形象也重要.好的UI界面给优美的感觉,小软件要花哨,大软件要庄重. from:http://www.cppblog.com/wlwlxj/archive/2006/11/09/14897.html…
Delphi xe8 FMX StringGrid根据内容自适应列宽. 网上的资料比较复杂,而且不是根据字体字号等设置列宽.故自己写了个function来用. function GetColMaxDataLength(ASGrid: TStringGrid): TObject;var  MaxColLength,                  //列数据的最大长度  CellLength: Single;            //单元格长度  ACol,ARow: Integer;begi…
Oracle大表改为分区表及表空间切换方案 一.            背景 由于之前数据库表和索引放在一个表空间导致表空间数据文件增长太快,文件数量即将达到Oracle表空间的限制,需要对表(没有分区,有些表数据量多达几十亿,文件大小TB级)进行表空间迁移,并对某些表改造为分区表. 二.            可选方案分析 1.    使用IMP/EXP 导入(import)导出(export)工具年头已久,将数据导出为二进制文件,将会在11g r2之后废弃,只用于遗留数据的导入导出 此工具可…
说明:TGridLayout 提供计算容器内控件等分的功能: 横式(Orientation=Horizontal)可将 ItemWidth = -1(小于0则自动等分) 直式(Orientation=Vertical)可将 ItemHeight = -1(小于0则自动等分) 问题:当 TGridLayout 设定 Padding 边界时,会造成等分计算错误. 适用:XE8 Firemonkey 修复方法: 请将源码 FMX.Layouts.pas 复制到自己的工程目录里,再进行修改. 找到: i…
问题:XE8 Firemonkey Windows 无法列印旋转文字(与显示在视窗里的代码相同时) 适用:XE8 Windows 平台(其它平台测试没问题) 修复前效果: 修复后效果: 修复方法: 请将源码 FMX.Printer.Win.pas 复制到自己的工程目录里,再进行修改. 找到 TPrinterWin.GetCanvas 函数,修改如下: uses System.Math.Vectors; // 加入这个 ..... 省略 ...... function TPrinterWin.Ge…
一.下载自己想要的矢量图标,然后在AI中打开二.在AI中将有瑕疵的图标修改一下,再分别另存为svg格式的图标三.打开IcoMoon Web app网页,然后点击左上角的+Import Icons添加你保存的svg格式的图标四.你也可以添加IcoMoon Web app网页原有的图标,图标外框变橘黄时就是你选中的图标(可多选)五.选择好后点击网页右下角Generate Font进入生成页面六.你可以根据你的爱好编辑一个字体名称以便后期调用七.全部改好后就点击右下角的Download把字体下载下来,…
<!DOCTYPE html> <html> <head> <meta charset="utf-8" /> <meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1"> <title>Title</title> <link href="JS/tool/zTree/css/zTreeS…
--select * from sys.partition_functions --select * from sys.partition_range_values use [UpdateLog] go CREATE TABLE [dbo].[ActionLog]( ) NOT NULL, ) NULL, ) NULL, [ActTime] [datetime] NULL, ) NULL, [ActType] [int] NULL, ) NULL, ) NULL, ) NULL, ) NULL,…
SendMessage(this.listViewChart.Handle,   LVM_SETICONSPACING,   0,   0x10000   *   140   +   130); 其中 140控制行距,130控制列距…