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
не могу понять почему... ?
Изменено пользователем Brovin Yaroslav Удален метод ApplyStyle, так как он просто вызывал метод родителя
Вопрос
david_yusupov
Код объекта который создаем:
Реализация данных процедуры по документации
Создаем объект динамически
Он создается объект, но позиция его создания не соответствует x =10 и y=10
не могу понять почему... ?
Удален метод ApplyStyle, так как он просто вызывал метод родителя
Ссылка на комментарий
1 ответ на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.