Topic: Screen result message

Hi all. Can we get a message for the screen result if it's lower than 720 X 640?   I need it because clients complains.....

2 (edited by pavlenko.vladimir.v 2022-08-01 06:41:32)

Re: Screen result message

v_pozidis wrote:

Hi all. Can we get a message for the screen result if it's lower than 720 X 640?   I need it because clients complains.....

if (Screen.Height=720) OR (Screen.Height=640) then
*****
*****
End

Re: Screen result message

yeah,,,,
can I also by script change the screen result??

Re: Screen result message

To change the screen resolution, you can use a utility such as QRes.exe.
https://www.softpedia.com/get/Multimedi … QRes.shtml
It can be launched with the command OpenFile()

Визуальное программирование: блог и телеграм-канал.

Re: Screen result message

Yew, I know that program, But what if we had the change to make it automatic or giving the option to our customers just with running our software?
That is the reason asking .

Re: Screen result message

The question is not so simple. To prompt the user to select the desired resolution, you first need to somehow determine the capabilities of the video card.

Визуальное программирование: блог и телеграм-канал.

7 (edited by pavlenko.vladimir.v 2022-08-01 11:29:10)

Re: Screen result message

v_pozidis wrote:

Yew, I know that program, But what if we had the change to make it automatic or giving the option to our customers just with running our software?
That is the reason asking .

может просто маштабировать само приложение, Вам нужно написать свои цифры
can just scale the app itself, you need to write your numbers

if (Screen.Height<720) AND (Screen.Height<640) then
AdjustResolution(Form_Name); 
End;

procedure AdjustResolution(oForm:TForm);
var
  iPercentage:integer;
begin
    iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
    oForm.ScaleBy(iPercentage,100);
end;

Re: Screen result message

Can i ask why do you use twice the Screen.Height??

(Screen.Height<720) AND (Screen.Height<640)

Re: Screen result message

v_pozidis wrote:

Can i ask why do you use twice the Screen.Height??

(Screen.Height<720) AND (Screen.Height<640)

просто вбил любые цифры
I just entered any number