Создание компонентов FireMonkey

[david_yusupov]

Код объекта который создаем:

TBioSeries = class(TStyledControl)
  private
    ***
  protected
    function GetStyleObject: TFmxObject; override;
  public
    ***
  end;

Реализация данных процедуры по документации

function TBioSeries.GetStyleObject: TFmxObject;
const
  STYLE = 'BIO_CHART';
begin
  if StyleLookup = '' then
    Result := TStyleStreaming.LoadFromResource(HInstance, STYLE, RT_RCDATA)
  else
    Result := inherited GetStyleObject;
end;

Создаем объект динамически

Bio := TBioSeries.Create(Self);
Bio.Parent := Self;
Bio.Cursor := crHandPoint;
with Bio do 
begin
  Position.X := 10;
  Position.Y := 10;
  Height := 50;
  Width := 200;
end;

Он создается объект, но позиция его создания не соответствует x =10 и y=10 

не могу понять почему... ?

 

 

 

Изменено 30 января, 2015 пользователем Brovin Yaroslav
Удален метод ApplyStyle, так как он просто вызывал метод родителя

[david_yusupov]

• Рассмотрел, как создал Style — для компонентов
• удалил TstyleContainer — из стиля и перекомпелировал и все заработало, как надо

как было

object TStyleContainer
object TLayout
….
end
end

как стало

object TLayout
….
end