In diesem Artikel wird anhand von Beispielen die Delphi-Lösung zum Realisieren von Spezialeffekten für die Bild- und Textrotation beschrieben. Die in diesem Programm verwendeten Steuerelemente sind hauptsächlich Bedienfeldsteuerung, Bildsteuerung, Bearbeitungssteuerung, Beschriftungssteuerung und Schaltflächensteuerung. Der Schlüssel zu diesem Programm besteht darin, die Funktion bmp_rotate () von Delphi zu verwenden, um die Funktion zum Drehen von Bildern zu realisieren. Und rufen Sie relevante Windows-API-Funktionen geschickt auf, um Textrotationseffekte zu erzielen.
Der vollständige Beispielcode lautet wie folgt:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,math,StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Image1: TImage;bmprotate: TButton;Label1: TLabel;Panel1: TPanel ;Bild2: TImage;Panel2: TPanel;Image3: TImage;Edit2: TEdit;RotatedText: TButton;Label2: TLabel;procedure bmprotateClick(Sender: TObject);procedure RotatedTextClick(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private Deklarationen }public{ Öffentliche Erklärungen }Verfahren bmp_rotate(src,dst:Tbitmap;angle:extended);Procedure DrawRotatedText(TheCanvas : TCanvas; TheAngle : Integer;TheText : String);end;varForm1: TForm1;implementation{$R *.DFM}procedure TForm1.bmp_rotate(src,dst:Tbitmap;angle:extended);//Bildrotation varc1x,c1y,c2x,c2y:integer;p1x,p1y,p2x,p2y:integer;radius,n:integer;alpha:extended;c0 ,c1,c2,c3:tcolor;beginangle := (Winkel / 180) * pi; //Konvertieren Sie den Inhalt im Textfeld in den Winkel c1x := src.Width div 2;c1y := src.Height div 2;c2x := dst.Width div 2;c2y := dst.Height div 2;if c2x < c2y thenn := c2yelsen := c2x;dec (n,1); //make n Der Wert wird um 1 reduziert, n:=n-1for p2x := 0 to n do beginfor p2y := 0 to n do beginif p2x = 0 thenalpha:= pi/2elsealpha := arctan2(p2y,p2x);radius := Round(sqrt ((p2x*p2x)+(p2y*p2y)));//Legen Sie den Radius während der Drehung fest p1x := Round(radius * cos(angle+alpha)); //Setzt die Abszisse des Kreismittelpunkts während der Drehung p1y := round(radius * sin(angle+alpha)); //Setzt die Ordinate des Kreismittelpunkts während der Drehung c0 := src.Canvas.pixels [c1x+p1x,c1y+p1y];//Ersetzen Sie das Pixel c1 an den relevanten Koordinaten des Bildes:= 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; //Pixel an verschiedenen Positionen ersetzen dst.Canvas.pixels[c2x-p2x,c2y-p2y]:=c1;dst.Canvas.pixels[c2x+p2y,c2y-p2x]:=c2;dst.Canvas.pixels[ c2x -p2y,c2y+p2x]:=c3;end;application.processmessages //Auf andere Nachrichtenanfragen antwortenend;end;procedure TForm1.bmprotateClick(Sender: TObject);VarRAngle : Extended;beginRAngle := StrToFloat(Edit1.Text); //Drehwinkel festlegen bmp_rotate(Image1.Picture.bitmap,Image2 .Picture.bitmap, RAngle);//Führen Sie die Rotationsfunktion aus und drehen Sie die Grafikend;Prozedur TForm1.DrawRotatedText(TheCanvas : TCanvas; TheAngle : Integer;TheText : String);varlf : TLogFont;tf : TFont;beginImage3.Canvas.refresh;with TheCanvas do beginFont.Name:='Arial';Font.Size:=18; Brush.Style:= bsClear;tf:= TFont.Create;trytf.Assign(Font);GetObject(tf.Handle, Sizeof(lf), @lf); //Das aktuelle Instanzhandle dem tf-Font-Objekt zuweisen lf.lfEscapement:=TheAngle*10;lf.lfOrientation := TheAngle * 10; // Die Abszissenlinie und die horizontale Linie an der Eingabe bilden einen bestimmten Winkel. tf.Handle := CreateFontIndirect(lf); //Ein schriftartspezifisches Objekt erstellen Font.Assign(tf); //Dieses Objekt für das Programm verwenden Finallytf.Free; //Das Objekt freigeben end;TextOut(Image3.left, Image3.top+20, TheText); Text in den angegebenen Bereich zeichnenend;end;procedure TForm1.RotatedTextClick(Sender: TObject);VarTheAngle : Integer;beginTheAngle := StrToInt(Edit2.Text); //Konvertieren Sie den Text im Textfeld in den Winkel DrawRotatedText(Image3.Canvas, TheAngle, 'Delphi Graphics Studio'); //Rufen Sie die Funktion für gedrehten Text auf end; ) ;vartf : TFont;theText:string;begintheText:='Delphi Graphics Studio'; //Text festlegen mit Image3.Canvas dobeginFont.Name := 'Arial'; //Legen Sie die Schriftart fest. Font.Size := 18; //Legen Sie die Schriftgröße fest. Brush.Style := bsClear; //Legen Sie den Pinselstil fest tf:= TFont.Create; // Ein schriftartspezifisches Objekt erstellen TextOut(Image3.left, Image3.top+20, TheText); //Text bis zum angegebenen Bereich zeichnenend;end;end.