Delphi XE4 FireMonkey TMemo прозрачный? (iOS)

Есть ли способ сделать TMemo прозрачным в Delphi/iOS/FireMonkey?

Я не вижу способа редактировать стили самостоятельно при выборе + щелчке правой кнопкой мыши по элементу управления памяткой...


ios delphi firemonkey tmemo delphi-xe4
person Tom    schedule 15.07.2013    source источник

Ответы (2)


arrow_upward
8
arrow_downward

Попробуйте удалить фон заметки при применении события стиля.

procedure TForm1.Memo1ApplyStyleLookup(Sender: TObject);
var
  BckObject: TFmxObject;
begin
  BckObject := Memo1.FindStyleResource('background');
  if Assigned(BckObject) and (BckObject is TSubImage) then
  begin
    TSubImage(BckObject).Source := nil;
  end;
end;
person AvgustinTomsic    schedule 20.07.2013

arrow_upward
2
arrow_downward

Вам нужно изменить стиль элемента управления, который вы хотите отобразить прозрачным, как вы хотите. К сожалению, Embarcadero не предоставляет полнофункциональный пример, а только некоторую информацию о Настройка приложений FireMonkey с помощью стилей< /а> тема

person RBA    schedule 15.07.2013
comment
Я вижу это: Чтобы увидеть определения стилей в конструкторе стилей FireMonkey: поместите элемент управления на форму в конструкторе форм. Щелкните элемент управления правой кнопкой мыши и выберите "Редактировать стиль по умолчанию"... но у меня нет опции под названием Редактировать стиль по умолчанию, что довольно странно. Это работает для вас? Моя установка мобильного дополнения XE4/Pro + как-то запуталась? - person Tom; 16.07.2013
comment
@tom, эти пункты меню были намеренно удалены при разработке приложений для iOS. Добраться до встроенных стилей для iOS очень сложно. - person Mike Sutton; 16.07.2013
comment
@MikeSutton, на самом деле он был удален, потому что была серьезная ошибка, которая до сих пор не устранена. В противном случае нет причин удалять это, и в конечном итоге оно будет снова введено. - person Peter; 16.07.2013
comment
Есть ли альтернативный способ получить прозрачный TMemo? :) - person Tom; 16.07.2013
comment
@ Том Просто как идея. Вы пытались удалить фон при применении события стиля? procedure TForm1.Memo1ApplyStyleLookup(Sender: TObject); var BckObject: TFmxObject; begin BckObject := Memo1.FindStyleResource('background'); if Assigned(BckObject) and (BckObject is TSubImage) then begin TSubImage(BckObject).Source := nil; end; end; - person AvgustinTomsic; 19.07.2013
comment
@slotomo Это работает! Сделайте это ответом, и я дам награду :) - person Tom; 20.07.2013