游子日月长

摘要： 在开发多媒体应用中,经常会遇到需要在有限区域内显示大图像的情况,有不少文章对此提出过解决方法,如通过调用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(... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject); var m : TmetaFile; mc : TmetaFileCanvas; b : tbitmap; begin m := TMetaFile.Create; b := TBitmap.create; b.LoadFromFile('C:\SomePath\Som... 阅读全文

摘要： 从资源里载入图象而不丢失调色板 procedure loadgraphic(naam:string);var { I've moved these in here, so they exist only during the lifetime of the procedure. } HResInfo 阅读全文

摘要： The Windows 3.1 and Windows 95 GDI heap is limited in regards to scan converting large and complex regions such as Ellipses, Polygons, and PolyPolygon 阅读全文

摘要： 国庆节快乐，还在加班的童鞋，良辰必有重谢！ 本文主要内容 头标签 排版标签：<p> <br> <hr> <center> <pre> <div> <span> 字体标记：<h1> <font> <b> <u> <sup> <sub> 超链接 图片标签 一、HTML的介绍 1、HTML的概述： htm 阅读全文