摘要:
//Canvas 在Image控件中绘制文字procedure TForm1.Button1Click(Sender: TObject);beginimage1.Canvas.Font.Size:= 72; //设置文字大小image1.Canvas.TextOut(1,1,'Delphi'); //输出文字end;来自为知笔记(Wiz) 阅读全文
摘要:
//Canvas绘图Canvas方法 CDC方法 功能Arc Arc 画一个椭圆弧Chord Chord 画一根玄。CopyRect 拷贝指定矩形区域中图象到指定矩形Draw BitBlt 拷贝位图Ellipse Ellipse 画椭圆FillRect PaintRgn 使用刷子填充一个又一个矩型FloodFill FloodFill 用当前刷子填充区域FrameRect Fr... 阅读全文
摘要:
如何背景透明 unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;typ... 阅读全文
摘要:
http://stackoverflow.com/questions/11459568/issue-with-rebuilding-and-saving-gifs-using-tgifimage 将图片序列如 01.jpg 02.jpg 03.jpg... 保存GIF是什么原理 多个JPG文件 合并成一个GIF文件 写入uses Vcl.Imaging.GIFImg, Vcl.Imaging.p... 阅读全文
摘要:
拷贝剪贴板图像到窗体 procedureTBitmap.LoadFromClipboardFormat(AFormat:Word;AData:THandle;APalette:HPALETTE);
uses Clipbrd;
procedureTForm1.Button1Click(Sender:TObject); var Bmp:TBitmap; begin... 阅读全文
摘要:
uses pngimage;{显示 png 图片}procedure TForm1.Button2Click(Sender: TObject);varpng: TPngImage;beginpng := TPngImage.Create;png.LoadFromFile('C:\Temp\Test.png');Canvas.Draw(0, 0, png);png... 阅读全文
摘要:
将图片转换成字符 delphi的*.dfm文件
mht的文件 //------------------------------------------------------------------------------ //jpg转换为txt字符串 //JpegToText('C:\1.jpg', 'C:\1.txt');functionJpegToText(jpgFileN... 阅读全文
摘要:
// 复制图片的一部分procedure TForm1.Button1Click(Sender: TObject);varBitmap: TBitmap;MyRect: TRect;beginMyRect := Rect(10,10,100,100);//定义复制范围Bitmap := TBitmap.Create; //生成Bitmap对象Bitmap.Load... 阅读全文
摘要:
function ReverseString(s: string): string;var i: integer; s1:string;begin s1 := ''; for i := 1 to Length(s) do s1 := s[i] + s1; Result:=s1;end;procedure TForm1.Button1Click(Sender: TObject);be... 阅读全文
摘要:
uses ActiveX;
procedure TForm1.BtnNewClick(Sender: TObject);var ID: TGUID; S: string;begin if CoCreateGuid (Id) = s_OK then begin s := GUIDToString (Id); Memo1.Lines.Add (S); end;end;
来自... 阅读全文
摘要:
//获得汉字字符个数function ChineseWordsCount(text:string):Integer;var i,sum,e,c,t: Integer;begin Result:=0; c := 0; sum := Length(text); if Sum=0 then exit; for i := 0 to sum do begin if Ord(text[... 阅读全文
摘要:
随机字符串生成functionTfrmPWGenerate.btnGenerateClick(Sender: TObject):string;{max length of generated password}constintMAX_PW_LEN=10;vari: Byte;s:string;begin{if you want to use the 'A..Z' ch... 阅读全文
摘要:
判断字符串是否一样.TXT .txt .TxT 为一样的SameTextCompareStrfunctionSameText(constS1, S2:string): Boolean; ifSameText('.txt','.tXT')then ShowMessage('Same'); 来自为知笔记(Wiz) 阅读全文
摘要:
//将edit1中的每个字符串改为首字母大写procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginwith Sender as Tedit doif (text = '') or (text[selstart] = ' ') or ( sellength = length( text ) ... 阅读全文
摘要:
把7za.exe 复制到 C:\Windows\System32下面 按时间命名备份 备份前 请退出WIZ C:\Users\Administrator\Desktop\7za.exe a C:\Users\Administrator\Desktop\abc.7z C:\Users\Administrator\Desktop\test set m... 阅读全文