摘要：if (GetDeviceCaps(Canvas.Handle, TECHNOLOGY) and DT_METAFILE) = DT_METAFILE then IsMetafileDc := True; 阅读全文

摘要：procedure RGBTOCMYK(R : byte; G : byte; B : byte; var C : byte; var M : byte; var Y : byte; ... 阅读全文

摘要：http://www.txsz.net/xs/delphi/1/NewTopic253.htmYou must create two bitmaps, a mask bitmap (called the "AND" bitmap) and a image bitmap (called the XOR bitmap). You can pass the handles to the "AND" a... 阅读全文

摘要：procedure TForm1.Button1Click(Sender: TObject); var lb : TLogBrush; begin lb.lbStyle := BS_SOLID; lb.lbColor := RGB(255, 0, 0); lb.lbHatch := 0; Form1.Canvas.Pen.Handle := ExtCreatePen(... 阅读全文

摘要：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; 阅读全文

摘要：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... 阅读全文

摘要：快速将某一区域的颜色取反,主要应用在制作表格时的选择区域. 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 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 阅读全文

摘要：在开发多媒体应用中,经常会遇到需要在有限区域内显示大图像的情况,有不少文章对此提出过解决方法,如通过调用Windows的API函数,直接读写内存等。这些方法有某些优点,但实现起来较为复杂,且易出错。笔者在实践中通过仔细摸索,利用Delphi的强大的面向对象可视化开发环境开发了一种交互式图像漫游方法。 阅读全文

摘要：P := Bitmap.Scanline[y]; x := 0; while x <= Bitmap.width*3 -1 do begin P[x] := 200; //Blue P[x+1] := 200; //Green P[x+2] := 200; //Red inc(x,3) end; 阅读全文

摘要：One way to create a bitmap from a pixel array is to use the Windows API function CreateDiBitmap(). This will allow you to use one of many device independent bitmap formats that Windows uses to sto... 阅读全文

摘要：procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(ColorToString(clRed)); Memo1.Lines.Add(IntToStr(StringToColor('clRed'))); end; 阅读全文

摘要：var Bitmap: TBitmap; begin Bitmap:=TBitmap.Create; Bitmap.LoadfromFile({'Whatever.bmp'}); With Image2.Picture.bitmap do Begin Width:=Bitmap.Width; height:=Bitmap.Height; Palette:=Bitmap.... 阅读全文

摘要：procedure TForm1.Button1Click(Sender: TObject); var lpPalette : PLogPalette; hPal : hPalette; i : integer; begin {Allocate the memory used by the palette} GetMem(lpPalette, sizeof(... 阅读全文