Перейти к содержанию
Fire Monkey от А до Я
  • 0

Скругление углов у Edit


DeOne

Вопрос

Всем привет. Кто поможет подсказать, как сделать скругление углов у Edit только с одной стороны (слева, сверху, справа, снизу и так далее), а не везде сразу?

Есть задача сделать:

image.png.c600eae46e6ab806f903006fa6c1a037.png

 

Но пока что у меня:

image.png.5f80d8885d18308379ea0236737525cc.png

 

Спасибо за помощь.

Ссылка на комментарий

Рекомендуемые сообщения

  • 1

image.png.dc32962c2e75771ffce0d2afd201b562.png

 

Спойлер

  object r1: TRectangle
    Fill.Color = xFFE6F0F2
    Position.X = 36.000000000000000000
    Position.Y = 24.000000000000000000
    Size.Width = 125.000000000000000000
    Size.Height = 50.000000000000000000
    Size.PlatformDefault = False
    Stroke.Color = xFF84AFBE
    XRadius = 8.000000000000000000
    YRadius = 8.000000000000000000
    object r2: TRectangle
      Fill.Color = xFFD4E4EA
      Position.X = 48.000000000000000000
      Size.Width = 50.000000000000000000
      Size.Height = 50.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = xFFA5C5D0
      object txt2: TText
        Position.X = 9.000000000000000000
        Position.Y = 13.000000000000000000
        Size.Width = 29.000000000000000000
        Size.Height = 29.000000000000000000
        Size.PlatformDefault = False
        Text = '0'
        TextSettings.Font.Size = 18.000000000000000000
      end
    end
  end
  object txt1: TText
    Position.X = 44.000000000000000000
    Position.Y = 36.000000000000000000
    Size.Width = 29.000000000000000000
    Size.Height = 29.000000000000000000
    Size.PlatformDefault = False
    Text = #1054#1090
    TextSettings.Font.Size = 18.000000000000000000
  end
  object r3: TRectangle
    Fill.Color = xFFE6F0F2
    Position.X = 36.000000000000000000
    Position.Y = 100.000000000000000000
    Size.Width = 93.000000000000000000
    Size.Height = 50.000000000000000000
    Size.PlatformDefault = False
    Stroke.Color = xFF84AFBE
    XRadius = 8.000000000000000000
    YRadius = 8.000000000000000000
    object r4: TRectangle
      Fill.Color = xFFD4E4EA
      Position.X = 48.000000000000000000
      Size.Width = 50.000000000000000000
      Size.Height = 50.000000000000000000
      Size.PlatformDefault = False
      Stroke.Color = xFFA5C5D0
      object txt3: TText
        Position.X = 9.000000000000000000
        Position.Y = 13.000000000000000000
        Size.Width = 29.000000000000000000
        Size.Height = 29.000000000000000000
        Size.PlatformDefault = False
        Text = '0'
        TextSettings.Font.Size = 18.000000000000000000
      end
    end
  end
  object txt4: TText
    Position.X = 44.000000000000000000
    Position.Y = 112.000000000000000000
    Size.Width = 29.000000000000000000
    Size.Height = 29.000000000000000000
    Size.PlatformDefault = False
    Text = #1054#1090
    TextSettings.Font.Size = 18.000000000000000000
  end

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...