Shagrid

Динамически создаю кнопку на панели. 

У панели цвет белый, у кнопки чёрный. По факту получается у кнопки цвет сероватый.

У кнопки забиты параметры

btn.TintColor := TAlphaColorRec.Black;
btn.Opacity := 1;

Возможно есть ещё какой-то параметр, влияющий на ось z?

И, если честно, слабо поковырял стили. Не идёт у меня их познание почему-то.

разработка для Android, Delphi XE7.

Проблема следующая:

На форме есть пара кнопок, при помощи компонента TButton, а так же множество кнопок, созданных динамически.

В кнопках, созданных компонентом, изменениеразмера рифта текста решается банальной строчкой:

TButton(obj).TextSettings.Font.Size := 40;

В кнопках, динамически созданых, изменение шрифта подобным образом не помогает, при этом само свойство меняется.

Фрагмент кода создания кнопки:

      btn := TButton.Create(PanelNew);
      btn.Parent := Self;
      btn.Position.X := (i - 1) * (w) + 10;
      btn.Position.Y := (j - 1) * (h) + 60;
      btn.Width := (w);
      btn.Height := (h);
      btn.Enabled := true;
      btn.Name := 'btn1';
      btn.TextSettings.Font.Size := 40;
      btn.text := FloatToStr(btn.TextSettings.Font.Size);
      btn.OnClick := clickbtn;
      btn.TintColor := TAlphaColorRec.Null;

это баг среды разработки, баг моих мозгов или чего-то не хватает?

Проверил подобное на C++. Видимо баг в среде. Присутствует в кнопках, созданых любым способом.

Заключается в следующем:

В TButton.TextSetting.Font.Size по умолчанию прописано (Default)

Пока это значение присутствует, любые изменения с размером шрифта игнорируются. Если в настройках визуального компонента поменять на любую цифру, то тогда вся работа со шрифтом коде будет работать.

Вот только теперь не могу придумать, как изменить значение без визуального компонента.

Как вычеслить высоту вирт. клавиатуры, что бы вывести поле edit ровно над ней? Или есть ещё какие-нибудь способы?

А как вы скрываете TEdit? Если Edit1.Visible = False, то в данном случае такой вариант не годится (для текстового поля с Visible = False клавиатура появляться не будет). В вашем случае надо делать так: Edit1.Visible = True, Edit1.Opacity = 0. Тогда для кнопки пишем такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.SetFocus;
end;

и получаем желаемый эффект.

Благодарствую. Чёт не подумал о таком способе скрыть...

Коротко по существу:

Есть TEdit скрытое. Там стоит тип клавиатуры - цифровая.

Нужно, что бы при нажатии на кнопку, открылась цифровая клава для данного поля.

не соображу, как сделать =(

Заметил фишку: если сделать поле видимым, то после нажатия на него и с кнопки так же открывается цифровая клавиатура.