Satellite Опубликовано 13 апреля, 2015 Поделиться Опубликовано 13 апреля, 2015 Давно интересует вопрос, как TMemo сделать прозрачным, дабы не было фона? Transparent отсутствует. Цитата Ссылка на комментарий
0 Модераторы Равиль Зарипов (ZuBy) Опубликовано 13 апреля, 2015 Модераторы Поделиться Опубликовано 13 апреля, 2015 сквозь форму? или видеть что под TMemo лежит? например фон формы Цитата Ссылка на комментарий
0 Satellite Опубликовано 13 апреля, 2015 Автор Поделиться Опубликовано 13 апреля, 2015 сквозь форму? или видеть что под TMemo лежит? например фон формы Мне нужно, чтобы у TMemo фона не было, чтобы был виден только текст на форме. Цитата Ссылка на комментарий
0 AngryOwl Опубликовано 13 апреля, 2015 Поделиться Опубликовано 13 апреля, 2015 Отредактировать стиль. Например, добавив новый для "прозрачного" TMemo. Что-то типа такого: object TLayout StyleName = 'memofreestyle' EnableDragHighlight = False Position.X = 280.000000000000000000 Position.Y = 249.000000000000000000 Size.Width = 290.000000000000000000 Size.Height = 175.000000000000000000 Size.PlatformDefault = False Visible = False TabOrder = 97 object TActiveStyleObject StyleName = 'background' Align = Contents EnableDragHighlight = False Size.Width = 290.000000000000000000 Size.Height = 175.000000000000000000 Size.PlatformDefault = False ActiveTrigger = Focused ActiveLink = < item CapInsets.Left = 7.000000000000000000 CapInsets.Top = 7.000000000000000000 CapInsets.Right = 7.000000000000000000 CapInsets.Bottom = 7.000000000000000000 SourceRect.Left = 238.000000000000000000 SourceRect.Top = 86.000000000000000000 SourceRect.Right = 318.000000000000000000 SourceRect.Bottom = 113.000000000000000000 end> SourceLink = <> object TRectangle StyleName = 'Rectangle1' Align = Contents EnableDragHighlight = False Fill.Color = x32000000 HitTest = False Sides = [] Size.Width = 290.000000000000000000 Size.Height = 175.000000000000000000 Size.PlatformDefault = False Stroke.Color = xC8282828 Visible = False end object TLayout StyleName = 'content' Align = Client EnableDragHighlight = False Size.Width = 290.000000000000000000 Size.Height = 175.000000000000000000 Size.PlatformDefault = False end end object TBrushObject StyleName = 'foreground' end object TBrushObject StyleName = 'selection' Brush.Color = x7F67A8D3 end object TFontObject StyleName = 'font' end end Alex7wrt, Kitty и Satellite 3 Цитата Ссылка на комментарий
Вопрос
Satellite
Давно интересует вопрос, как TMemo сделать прозрачным, дабы не было фона? Transparent отсутствует.
Ссылка на комментарий
3 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.