Technology Learning

摘要： DrawIndexedPrimitive()函数有几个参数 D3DPRIMITIVETYPE Type, INT BaseVertexIndex, UINT MinIndex, UINT NumVertices, UINT StartIndex, UINT PrimitiveCountD3DPT_POINTLIST 画点 D3DPT_LINELIST 画线：12，34，56D3DPT_LINEST... 阅读全文

摘要： 在屏幕上的三角形和纹理三角形通常是不一样大的。为了使这个大小差异变小，我们为纹理创建mipmaps链。也就是说将一个纹理创建成连续的变小的纹理，但是对它们等级进行定制过滤，因此对我们来说保存细节是很重要的（如图6.4）。 6.4.1 Mipmaps过滤器 mipmap过滤器是被用来控制Direct3D使用mipmaps的。设置mipmap过滤器，你可以这样写： Device->SetSamp... 阅读全文

摘要： 1、 What`s Bump Mapping?Bump Mapping通过改变几何体表面各点的法线，使本来是平的东西看起来有凹凸的效果，是一种欺骗眼睛的技术：）。我们知道，如果几何体表面有高低不平的凹凸，那么表面上各点的法线方向就会不同， 那么当光照射到这些点上时，各点光照产生效果就不一样，那么我们最终看到的各点就是凹凸不平的。如果几何体表面是平的，但是各点的法线方向各不相同，当用光照模型进行光照... 阅读全文

摘要： {鼠标：右击，左击，单击，双击，滚轮，拖曳}在Windows环境下，鼠标和键盘是主要的输入设备。 在Delphi中几乎每个对象都具有反映鼠标控制的事件，这些事件的主要功能包括改变鼠标指针的形状，移动、触发、拖动鼠标等。鼠标控制的三个相关属性是Cursor、DragCursor、DragMode；鼠标(拖拽)控制的三个对象方法是BeginDrag、Dragging、EndDrag；鼠标控制的七个事件... 阅读全文

摘要： uses mmsystem;//WaveOutGetNumDevs定义的单元....function TForm27.SoundInstall:Boolean;begin Result:=WaveOutGetNumDevs()>0;end;procedure TForm27.Button1Click(Sender: TObject);begin // if(SoundInstall=true... 阅读全文

摘要： 将一幅图片转化成灰度图,具体来说应该分为以下几步:1.提取图片的每一个象素的值,然后建立三个数据表,1->G 2->R 3->B.2.为每一种颜色值建立一附图.方法如下: 若源图一点为 (R100,G200,B210),这相应的三附图的点颜色为1_(100,100,100), 2_(200,200,200),3_(210,210,210).3. 你说希望寻求一种高效率的方法,但我... 阅读全文

摘要： //阴影效果procedure TForm25.Button1Click(Sender: TObject);var x,y:integer; i:integer;begin x:=0; y:=0; form25.canvas.Pen.Width:=1; for i:=0 to 8 do begin form25.Canvas.Pen.Color:=$00404040; form25.Canvas.... 阅读全文

摘要： procedure TForm24.Button1Click(Sender: TObject);var i,j,ColorR,ColorG,ColorB:integer; ColorArea:TRect;begin j:=Form24.Height; ColorR:=strToInt(Edit1.Text); ColorG:=strToInt(Edit2.Text); ColorB:=strToI... 阅读全文

摘要： procedure TForm2.Button1Click(Sender: TObject);begin if(OpenDialog1.Execute)then begin Edit1.Text:=OpenDialog1.FileName; sFileName:=Edit1.Text; end;end;procedure TForm2.Button2Click(Sender: TObject);b... 阅读全文

摘要： 通过改变Timage组件的width 和height实现图像的拉伸，实际上是将未显示出来的部分显示出来procedure TForm22.Timer1Timer(Sender: TObject);begin Image1.Width:=Image1.Width+2; if Image1.Width>800 then Timer1.Enabled:=false;end;procedure TF... 阅读全文