Este artículo utiliza ejemplos para describir la solución de Delphi para realizar efectos especiales de rotación de imágenes y texto. Los controles utilizados en este programa son principalmente control de panel, control de imagen, control de edición, control de etiquetas y control de botones. La clave de este programa es utilizar la función bmp_rotate() de Delphi para realizar la función de rotar imágenes. Y llame inteligentemente a funciones API de Windows relevantes para lograr efectos de rotación de texto.
El código de ejemplo completo es el siguiente:
unidad Unidad1;interfazusaWindows, Mensajes, SysUtils, Clases, Gráficos, Controles, Formularios, Diálogos,matemáticas,StdCtrls, ExtCtrls;tipoTForm1 = clase(TForm)Edit1: TEdit;Imagen1: TImage;bmprotate: TButton;Label1: TLabel;Panel1: TPanel ;Imagen2: TImage;Panel2: TPanel;Imagen3: TImage;Edit2: TEdit;RotatedText: TButton;Label2: TLabel;procedimiento bmprotateClick(Remitente: TObject);procedimiento RotatedTextClick(Remitente: TObject);procedimiento FormCreate(Remitente: TObject);privado{ Declaraciones privadas Procedimiento }público{ Declaraciones públicas } bmp_rotate(src,dst:Tbitmap;angle:extended);Procedimiento DrawRotatedText(TheCanvas: TCanvas; TheAngle: Integer;TheText: String);end;varForm1: TForm1;implementación{$R *.DFM}procedimiento TForm1.bmp_rotate(src,dst:Tbitmap;angle:extended);//Rotación de imagen varc1x,c1y,c2x,c2y:integer;p1x,p1y,p2x,p2y:integer;radius,n:integer;alpha:extended;c0 ,c1,c2,c3:tcolor;beginangle := (ángulo / 180) * pi; //Convierte el contenido del cuadro de texto al ángulo c1x := src.Width div 2;c1y := src.Height div 2;c2x := dst.Width div 2;c2y := dst.Height div 2;if c2x < c2y entoncesn := c2yelsen := c2x;dec (n,1); El valor se reduce en 1, n:=n-1for p2x := 0 to n comenzarfor p2y := 0 ton comenzarif p2x = 0 thenalpha:= pi/2elsealpha := arctan2(p2y,p2x);radius := round(sqrt ((p2x*p2x)+(p2y*p2y)));//Establece el radio durante la rotación p1x := round(radius * cos(angle+alpha)); //Establece la abscisa del centro del círculo durante la rotación p1y := round(radius * sin(angle+alpha)); c0 := src.Canvas.pixels [c1x+p1x,c1y+p1y];//Reemplace el píxel c1 en las coordenadas relevantes de la imagen:= 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; //Reemplazar píxeles en diferentes posiciones 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;aplicación.mensajesdeproceso //Responder a otras solicitudes de mensajesend;end;procedure TForm1.bmprotateClick(Sender: TObject);VarRAngle : Extended;beginRAngle := StrToFloat(Edit1.Text); //Establece el ángulo de rotación bmp_rotate(Image1.Picture.bitmap,Image2); .Picture.bitmap, RAngle);// Ejecute la función de rotación y gire los gráficosend;Procedimiento TForm1.DrawRotatedText(TheCanvas: TCanvas; TheAngle: Integer;TheText: String);varlf: TLogFont;tf: TFont;beginImage3.Canvas.refresh;con TheCanvas comienceFont.Name:='Arial';Font.Size:=18; Pincel.Estilo:= bsClear;tf:= TFont.Create;trytf.Assign(Font);GetObject(tf.Handle, Sizeof(lf), @lf); //Asigna el identificador de instancia actual al objeto tf Font lf.lfEscapement:=TheAngle*10;lf.lfOrientation := TheAngle * 10; //Haga que la línea de abscisas y la línea horizontal en la entrada formen un ángulo específico tf.Handle := CreateFontIndirect(lf); //Crea un objeto específico de fuente Font.Assign(tf); //Usa este objeto para el programa finalmentetf.Free; //Libera el objeto end;TextOut(Image3.left, Image3.top+20, TheText); Dibuja texto en el área especificadaend;end;procedimiento TForm1.RotatedTextClick(Sender: TObject);VarTheAngle: Integer;beginTheAngle:= StrToInt(Edit2.Text); //Convierte el texto en el cuadro de texto en ángulo DrawRotatedText(Image3.Canvas, TheAngle, 'Delphi Graphics Studio'); //Llama al procedimiento de función de texto rotado TForm1.FormCreate(Sender: TObject); ) ;vartf : TFont;theText:string;begintheText:='Delphi Graphics Studio' //Establecer texto con Image3.Canvas dobeginFont.Name := 'Arial'; //Establece la fuente Font.Size := 18 //Establece el tamaño de fuente Brush.Style := bsClear //Establece el estilo del pincel tf:= TFont.Create; // Crea un objeto específico de fuente TextOut(Image3.left, Image3.top+20, TheText //Dibuja texto en el área especificadaend;end;end);