【原创】delphi TAlphaColor 和  TColor  相互转换

System.UITypes 单元有  TColor 类型  和  TAlphaColor 类型  这个2颜色声明,
TColor 是没有透明属性的,  TAlphaColor 是可以表示 透明明 。

// 分享 我的2个函数 ,让 TAlphaColor 和  TColor  相互转换
function ColorToAlphaColor(AColor:TColor; Alpha:Byte=$FF):TAlphaColor;
begin
  TAlphaColorRec(Result).A := Alpha;//TAlphaColorRec.Alpha;
  TAlphaColorRec(Result).R := TColorRec(AColor).R;
  TAlphaColorRec(Result).G := TColorRec(AColor).G;
  TAlphaColorRec(Result).B := TColorRec(AColor).B;
end;

Delphi 世界时间转换

在网页上经常使用世界时间,但是往往 本地使用的时候,都要转成本地时间 和 时间类型的。这样就很好地可以把网页或网站上的世界时间同步到本地来。


世界时间转换,如:    Sun, 10 May 2020 21:49:45 GMT
在 IdGlobalProtocols 单元有一个函数 ,GMTToLocalDateTime 它可以转换 TDateTime 时间类型
使用方法

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TDateTime;
begin
  t:= GMTToLocalDateTime('Sun, 10 May 2020 21:49:45 GMT');
  Showmessage( FormatDateTime('yyyy-mm-dd hh:nn:ss', t)  );
end;

那么怎样使用时间类型转换成 世界时呢 ,函数如下,它可以把 时间类型TDateTime转成世界时字符串

【原创】delphi fmx 把 Bitmap 类 bmp格式图片转成其它图片jpg;jpeg;png;gif;tif;tiff;ico;hdp;wmp;tga;icns格式

图片格式转换是经常要用到的,这里使用Delphi自带的图片格式处理功能,可以把图片转换成任意的格式,可以非常方便使用在于 PC ,安卓拍照,和图片存储方面


// 把 bmp 转换成其它图片文件格式 如: jpg; jpeg; png; gif; tif; tiff; ico; hdp; wmp; tga; icns 等。此方法适用于移动端 
// 需要引用的单元
uses
   FMX.Surfaces, FMX.Consts;

Dev控件 新版本透明滚动条设置为旧板直观拖动

如下图的透明隐藏滚动条(包括Dev其它控件的滚动条),有时不方便操作,要把它设置为以前的。只要简单的设置 TouchScrollUIMode 属性就可以

  if xxx is TcxCustomEdit then
  begin
    TcxCustomEdit(xxx).Style.LookAndFeel.TouchScrollUIMode := tsmDisabled;
  end else begin
    xxx.LookAndFeel.TouchScrollUIMode := tsmDisabled;
  end;

 

标签

Dev控件 CxGrid基本功能的应用(非常感谢佬哥提供demo)


procedure TForm1.cxCheckBox5Click(Sender: TObject);//允许过滤
begin
  cxGrid1DBTableView1.OptionsCustomize.ColumnFiltering:=cxCheckBox5.Checked;
end;

procedure TForm1.cxCheckBox6Click(Sender: TObject);//显示分组栏
begin
  cxGrid1DBTableView1.OptionsView.GroupByBox:=cxCheckBox6.Checked;
end;

标签

【原创】记录Oracle的一个排序方法,让数字字符串按字符长度后数字顺序排序

直接使用结果: select 字段2 from 表名 order by 字段2 

“”

to_number()函数是oracle中常用的类型转换函数之一,
是将一些处理过的按一定格式编排过的字符串变回数值型的格式。

translate() 是一次替换多个单个的字符

使用排序结果 : select 字段2 from 表名 order by to_number(translate(字段2, '0123456789' || 字段2, '0123456789')) 

标签

delphi 创建控制台程序并控制输出颜色

delphi 创建控制台程序  New -> Other ->console Application . 为了让程序输入的内容更佳直观,标示重点内容。可以给显示输入颜色

Winapi.Windows 单元 

前景色,也就是字体颜色 
  FOREGROUND_BLUE    蓝
  FOREGROUND_GREEN    绿
  FOREGROUND_RED    红
  FOREGROUND_INTENSITY    高亮前景色
以前4个代表背景色。
  BACKGROUND_BLUE
  BACKGROUND_GREEN
  BACKGROUND_RED
  BACKGROUND_INTENSITY

除了蓝绿红这三基色外,颜色可以组合相加,得到新的颜色。

 

// 我的程序 代码如下

program Comm;

{$APPTYPE CONSOLE}

{$R *.res}

【原创】绘制一个类似硬盘检测工具显示的表格

表格绘制,表格每列显示100个,每行数显示自定义。 此代码可以让你绘制大数据表格,需要的同学可以学习使用

// 单元代码 

unit uMyGrid;

interface

uses
  Vcl.Grids, Data.DB, Vcl.Menus,  System.Types, System.Classes, Vcl.ImgList, System.UITypes,
  Vcl.Graphics, Vcl.Forms;

// www.delphifmx.com  大悟还俗
type
  TGridEvent = procedure(Sender: TObject; Index: UInt64) of object;