Este artigo usa exemplos para descrever a solução Delphi para realizar efeitos especiais de rotação de imagem e texto. Os controles usados neste programa são principalmente controle de painel, controle de imagem, controle de edição, controle de rótulo e controle de botão. A chave para este programa é usar a função bmp_rotate() do Delphi para realizar a função de rotação de imagens. E chame habilmente funções relevantes da API do Windows para obter efeitos de rotação de texto.
O código de exemplo completo é o seguinte:
unit Unit1;interfaceusesWindows, Mensagens, SysUtils, Classes, Gráficos, Controles, Formulários, Diálogos,matemática,StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Image1: TImage;bmprotate: TButton;Label1: TLabel;Panel1: TPanel ;Imagem2: TImage;Panel2: TPanel;Image3: TImage;Edit2: TEdit;RotatedText: TButton;Label2: TLabel;procedimento bmprotateClick(Sender: TObject);procedimento RotatedTextClick(Sender: TObject);procedimento FormCreate(Sender: TObject);private{ Declarações privadas }public{ Declarações públicas }procedimento bmp_rotate(src,dst:Tbitmap;angle:extended);Procedimento DrawRotatedText(TheCanvas : TCanvas; TheAngle : Integer;TheText : String);end;varForm1: TForm1;implementação{$R *.DFM}procedimento TForm1.bmp_rotate(src,dst:Tbitmap;angle:extended);//Rotação da imagem varc1x,c1y,c2x,c2y:integer;p1x,p1y,p2x,p2y:integer;radius,n:integer;alpha:extended;c0 ,c1,c2,c3:tcolor;beginângulo := (ângulo / 180) * pi; //Converte o conteúdo da caixa de texto para o ângulo c1x := src.Width div 2;c1y := src.Height div 2;c2x := dst.Width div 2;c2y := dst.Height div 2;if c2x < c2y entãon := c2yelsen := c2x;dec (n,1); O valor é reduzido em 1, 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)));//Define o raio durante a rotação p1x := round(radius * cos(angle+alpha)); //Define a abcissa do centro do círculo durante a rotação p1y := round(radius * sin(angle+alpha)); c0 := src.Canvas.pixels [c1x+p1x,c1y+p1y];//Substitua o pixel c1 nas coordenadas relevantes da imagem:= 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; //Substitui pixels em posições diferentes 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 //Responder a outras solicitações de mensagensend;end;procedure TForm1.bmprotateClick(Sender: TObject);VarRAngle : Extended;beginRAngle := StrToFloat(Edit1.Text); //Definir o ângulo de rotação bmp_rotate(Image1.Picture.bitmap,Image2); .Picture.bitmap, RAngle);//Executa a função de rotação e gira o gráfico final;Procedimento TForm1.DrawRotatedText(TheCanvas : TCanvas; TheAngle : Integer;TheText : String);varlf : TLogFont;tf : TFont;beginImage3.Canvas.refresh;com TheCanvas do BeginFont.Name:='Arial';Font.Size:=18; Pincel.Estilo:= bsClear;tf:= TFont.Create;trytf.Assign(Font);GetObject(tf.Handle, Sizeof(lf), @lf); //Atribuir o identificador da instância atual ao objeto tf Font lf.lfEscapement:=TheAngle*10;lf.lfOrientation := TheAngle * 10; //Faz com que a linha de abcissas e a linha horizontal na entrada formem um ângulo especificado tf.Handle := CreateFontIndirect(lf); //Cria um objeto específico da fonte Font.Assign(tf); //Use este objeto para o programa finalmentetf.Free //Libere o objeto end;TextOut(Image3.left, Image3.top+20, TheText); Desenhe texto para a área especificadaend;end;procedure TForm1.RotatedTextClick(Sender: TObject);VarTheAngle : Integer;beginTheAngle := StrToInt(Edit2.Text); //Converte o texto da caixa de texto em ângulo DrawRotatedText(Image3.Canvas, TheAngle, 'Delphi Graphics Studio' //Chama a função de texto girado end; ) ;vartf : TFont;theText:string;begintheText:='Delphi Graphics Studio'; Image3.Canvas dobeginFont.Name := 'Arial'; //Definir a fonte Font.Size := 18; // Cria um objeto específico da fonte TextOut(Image3.left, Image3.top+20, TheText); //Desenha texto na área especificadaend;end;end.