Координаты формы при различном разрешении экрана

[Fataller]

Здравствуйте. Необходима помощь в Delphi. Суть проблемы: я пишу приложение, и мне нужно сделать так, чтобы при разных режимах разрешения форма не меняла своего расположения на экране, т.е. находилась все время в одном и том же месте. Помогите хотя бы с горизонтальным расположением. Я задал координаты/размер в режиме 1280*800. (Left=1001 и Width= 317). Теперь для какого то произвольного режима я считаю

Form3.Left:=Round((Screen.Width)*1001/1280);
Form3.Width:=Round((Screen.Width)*317/1280);

Но при таких вычислениях форма смещается и вылезает за пределы. Где ошибка? Заранее спасибо

[mihali4]

Что-то вы уже "наколбасили"...
Left=1001 и Width= 317 при ширине экрана 1280...
Это где правый край формы будет? За экраном - 1001+317=1318...

находилась все время в одном и том же месте

В каком "одном и том же"? В центре экрана? На позиции с определенным заданным пропорциональным смещением, например, ближе к левому верхнему углу?
Сформулируйте исходное положение формы при первоначальном, конкретном разрешении экрана...

[Fataller]

Ошибся, не ту цифру вписал в посте. Left=963. Но по видимому суть не в том. В общем я делаю программу, которая в форме над треем в Label пишет некоторую строку из массива. При помощи компонента таймер эти строки меняются случайным образом. И, соответственно, из-за того, что эти строки имеют различную длинну, меняются и габариты формы. Я попытался это реализовать так.

procedure TForm4.Timer1Timer(Sender: TObject);
begin
Form3.Left:=Round((Screen.Width)*963/1280); Form3.Width:=Round((Screen.Width)*317/1280);
Rand_of_str(mass_of_dates,numb_of_str);
end;

procedure Rand_of_str(mass_of_dates:array of string; numb_of_str:integer);
var
i:integer;
length_str:integer;
begin
Randomize();
i:=Random(numb_of_str);
length_str:=length(mass_of_dates[i]);
length_str:=Round((length_str)*1024/(Screen.Width));
Form3.Left:=Form3.Left-(length_str);
Form3.Width:=Form3.Width+(length_str);
Form3.Label1.Caption:=mass_of_dates[i];
end;

Я не умею программировать в Win API, поэтому приходится использовать стандартную форму. Так вот, при этом коде возникают проблемы, описанные выше. Может быть, что-то со шрифтом связанно? Вычисления координат по моему правильные. Помогите пожалуйста, необходимо

[SERG1980]

При создании формы указывайте процент от разрешения экрана для левого края и верхнего края формы

procedure TForm1.FormCreate(Sender: TObject);
begin
 form1.Left:=round(0.3*screen.Width);
 form1.Top:=round(0.5*screen.Height);
end;

[Fataller]

Что-то я не совсем понял вашу мысль. Поясните пожалуйста зачем, и где править остальной код?

[SERG1980]

Вот юнит который делает масштабиорвание формы в зависимости от разрешения экрана
Добавляете его в ваш проект в раздел Uses
а вызываете процедуру ScaleForm в событии OnCreate вашей формы

Uses Scale;
........
procedure TForm1.FormCreate(Sender: TObject);
begin
  ScaleForm(Form1);

[Fataller]

Отредактировал координаты в юните, чуть чуть смещается все равно. Код где-нибудь нужно править? Может дадите мне ICQ, я вам там напишу (простите за оффтоп)

[SERG1980]

Сообщение от Fataller

Отредактировал координаты в юните, чуть чуть смещается все равно. Код где-нибудь нужно править? Может дадите мне ICQ, я вам там напишу (простите за оффтоп)

У меня нет аськи (инет на работе и такие вещи нам запрещают ставить) Если хотите пишите в личные сообщения

[Fataller]

Вот архив с юнитами. Там только, те которые имеют отношение к моей проблеме. Если нужно могу скинуть остальные

[Niarb]

...дело не в шрифтах в грубейшей ошибке, как я понял,

length_str:=length(mass_of_dates[i]);
length_str:=Round((length_str)*1024/(Screen.Width));
Form3.Left:=Form3.Left-(length_str);

...Length(s: string) - определяет количество символов в строке, но никак не её длинну...
...нужно использовать

length_str:=Form3.Canvas.TextWidth(mass_of_dates[i])

- что и является длинной строки в пикселах

а потом уже и Left:=Screen.Width-length_str;