qq_43466604-优快云博客

原创 ScreenCap

procedure TForm1.ScreenCap(LeftPos, TopPos, RightPos, BottomPos: Integer);var RectWidth, RectHeight: Integer; SourceDC, DestDC, Bhandle: Integer; Bitmap: TBitmap;begin RectWidth := RightPos...

2019-01-16 15:46:04 1154

原创两张BMP图片叠加

procedure BlendImage(BackBmp, ForeBmp: TBitmap; TransColor: TColor; Alpha: Integer);type TRGBArray = array[0..32767] of TRGBTriple; PRGBArray = ^TRGBArray;var X, Y, OffX, OffY: Integer; B...

2019-01-02 13:20:03 1685 2

原创根据文件头确认文件类型

function ExtractFileHead(Stream: TStream): string; overload;var tmpPos: Longint; dwHead0, dwHead1: Word;begin Result := ''; if Assigned(Stream) then try tmpPos := Stream.Position; ...

2019-01-01 11:51:51 270

原创检校MD5

uses IdHashMessageDigest, IdHash; { 从流中校验数据的MD5值 }function MD5Stream(const Stream: TStream): string;var MyMD5: TIdHashMessageDigest5; Digest: T4x4LongWordRecord;begin Result := ''; try...

2018-12-07 11:37:36 177 1

原创使自定义右键菜单快捷键生效

function TCustomThumbView.IsMenuKey(var Message: TWMKey): Boolean;var LocalPopupMenu: TPopupMenu;begin Result := True; if not (csDesigning in ComponentState) then begin LocalPopupMenu :...

2018-12-06 13:15:27 703

原创 ObjectList模板

TObjects = class(TObject) private FItems: TList; function GetCount: Integer; function GetItem(Index: Integer): TObject; public constructor Create; virtual; destructor Destro...

2018-11-28 09:38:24 131

原创图像比例缩放

function ScaleRect(var dst: TRect; ref: TRect): Boolean; overload;var dw, dh, rw, rh: Integer; xyscale: Double;begin dw := dst.Right - dst.Left; dh := dst.Bottom - dst.Top; rw := ref.Righ...

2018-11-08 11:43:06 385

原创 image 控件加载bmp、JPG、GIF、PNG等图片的办法

procedure TForm1.Button1Click(Sender: TObject);var jpg: TJPEGImage; // 要use Jpeg单元 png: tpngimage; gif: tgifimage;begin jpg := TJPEGImage.Create; jpg.LoadFromFile('...\pic.jpg'); Image1...

2018-11-08 09:37:03 3995

原创 Delphi Try Except 实例

try except raise Exception.Create('123'); exit; end; try except ShowMessage(Exception(ExceptObject).Message); exit; end; try except on e:Exception do be...

2018-11-02 11:03:18 3897