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;

【原创】delphi fmx 从App程序直接跳转到支付宝付款转帐页面和直接跳转到某页面方法

如果程序要用到捐款转帐给自己的功能,以下代码可以非常方便地一键跳转到让对方转帐换给自己的付款页面,这个功能还是很实用的。
// 要用到的单元
uses
   Androidapi.JNI.GraphicsContentViewText,  Androidapi.Helpers;

标签

delphi 安卓原生的Toast温柔提示

有时候我们写程序要给用户一个提示,但是又不想让用户点击。
为了更好的客户体验,可以试试安卓原生的温柔提示。

//要用到的单元
uses
  Androidapi.JNI.Widget,  Androidapi.Helpers;

//使用方法

procedure TForm1.Button1Click(Sender: TObject);
var
   AToast: JToast;
begin
   AToast:= TJToast.JavaClass.makeText(TAndroidHelper.Activity.getApplicationContext()
                                     ,StrToJCharSequence('原生Toast提示, www.delphifmx.com ')
                                     ,TJToast.JavaClass.LENGTH_SHORT);
   AToast.setGravity(17, 0, 0);
   AToast.Show();

标签

创建Win桌面快捷方式,实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

本程序为创建windwos系统桌面快捷方式代码,利用它可以实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

// 引用单元  
uses
  Winapi.ShlObj, System.Win.ComObj, Winapi.ActiveX, System.Win.Registry;