บทความนี้ใช้ตัวอย่างเพื่ออธิบายโซลูชันของ Delphi สำหรับการใช้เอฟเฟกต์พิเศษในการหมุนรูปภาพและข้อความ การควบคุมที่ใช้ในโปรแกรมนี้ส่วนใหญ่เป็นการควบคุมแผงควบคุม การควบคุมรูปภาพ การควบคุมการแก้ไข การควบคุมฉลาก และการควบคุมปุ่ม กุญแจสำคัญของโปรแกรมนี้คือการใช้ฟังก์ชัน bmp_rotate() ของ Delphi เพื่อให้ทราบถึงฟังก์ชันการหมุนรูปภาพ และเรียกใช้ฟังก์ชัน Windows API ที่เกี่ยวข้องอย่างชาญฉลาดเพื่อให้ได้เอฟเฟกต์การหมุนข้อความ
รหัสตัวอย่างที่สมบูรณ์มีดังนี้:
หน่วย Unit1;อินเทอร์เฟซ Windows, ข้อความ, SysUtils, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, กล่องโต้ตอบ, คณิตศาสตร์, StdCtrls, ExtCtrls; typeTForm1 = class (TForm) แก้ไข 1: TEdit; Image1: TImage; bmprotate: TButton; Label1: TLabel; Panel1: TPanel ;รูปภาพ2: TImage; Panel2: TPanel; Image3: TImage; Edit2: TEdit; RotatedText: TButton; Label2: TLabel; ขั้นตอน bmprotateClick (ผู้ส่ง: TObject); ขั้นตอน RotatedTextClick (ผู้ส่ง: TObject); ขั้นตอน FormCreate (ผู้ส่ง: TObject); ส่วนตัว { การประกาศส่วนตัว }ขั้นตอนสาธารณะ{ ประกาศสาธารณะ } bmp_rotate(src,dst:Tbitmap;angle:extensed);ขั้นตอน DrawRotatedText(TheCanvas : TCanvas; TheAngle : Integer;TheText : String);end;varForm1: TForm1;ขั้นตอนการดำเนินการ {$R *.DFM} TForm1.bmp_rotate(src,dst:Tbitmap;มุม:ขยาย);//การหมุนรูปภาพ varc1x,c1y,c2x,c2y:integer;p1x,p1y,p2x,p2y:integer;radius,n:integer;alpha:extend;c0 ,c1,c2,c3:tcolor;มุมเริ่มต้น := (มุม / 180) * pi; //แปลงเนื้อหาในกล่องข้อความให้เป็นมุม c1x := src.Width div 2;c1y := src.Height div 2;c2x := dst.Width div 2;c2y := dst.Height div 2;if c2x < c2y แล้วก็ := c2yelsen := c2x;dec (n,1); //make n ค่าจะลดลง 1, n:=n-1for p2x := 0 to n do beginningfor p2y := 0 to n do beginningif p2x = 0 thenalpha:= pi/2elsealpha := arctan2(p2y,p2x);radius := รอบ(sqrt ((p2x*p2x)+(p2y*p2y)));//กำหนดรัศมีระหว่างการหมุน p1x := รอบ (รัศมี * cos(angle+alpha)); // ตั้งค่า abscissa ของศูนย์กลางของวงกลมระหว่างการหมุน p1y := round(radius * sin(angle+alpha)); // ตั้งค่าพิกัดของศูนย์กลางของวงกลมระหว่างการหมุน c0 := src.Canvas.pixels [c1x+p1x,c1y+p1y];//แทนที่พิกเซล c1 ที่พิกัดที่เกี่ยวข้องของรูปภาพ:= src.Canvas.pixels[c1x-p1x,c1y-p1y];c2 := src.Canvas.pixels[c1x+p1y,c1y-p1x];c3 := src.Canvas.pixels[c1x-p1y,c1y+p1x];dst.Canvas.pixels[c2x+p2x,c2y+p2y]:=c0; //แทนที่พิกเซลในตำแหน่งที่แตกต่างกัน dst.Canvas.pixels[c2x-p2x,c2y-p2y]:=c1;dst.Canvas.pixels[c2x+p2y,c2y-p2x]:=c2;dst.Canvas.pixels[ c2x -p2y,c2y+p2x]:=c3;สิ้นสุด;application.processmessages //ตอบสนองต่อการร้องขอข้อความอื่น ๆend;end;ขั้นตอน TForm1.bmprotateClick(Sender: TObject);VarRangle : Extended;beginRangle := StrToFloat(Edit1.Text); //ตั้งค่ามุมของการหมุน bmp_rotate(Image1.Picture.bitmap,Image2 .Picture.bitmap, RAngle);//เรียกใช้ฟังก์ชันการหมุนและหมุนกราฟิกสิ้นสุด;ขั้นตอน TForm1.DrawRotatedText(TheCanvas : TCanvas; TheAngle : Integer;TheText : String);varlf : TLogFont;tf : TFont;beginImage3.Canvas.refresh;กับ TheCanvas ทำ beginningFont.Name:='Arial';Font.Size:=18; Brush.Style:= bsClear;tf:= TFont.Create;trytf.Assign(Font);GetObject(tf.Handle, Sizeof(lf), @lf); //กำหนดตัวจัดการอินสแตนซ์ปัจจุบันให้กับวัตถุ tf Font lf.lfEscapement:=TheAngle*10;lf.lfOrientation := TheAngle * 10; //ทำให้เส้น abscissa และเส้นแนวนอนที่อินพุตเป็นมุมที่กำหนด tf.Handle := CreateFontIndirect(lf); //สร้างวัตถุเฉพาะแบบอักษร Font.Assign(tf); //ใช้วัตถุนี้กับโปรแกรมในที่สุดtf.Free; //ปล่อยวัตถุสิ้นสุด;TextOut(Image3.left, Image3.top+20, TheText); // วาดข้อความไปยังพื้นที่ที่ระบุend;end;procedure TForm1.RotatedTextClick(Sender: TObject);VarTheAngle : Integer;beginTheAngle := StrToInt (Edit2.Text); // แปลงข้อความในกล่องข้อความเป็นมุม DrawRotatedText (Image3.Canvas, TheAngle, 'Delphi Graphics Studio'); // เรียกใช้ฟังก์ชันข้อความที่หมุนแล้ว ) ;vartf : TFont;theText:string;begintheText:='Delphi Graphics Studio'; // ตั้งค่าข้อความด้วย Image3.Canvas dobeginFont.Name := 'Arial'; // ตั้งค่าแบบอักษร Font.Size := 18; // ตั้งค่าขนาดตัวอักษร Brush.Style := bsClear; // ตั้งค่ารูปแบบแปรง tf:= TFont.Create; // สร้างวัตถุเฉพาะแบบอักษร TextOut (Image3.left, Image3.top+20, TheText); // วาดข้อความไปยังพื้นที่ที่ระบุend;end;end.