• 0
DeOne

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

Вопросы

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

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

image.png.c600eae46e6ab806f903006fa6c1a037.png

 

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

image.png.5f80d8885d18308379ea0236737525cc.png

 

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

1 ответ на этот вопрос

  • 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

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

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

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти

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

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