Pesquisa

Pesquisa personalizada

terça-feira, 9 de março de 2010

Delphi - Girar imagem 90 graus

Delphi   , Dicas   , Imagens   , Girar  , Rotacionar  , programação  , dicas  , on line  , pesquisa  ,
Para rotacionar uma imagem BMP 90 graus, seja direita ou esquerda, utilize o seguinte bloco de instrução;



-> Coloque em um form, dois componentes TImage, nomei-os como Origem e Resultado, e insira dois botões, com as Captions 90º e -90º.



-> Para o evento do 90º digite o código:



procedure TfrmRodar.Mais90Click(Sender: TObject);

var

   X, Y: integer;

begin

   Resultado.Width := Origem.Height;

   Resultado.Height := Origem.Width;

   Resultado.Update;

   for X := 0 to Origem.Width do

   for Y := 0 to Origem.Height do

   Resultado.Canvas.Pixels[Y, Origem.Width - X] := Origem.Canvas.Pixels[X,Y];

end;


Leia Mais