 |
|
||||
Você está aqui: Delphi ::: Imagens, Gráficos e Cores ::: TBitmap (A classe TBitmap) |
Como definir a largura e a altura de um TBitmap do Delphi usando as propriedades Width e HeightQuantidade de visualizações: 1226 vezes |
|
Quando criamos um novo objeto TBitmap usando TBitmap.Create, o Delphi nos retorna um Bitmap com largura e altura com 0 pixels. Quando usamos a função Assign() da classe TBitmap para atribuir uma imagem ao Bitmap, suas propriedades Width e Height são ajustadas para as dimensões da imagem que foi carregada. No entanto, em algumas situações, nós precisamos definir esses valores nós mesmos, ou seja, queremos ajustar a largura e a altura do Bitmap, antes ou depois de já ter atribuído uma imagem a ele. Veja no trecho de código abaixo como isso pode ser feito:
// não se esqueça de adicionar 'JPEG' no uses
procedure TForm4.Button1Click(Sender: TObject);
var
jpg: TJpegImage;
bmp: TBitmap;
begin
// vamos criar um novo objeto TJpegImage
jpg := TJpegImage.Create;
// agora vamos carregar a imagem JPG desejada
jpg.LoadFromFile('C:\estudos_java\lago.jpg');
// agora criamos o bitmap
bmp := TBitmap.Create;
// e atribuimos o JPG ao Bitmap
bmp.Assign(jpg);
// vamos definir uma largura e altura para
Note que carregamos uma imagem JPG em um objeto TJpegImage e, em seguida, fornecemos esta imagem a um TBitmap. Então, antes de desenhar o Bitmap no Canvas do formulário nós ajustamos sua largura e altura. Isso dará um efeito de cropping, ou seja, a imagem foi recortada. É importante que você tenha em mente que apenas ajustar a largura e a altura do TBitmap não faz com que a imagem seja redimensionada. Em outras dicas dessa seção você aprenderá como fazer isso da forma correta. |
 Link para compartilhar na Internet ou com seus amigos: |
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
