游子日月长

摘要： type TPtArray = array[0..0] of TPoint; PPtArray = ^TPtArray; procedure DrawDynamicPolyArray(NumPoints : integer; Canvas : TCanvas); var p : PPtArray; i : integ... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var OldTextColor : TColorRef; OldBkColor : TColorRef; OldBkMode : Integer; begin OldTextColor := SetTextColor(Form1.Canvas.Handle, RGB(0, 0, 25... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var OldBkMode : integer; begin with Form1.Canvas do begin Brush.Color := clRed; FillRect(Rect(0, 0, 100, 100)); Brush.Color := clBlue; ... 阅读全文

摘要： {This way uses a File stream.} Procedure FileCopy( Const sourcefilename, targetfilename: String ); Var S, T: TFileStream; Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T... 阅读全文

摘要： type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftSta... 阅读全文

摘要： procedure TForm1.FormResize(Sender: TObject); begin InvalidateRect(Form1.Handle, nil, false); end; 阅读全文

摘要： 快速将某一区域的颜色取反,主要应用在制作表格时的选择区域. API函数:PatBlt(MyHDC:HDC;X,Y,WIDTH,HEIGHT:INTEGER;MODE); 例如: var MyDC:HDC; Begin MyDC:HDC; MyDC:=GetDC(Form1.Handle); if n 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var dc : hdc; MemDc : hdc; MemBitmap : hBitmap; OldMemBitmap : hBitmap; begin {Get the handle to the screen's dc} dc := GetDc(0); {Create a... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var bm : TBitmap; il : TImageList; begin bm := TBitmap.Create; bm.LoadFromFile('C:\DownLoad\TEST.BMP'); il := TImageList.CreateSize(bm.Width,... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);(*压缩MBP为JPEG;但是没有提供压缩比可选项凑合用吧，大概1/3 ^_^:Note:必须加上JPEG到Uses单元*)varMyJPEG : TJPEGImage;MyBMP : TBitmap;be 阅读全文