[sergey3695]

Maratina, пример

Скрытый текст

Код:

function Sides: String;
begin
  Result:= 'bPillarBox4to3';
if (screen.Width=1024) and (screen.Height=576) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1280) and (screen.Height=720) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1024) and (screen.Height=576) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1366) and (screen.Height=768) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1920) and (screen.Height=1080) then
  Result:= 'bPillarBox16to9';
if (screen.Width=2048) and (screen.Height=1152) then
  Result:= 'bPillarBox16to9';
if (screen.Width=2560) and (screen.Height=1440) then
  Result:= 'bPillarBox16to9';
if (screen.Width=2048) and (screen.Height=1152) then
  Result:= 'bPillarBox16to9';
if (screen.Width=1280) and (screen.Height=800) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1440) and (screen.Height=900) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1600) and (screen.Height=1024) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1680) and (screen.Height=1050) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1920) and (screen.Height=1200) then
  Result:= 'bPillarBox16to10';
if (screen.Width=2560) and (screen.Height=1600) then
  Result:= 'bPillarBox16to10';
if (screen.Width=1280) and (screen.Height=1024) then
  Result:= 'bPillarBox5to4';
if (screen.Width=2560) and (screen.Height=2048) then
  Result:= 'bPillarBox5to4';
end;