DelphiͼÏñ´¦Àí
ͼÏñÐýת£¬ÊÇÖ¸°´ÕÕ¸ø¶¨µÄ½Ç¶È£¬¼ÆËã³öͼÏñÿ¸öÏñËØ×ø±êµãÔÚÐÂͼÏñÉϵÄ×ø±êλÖ㬴ӶøÊµÏÖÕû¸öͼÏñ×ø±ê±ä»»µÄͼÏñ´¦ÀíÊֶΡ£ÆäÏñËØ×ø±êµÄ±ä»»¹«Ê½Îª£º
(1)¡¢x' = x * cos(angle) + y * sin(andle)
y' = x * cos(andle) - y * sin(angle)
¹«Ê½ÖУ¬x'£¬y'Ϊ±ä»»ºóµÄÏñËØ×ø±êµã£¬x£¬yΪ±ä»»Ç°ÏñËØ×ø±êµã£¬angleΪÐýת½Ç¶È¡£
µ«ÊÇ£¬°´ÕÕÉÏÃæµÄ¹«Ê½ÐýתͼÏñ£¬»á³öÏÖ¶à¸öÔͼÏñÏñËØµã¶ÔÓ¦ÐÂͼÏñͬһ¸öµãµÄÎÊÌ⣬Õâ²»½ö»á¶àÏûºÄͼÏñÐýת´¦ÀíµÄʱ¼ä£¬¶øÇÒÒ²»áʹÐýתºóµÄͼÏñ²úÉú²»±ØÒªµÄÊ§Õæ£¬Èç¹ûÊÇ32λ´øAlphaͨµÀÏñËØ¸ñʽµÄͼÏñ£¬¸ü»áÒò´ËÔì³ÉͼÏñµÄ»ìÂÒ£¬ËùÒÔÔÚʵ¼ÊµÄͼÏñÐýת´¦Àí´úÂëÖУ¬ÊÇÒÔÄ¿±êͼ£¨ÐýתºóµÄͼÏñ£©µÄÏñËØ×ø±êµã£¬Öðµã·´ÍÆÔͼÏñËØµÄλÖã¬ÕâÑù£¬Ä¿±êͼµÄ¸÷¸öÏñËØµã¼È²»»áÖØ¸´£¬Ò²²»»áÒÅ©¡£Æä¼ÆË㹫ʽΪ£º
(2)¡¢x = x' * cos(angle) - y * sin(angle)
y = y' * cos(angle) + y * sin(angle)
ÏÂÃæÊÇDelphiͼÏñÐýת´¦ÀíµÄ´úÂ룺
¹ý³Ì¶¨Ò壺
// »ñÈ¡Width * HeightͼÏñÐýתAngleʱ£¬ÍêÈ«°üº¬Í¼ÏñËùÐè³ß´ç
function GetRotateSize(Width, Height: Integer; Angle: Single): TSize;
// ÐýתͼÏñ£¬OffsetXºÍOffsetY·Ö±ðΪͼÏñÆ«ÒÆÁ¿£¬Îª0ʱSourceÓëDest×óÉÏ±ß¶ÔÆë£¬
// AlphaΪ˳ʱÕëÐýת½Ç¶È£¬IpModeΪ²åÖµ·½Ê½
procedure ImageRotate(Dest: TImageData; OffsetX, OffsetY: Integer;
const Source: TImageData; Angle: Single; IpMode: TInterpolateMode = imDefault); overload;
// ͼÏñ×ÔÉíÐýת£¬ÖÐÐĵãÔÚͼÏñµÄÖÐÑë
procedure ImageRotate(Data: TImageData; Angle: Single;
ColorBackground: LongWord = 0; IpMode: TInterpolateMode = imDefault); overload;
// °´È±Ê¡·½Ê½ÐýתͼÏñ£¨SourceÓëDest×óÉÏ±ß¶ÔÆë£©¡£
procedure ImageRotate(Dest: TImageData; const Source: TImageData;
Angle: Single; IpMode: TInterpolateMode = imDefault); overload;
// TGraphic¶ÔÏóÐýתµ½Dest
procedure ImageRotate(Dest: TImageData;
const Source: TGraphic; Angle: Single; IpMode: TInterpolateM
Ïà¹ØÎĵµ£º
¡¶DelphiͼÏñ´¦Àí -- Êý¾ÝÀàÐͼ°ÄÚ²¿¹ý³Ì¡·Ò»ÎÄÖж¨ÒåÁË»ù±¾µÄͼÏñÊý¾ÝÀàÐͼ°Ò»Ð©ÄÚ²¿¹ý³Ì£¬±¾ÎĽøÒ»²½½«Delphi³£ÓõÄͼÏñÀàÐÍת»»ÎªÍ¼Ïñ´¦ÀíËùÐèµÄÊý¾Ý½á¹¹£¬Îª¾ßÌåµÄDelphiͼÏñ´¦Àí¹ý³Ì×÷×¼±¸£¬Í¬Ê±Ò²Òª½«´¦ÀíºÃµÄͼÏñÊý¾Ýת»»ÎªDelphiµÄ³£ÓÃͼÏñÀàÐÍ¡£¡¶DelphiͼÏñ´¦Àí¡·ÏµÁгýͼÏñÊý¾Ýת»»¹ý³ÌÍâ£¬Æ ......
uses ComObj;
var WordApp: Variant;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.open('c:\1.doc');
WordApp.Selection.InsertFile('c:\2.doc','',False,false,false);
WordApp.Selection.InsertFile('c:\3.doc','',False,false,false);
WordApp.ActiveDocument.SaveAs('C:\4.doc' ......
ListView1.Items Ϊ±ê×¼ TlistitemsÀà
ListView1.Items
(1)¸³Öµ
with ListView1.Items.Add do
begin
Caption:=caption; //Ìí¼ÓµÚÒ»Ïî
SubItems.add(aaaaa); //Ìí¼ÓºóÃæÊý¾Ý
SubItems.add(1234);
SubItems.add(1234);
end; //Ò»¶¨ÒªÊ¹ÓÃWITH½á¹¹.
(2)ȡֵ
listview1.Items.Item[i].Caption È¡µÃijÌõÊý¾Ý±êÌâ
l ......
DelphiµÄTCanvasÒÔ¼°ÅÉÉúÀàÌṩÁËÏÔʾTGraphicͼÏñµÄ·½·¨Draw£¬ÆäʵÕâ¸ö·½·¨±¾Éí²¢Ã»ÓÐÏÔʾͼÏñµÄ¹¦ÄÜ£¬Ö»ÊÇ·´¹ýÀ´µ÷ÓÃÁËÒ»ÏÂTGraphicµÄDraw·½·¨¡£TGraphic±¾ÉíÊǸö³éÏóÀ࣬ÆäDraw·½·¨Ò²ÊǸö´¿Ðé·½·¨£¬ËùÒÔTGraphicµÄËùÓÐÅÉÉúÀà±ØÐëÌṩһ¸ö¾ßÌåµÄDraw·½·¨¡£TGraphicµÄÖ÷ÒªÅÉÉúÀàTBitmapÒ²ÓÐÒ»¸öDraw·½· ......