Compute screen proportion

[Furtbichler]

The GCD of 1366 x 768 is 2. However these displays are treated as 16:9.

[WojTec]

I modified @Amateurprofi code to support x:10, changed to return float and wrote format function:

Delphi-Quellcode:

function GetScreenProportion(const AWidth, AHeight: Cardinal): string;
var
  AspectRatio: Single;
  X, Y: Extended;
begin
  AspectRatio := GetScreenAspectRatio(AWidth, AHeight);
  X := Int(AspectRatio);
  Y := Frac(AspectRatio) * 100;

  if Int(Y) <> 10 then
    Y := Y / 10
  ;

  Result := Format('%.0f:%.0f', [X, Y])
end;

Thanks

[Furtbichler]

Please post the code for "GetScreenAspectRatio".

[WojTec]

Here you are

Delphi-Quellcode:

function GetScreenAspectRatio(const AWidth, AHeight: Cardinal): Single;

function LCD(v1, v2: Cardinal): Word;
begin
  Result := 0;

  if (v1 > 0) and (v2 > 0) then
  begin
    repeat
      Result := v1 mod v2;
      v1 := v2;
      v2 := Result;
    until v2 = 0;

    Result := v1;
  end;
end;

var
  Divisor: Word;
  X, Y: Cardinal;
begin
  Result := 0;
  Divisor := LCD(AWidth, AHeight);

  if Divisor <> 0 then
  begin
    X := AWidth div Divisor;
    Y := AHeight div Divisor;

    if (X = 8) and (Y = 5) then
    begin
      X := X * 2;
      Y := Y * 2;
    end;

    Result := IFF(Y <> 10, X + (Y / 10), X + (Y / 100));
  end;
end;

IFF routine you can get here (requires this).

[Furtbichler]

What's the result with my laptop's resolution (1366 x 768)? It should be 16:9.

[WojTec]

Hm, it's a bit wrong (721:4)

[Furtbichler]

You see? Use my attempt and use a higher tolerance.

[Sir Rufo]

Zitat von Furtbichler:

You see? Use my attempt and use a higher tolerance.

No, your laptop has a bad physical design. It has 2/3 pixels to much in width

[WojTec]

@Furtbichler, I tested a few inputs and I see 0.45 is ok. Could you confirm?

[Furtbichler]

Check for yourself. To make things a bit more complicated, the link introduces pixel aspect ratio and display aspect ratio.

Zitat von Sir Rufo:

No, your laptop has a bad physical design. It has 2/3 pixels to much in width

Damned. Thanks god I own a jigsaw. Let me get it and cut off tho