[ART]

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

[Yurk@]

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

[Admin]

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

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

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

[Yurk@]

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

[Yurk@]

Код:

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;