- 博客(2)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 图片转换
delphi十六进制字符串hex转byte数组互相转换bmp图片 原文链接 https://www.cnblogs.com/jijm123/p/11470755.html procedure Hex2Png(str: string; out png: TPngObject); var stream: TMemoryStream; begin if not Assigned(png) then...
2020-02-28 10:52:53
173
原创 delphi 图片旋转 左转90 右转90 顺时针，逆时针旋转
delphi 图片旋转 左转90 右转90 顺时针，逆时针旋转 见代码 unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CnsJpgGr, ExtCtrls, StdCtrls, Math; type TForm...
2020-02-27 10:24:43
1281
delphi图片旋转.rar
delphi 图片旋转 左转90 右转90 顺时针，逆时针旋转
type
TForm3 = class(TForm)
btn1: TButton;
img1: TImage;
btn2: TButton;
btn3: TButton;
btn4: TButton;
btn5: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
private
{ Private declarations }
TmpBitMap, desMap: TBitmap;
procedure RotateL(Bitmap: TBitmap);
procedure RotateR(aBitmap: TBitmap);
public
{ Public declarations }
end;
2020-02-26
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人