Technology Learning

摘要： procedure TForm16.bmp_rotate(src,dst:TBitmap;angle:extended);var c1x,c1y,c2x,c2y:integer; p1x,p1y,p2x,p2y:integer; radius,n:integer; alpha:extended; c0,c1,c2,c3:TColor;begin angle:=(angle/180)*pi; c1x... 阅读全文

摘要： http://baike.baidu.com/view/109447.htmmain(){ union exx{ int a,b; struct { int c,d; }lpp; }e={10};//e.b=e.a+20;//由于只保存一个值，所以e.b=30;e.lpp.c=e.a+e.b;//这里e.a和e.b都为30 e.lpp.c为60e.lpp.d=e.a*e.b;//e.lpp.d 为... 阅读全文

摘要： procedure TForm15.FormActivate(Sender: TObject);var X:Real; Z:integer; A:integer; pic1:TBitmap; pic2:TBitmap;beginA:=0;pic1:=TBitmap.Create;pic2:=TBitmap.Create;pic1.Width:=312;pic1.Height:=312;pic1.C... 阅读全文

摘要： procedure TForm14.Button2Click(Sender: TObject);var i:TBitmap; j:TjpegImage;begin form14.SavePictureDialog1.DefaultExt:='jpg';//'.jpg'; //set the default file ext i:=TBitmap.Create; j:=TjpegImage.Crea... 阅读全文