图形图像共222篇

delphi从imagelist中获取透明背景图片的方法

Bitmap:= TBitmap.Create(); Bitmap.TransparentMode := tmFixed; //必须在getBitmap前设置 Bitmap.Transparent := True; if (ImageList.GetBitmap(SubMenu.Tag, Bitmap)) then begin Bitmap.Tr...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0526

Delphi 如何将颜色值转换为灰度颜色值?

function RgbToGray(Source: TColor) : TColor;var Target: Byte;begin  Target := Round((0.30 * GetRValue(Source)) + (0.59 * GetGValue(Source)) + (0.11 * GetBValue(Source))); ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04112

Delphi 在电脑屏幕上显示图片

procedure TForm1.Button1Click(Sender: TObject);varaCanvas:TCanvas; i:Tbitmap;beginaCanvas:=TCanvas.Create;i:=tbitmap.Create;i.LoadFromFile('c:.bmp');    try  &...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05313

Delphi 对非活动窗口进行屏幕截图

function WindowSnap(windowHandle: HWND; bmp: TBitmap): boolean;var  r: TRect;  user32DLLHandle: THandle;  printWindowAPI: function(sourceHandle: HWND; destinationHan...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04614

delphi 加载图像并压缩,旋转图像角度

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Imaging.jpeg,  Vcl.Controls, Vcl.Form...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05610

function IsPhoto(AFile:string):Boolean;var   //声明变量   MyImage:TMemoryStream;   //内存流对象   Buffer:Word;   i:integer;begin&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0389

delphi 图像文件加载到剪切板,再从剪切板绘制图像

描述下面的代码在按下按钮时从剪贴板绘制位图图像。要将图标放置在剪贴板上,必须在LoadFromClipboard按钮之前选择SaveToClipboard按钮。uses Clipbrd;procedure TForm1.Button1Click(Send...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
06211
delphi 获取剪切板图像-Delphi编程技巧大全

delphi 获取剪切板图像

源代码: https://pan.baidu.com/s/1s921i0M-VFaW-8z7yYeozQ 提取码: jkq3unit Unit8;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classe...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0369

uses  JPEG;function CanLoadFromStream(Stream: TStream): Boolean;var  soi, marker: Word;  P: Int64;begin  P := Stream.Position;  try    Result := ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
02511
-Delphi编程技巧大全

测试环境及功能Win7 64位操作系统Delphi 10.2.3Firemonkey功能:Delphi显示圆形头像procedure TForm5.Button1Click(Sender: TObject);var path : string;begin  {$IFDEF MSWINDOWS}  ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
06112

Delphi jpg图像加文字水印

uses JPEG;procedure TForm1.FormCreate(Sender: TObject);Var   Img    : TBitmap;   Jpg    : TJPEGImage;Begin       Try&nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03515
-Delphi编程技巧大全

unit beziertext;interfaceuses  Windows, Graphics, Math;procedure TextAlongBezier(canvas: TCanvas;  bezierPts: array of TPoint; const s: string);implementation//----------...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04111

Delphi GetFileType 判断图像文件类型

function GetFileType(FileName: String): string; var  MyImage:TMemoryStream;  Buffer:Word;  i:integer;begin  Result := 'Err';  MyImage:=TMemoryStream.C...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04811

Delphi 内存流方式获取页面验证码图片

显示图片 var  png: TPngImage;begin  png := TPngImage.Create;  png.LoadFromFile('F:DelphiSourceyzm_demoWin32Debugyzm.png');  img1.Picture.Bitmap.Assign(png)...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04013

uses  Vcl.Imaging.pngimage, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.St...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0376

Delphi 图像操作

//预定义var //在此之前可用const定义常量//定义图像绘制序列Pic:array[1..16] of byte=(2,2,2,3,3,3,4,4,5,4,5,4,9,10,10,11);//定义基层图像与临时图像FormBmp,TempBmp:TBitmap;//定义点P,PX,...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0648

Delphi png 图片的十六进制字符流

uses pngimage;{从 png 图片到十六进制字符串}function Png2Hex(png: TPngImage): string;var  stream: TMemoryStream;begin  stream := TMemoryStream.Create;  png.SaveToStre...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0408

Delphi bmp jpg 转换保存

function BMPsaveJPGfile(bmp: TBitmap;jpgFilename:string;ACQ:integer):boolean;Var  jpg:TJpegImage;  I:TBitmap;  S,D:String;begin   result:=false;  Jpg:...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0638

Delphi Canvas.LineTo 画线

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin  { First call FillRect to paint the surface of the form.    This removes any...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0679

var  x, y, i, j, k, r1, r2, g1, g2, b1, b2: longint;begin  r1 := 25;  r2 := 25;  g1 := 125;  g2 := 225;  b1 := 250;  b2 := 25;  for i := 0 t...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0369

unit RoundImageForm;interfaceuses  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX....
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0369

procedure TForm1.CheckImgType(fn: string);var  MyImage: TMemoryStream;  Buffer: Word;  i: integer;begin  MyImage := TMemoryStream.Create;  try   ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03212

电脑端微信收到图片后是存在了“C:Users系统用户名DocumentsWeChat Files微信帐号Data”目录下的,但文件不能直接使用图片浏览器打开的,因为做了一些加密,之前有个朋友问我这些文件怎么解密,...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0329

function JpgToBmp(FilePath: string): string; var     MyJPEG: TJPEGImage;     MyBMP: TBitmap;     s: string; begin     Re...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03812

Delphi 压缩图片(BMP、JPG、PNG)

function CompressImageFile(FileName: string;  Width, Height: integer; PressQuality:Integer= 90): Boolean;   function GetNewSize(OldWidth, OldHeight: integer; NewWidt...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0619

Delphi VCL GIF 动画

Delphi XE10 的 VCL 已经内置支持 GIF,不需要第三方控件。uses Vcl.Imaging.GIFImgprocedure TForm2.Button1Click(Sender: TObject);begin  Image1.Picture.LoadFromFile('E: tabc.gif');...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03310

delphi从CodeGear时期就已经将网上广为流传的TGIFImage控件(源文件名是GIFImage.pas)集成到VCL中,使用方法与原版的TGIFImage存放轻微差别,首先引用单元 Vcl.Imaging.GIFImg,配合 TImage 控...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03515

delphi 释放bitmap

delphi 释放bitmapvar  bmp: TBitmap;begin  bmp := TBitmap.Create;  bmp.LoadFromFile('2s.bmp');  bmp.Dormant;  bmp.FreeImage;  bmp.Monochrome := true;&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0508

delphi JPG图片 旋转 切边 缩放

unit UCutFigure_JPG;//JPG 切图interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,     Dialogs, ExtCtrls, StdCtrls,Math, jpeg&nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0499

Delphi 读取PNG base64编码文件生成图片

uses NetEncoding,PNGImage;procedure TForm1.FormCreate(Sender: TObject);var  LInputStream: TFileStream;  LOutputStream: TMemoryStream;  Png: TPNGImage;begin  LIn...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0539