GetAspectRatio: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(Created page with "Vrací efektivní rozlišení grafické obrazovky, ze kterého lze vypočítat poměr stran. ;Deklarace procedure GetAspectRatio(var Xasp, Yasp: Word); ;Režim :Reálný, C...") |
(Žádný rozdíl)
|
Verze z 4. 10. 2012, 16:16
Vrací efektivní rozlišení grafické obrazovky, ze kterého lze vypočítat poměr stran.
- Deklarace
procedure GetAspectRatio(var Xasp, Yasp: Word);
- Režim
- Reálný, Chráněný
- Poznámky
- Poměr stran (aspect ratio) je (Xasp:Yasp).
- Viz také
- Arc
Vzorový příklad
{Getasprt.PAS}
{Vzorový příklad pro proceduru GetAspectRatio.}
uses Graph;
var
Gd, Gm: Integer;
Xasp, Yasp: Word;
XSideLength, YSideLength: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
GetAspectRatio(Xasp, Yasp);
XSideLength := 20;
{ Adjustace délky Y pro poměr stran }
YSideLength := Round( (Xasp / Yasp) * XSideLength);
{ Nakreslí na obrazovku "čtvercový" obdélník }
Rectangle(0, 0, XSideLength, YSideLength);
Readln;
CloseGraph;
end.
