Misalignment form in high resolution

Asked

Viewed 264 times

1

Man form is misalignment when the app runs on a monitor with a higher resolution than mine, the borderstyle is in bsnone and yet you continue to misalign, I have also set up all the property anchors for false.

delphi

1 answer

1

Hello, Mr Mrhelp. I have the problem with resolutions below 1024, so I had to resort to a re-sizing of the screen manually.

The main screen I leave the Borderstyple:=bsSizeable;

Const nTamOriginal = 1280 // resolução da minha tela
var nEsc : Double;
    nInst: ianteger;
if nTamOriginal <> Screen.width then
begin
    nEsc := ( Screen.Width -nTamOriginal ) / nTamOriginal;
    nInt := Round( ( nEsc*100 ) + 100 );
    Self.Width := Round( Self.Width * ( nEsc +1 ) );
    Self.Height:= Round( Self.Height* ( nEsc +1 ) );
    Self.ScaleBy( nInt, 100 );
end;
Self.Top := 0;
Self.Left := 0;

Test in your application, by the way put in Create form.

Browser other questions tagged delphi

You are not signed in. Login or sign up in order to post.