Доброго времени суток.
1. Определяю разрешение экрана при создании формы. Результат в (Resolution_Size)
2. Создаю динамический объект.
Код:
Label_Logo:= TLabel.Create(Sender as TForm);
Label_Logo.Text:= 'LOGO ';
Label_Logo.Position.X:= (Resolution_Size.x / 2 ) - ( Label_Logo.Width / 2);
Label_Logo.Position.Y:= (Resolution_Size.y / 3 ) - ( Label_Logo.height / 2);
Label_Logo.Parent:= Sender as TForm;
Label_Logo.AutoSize:= true;
Label_Logo.Visible:= true;
Label_Logo.BringToFront;
Label_Logo.Repaint;
Объект рисуется где-то в центре, но
немного правее чем должен.
3. При OnResize формы (поворот смартфона):
Код:
Label_Logo.Position.X:= (Resolution_Size.x / 2 ) - ( Label_Logo.Width / 2);
Label_Logo.Position.Y:= (Resolution_Size.y / 3 ) - ( Label_Logo.height / 2);
Label_Logo.Repaint;
Все начинает рисовать ровно в центре.
Проверял через ShowMessage. И в первом случае, и во втором разрешение экрана такое же.
Где косяк?