Fungsi ubah ratio gambar jadi bulat tengah

 

Embarcadero Delphi adalah sebuah IDE (Integrated Development Environment) yang digunakan untuk pengembangan aplikasi berbasis Windows. 

Salah satu fitur yang dapat digunakan dalam pengembangan aplikasi di Delphi adalah fitur rounded image. Rounded image adalah sebuah gambar yang sudut-sudutnya telah diubah menjadi sudut yang melengkung (bulat).

contoh bulat sempurna seperti ini

berikut ini fungsi yang bisa digunakan di embarcadero delphi 

function changeratio(a: TBitmap): TBitmap;

var

  b: TBitmap;

  lebar, half, d, w, h: Single;

  src, trg: TRectF;

begin

  w := a.Width;

  h := a.Height;

  d := abs(w - h);

  half := d / 2;

  b := TBitmap.Create;

  if w > h then

    lebar := h

  else

    lebar := w;

  b.SetSize(round(lebar), round(lebar));

  if w > h then

    src := RectF(0 + half, 0, w - half, h)

  else

    src := RectF(0, 0 + half, w, h - half);

  trg := RectF(0, 0, lebar - 1, lebar - 1);

  b.Canvas.BeginScene;

  b.Canvas.DrawBitmap(a, src, trg, 1);

  b.Canvas.EndScene;

  changeratio := b;

end;

Secara keseluruhan, fitur rounded image di Embarcadero Delphi sangat berguna untuk memberikan tampilan yang lebih menarik pada aplikasi yang dikembangkan. 

Dengan fitur ini, kita dapat dengan mudah mengubah sudut-sudut sudut pada sebuah gambar menjadi sudut yang melengkung (bulat) sesuai dengan kebutuhan aplikasi.

Silahkan di coba sendiri

Share :