Как нарисовать круглый TImage

[BenTen]

Как лучше реализовать круглое изображение на базе Timage, наподобие того, как нарисованы аватары на этом форуме, если изначально изображение имеет прямоугольную форму.

Пробовал сделать Timage дочерним по отношению к TCircle и установить

Сircle.ClipChildren = True;

Не помогает, поскольку область TCircle тоже прямоугольная.

[Axbor]

Сверху Image ставит еще один Image с изображением края четырехугольника центр которого прозрачен в виде круга...

[FIL]

Еще вариант: Можно ли вывести изображение в виде ромба, круга и тд?

[BenTen]

Как-то сложновато, хочется попроще и поизящней решение.

Еще вариант: Можно ли вывести изображение в виде ромба, круга и тд?

Вариант изящный, но пока не понятно, он только с TPath работает или с TCircle тоже будет работать?

Вечером проверю.

[R.is]

а чем вас не устраивает ellipse в свойстве fill можно выбрать изображение и растянуть  (streach)

[FIL]

с TCircle тоже будет работать?

 

Будет.

[AngryOwl]

var
  BmpNew     : TBitmap;
begin
    BmpNew := TBitmap.Create;
    BmpNew.SetSize({нужный размер}, {нужный размер});
    BmpNew.Canvas.BeginScene;
    try
      BmpNew.Canvas.Fill.Kind := TBrushKind.Bitmap;
      BmpNew.Canvas.Fill.Bitmap.WrapMode := TWrapMode.TileStretch;
      BmpNew.Canvas.Fill.Bitmap.Bitmap := {ваш битмап};
      BmpNew.Canvas.Clear(0);
      BmpNew.Canvas.FillEllipse(RectF(0, 0, {нужный размер}, {нужный размер}), 1);
    finally
      BmpNew.Canvas.EndScene;
    end;

    TImage{ваш объект}.Bitmap.Assign(BmpNew);
end;

думаю так

[Равиль Зарипов (ZuBy)]

я через TCircle делал, просто и удобно вроде

[AngryOwl]

я через TCircle делал, просто и удобно вроде

Я тоже. Просто вопрос стоял "Как лучше реализовать круглое изображение на базе Timage...".

[rustam_d]

Алекс если не секрет, в вашем проекте вы какой метод используете?

 

 

Я там видел вы нарезаете в ImageList кругляшки...

[AngryOwl]

[rustam_d] В десктопной версии - TCircle, в мобильной - TImage (для ListViewItem) и TCircle (для остального).

[ENERGY]

С помощью маски можно любую форму.TBitmap.CreateFromBitmapAndMask().

В результате получим изображение с прозрачностью, в данном случае звезда и прозрачный фон. 

procedure TForm1.Button1Click(Sender: TObject);
var
  ImageRes: TResourceStream;
  Result: TBitmap;
  tmpMS : TMemoryStream;
begin
  ImageRes := TResourceStream.Create(HInstance, 'IMAGE', RT_RCDATA);
  try
    Image1.Bitmap.CreateFromStream(ImageRes);
    Image2.Bitmap.LoadFromFile('c:\temp\MaskedBitmap\Images\Mask.png');

    Result := TBitmap.Create;
    Result.CreateFromBitmapAndMask(Image1.Bitmap, Image2.Bitmap);

    // applying alpha channel to Bitmap - workaround. If you can improve write here how
    tmpMS := TMemoryStream.Create;
    Result.SaveToStream(tmpMS);
    Result.LoadFromStream(tmpMS);
    tmpMS.Free;

    Image3.Bitmap.Assign(Result);
  finally
    ImageRes.Free;
    Result.Free;
  end;
end;

 

MaskedBitmap.zip

Изменено 28 сентября, 2018 пользователем ENERGY