[ART]

Почему, когда я здаю исходники, у Adim'а на экране не так как у меня (все приходится переделывать)? Вся фишка в разрешении?

[Yurk@]

А у вас с Админом разрешение экранов разное или нет???

[Admin]

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

Почему, когда я здаю исходники, у Adim'а на экране не так как у меня (все приходится переделывать)? Вся фишка в разрешении?

В количестве точек на дюйм. У меня просто-напросто все съезжает )).
У меня стоит 120 dpi, а у тебя наверное 96.

[Yurk@]

http://www.delphisources.ru/forum/showthread.php?t=2316

[Yurk@]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TFirstForm.FormCreate(Sender: TObject); const DesignScrY: LongInt=768; DesignScrX: LongInt=1024; DesignBorder: LongInt=2; var SystemScrY,SystemScrX,SystemBorder,OldHeight,OldWidth: LongInt; Registry: TRegistry; begin SystemScrY := GetSystemMetrics(SM_CYSCREEN); SystemScrX := GetSystemMetrics(SM_CXSCREEN); SystemBorder := GetSystemMetrics(SM_CYFRAME);     with Sender as TForm do      begin      Scaled := True;      AutoScroll := False;      Top := Top * SystemScrX div DesignScrX;      Left := Left * SystemScrX div DesignScrX;      OldHeight := Height + (DesignBorder - SystemBorder) * 2;      OldWidth := Width + (DesignBorder - SystemBorder) * 2;      ScaleBy((OldWidth * SystemScrX div DesignScrX - SystemBorder * 2),(OldWidth - DesignBorder * 2));      Height := OldHeight * SystemScrY div DesignScrY;      Width := OldWidth * SystemScrX div DesignScrX;      end; end;