Technology Learning

摘要： 将一幅图片转化成灰度图,具体来说应该分为以下几步: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... 阅读全文

摘要： procedure TForm1.Timer1Timer(Sender: TObject);begin if Image1.Visible=true then Image1.Visible:=false else Image1.Visible:=true;end;procedure TForm1.Button1Click(Sender: TObject);begin Timer1.Interval... 阅读全文