delphi vcl 的 TPageControl 控件,实现对页签的拖动

delphi vcl 的 TPageControl 控件,实现对页签的拖动

我们在TPageControl 控件里 放了几个页签,但很多时候我们的需求是把某个页签放前面 和 另一个旁边的方便切换做对比。这个可以有更好的体验,类似Delphi IDE编辑器一样切换页签。

分别 在 DragDrop 、DragOver 、MouseDown 事件写上对应代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

【原创】用 Delphi Fmx 绘制非常精确的 时分秒针

绘制时钟可以非常直观得看到时间,方便的客户体验,但是网上的绘制都是 1秒 1秒绘制,我这里把时分秒角度非常精确绘制出来。看到起让人更佳舒畅。

下面开始教学使用方法:

界面上放上  Circle 作为时针盘面。

然后放入 TLine    作为 时 分 秒  命名为     LSec;    LMin;    LHou;

最后放一个 Timer ,间隔触发修改为 6 ,让Timer第6豪秒 实时改变时分秒的角度

“”

最后在 timer事件写下计算代码如下:

【原创】Delphi GridPanelLayout 控件 value 值一直无法设置想要结果问题,可以动态设置

当 设置 多个 RowCollection  或 ColumnCollection 时,发现它是不会得到你想要的值的,因为当你在设置的时候,另一个节点其实也在触发 change 的 ,所以很难得到想要的平均值,这时我们可以动态设置 代码如下:

【原创】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;