[impersonalis]

Запилил мне презентацию! Быстро БЛДЖАД!

impersonalis © (21:50:38 24/07/2009)
МС ламера

impersonalis © (21:50:43 24/07/2009)
ща расскажу что с видео

SBJoker (21:51:01 24/07/2009)
> impersonalis (21:50:40 24/07/2009)
> МС ламера
К.О.

impersonalis © (21:51:04 24/07/2009)
пришлось отказатцо от фуллскрина
и вот почему:
1680на1650 - экран
800на600 - видео

1650/600=2.75

иоговое видео:
800*2.75=2200
600*2.75=1650

2200х1650 не умещается по вертикали

impersonalis © (21:51:28 24/07/2009)
в плеерах в таких случаях добавляют чёрные полосы
но нет - МС обязан весь кэран занять видео

SBJoker (21:51:44 24/07/2009)
чорные полосы для нубов

SBJoker (21:52:04 24/07/2009)
настоящие гуру видят за краем монитора

impersonalis © (21:52:12 24/07/2009)


impersonalis © (21:52:46 24/07/2009)

Function IResizeImage(image%,x%,y% )
     Local a%=ImageWidth(image)
     Local b%=ImageHeight(image)
     Local kX#=a/Float(x)
     Local kY#=b/Float(y)
     Local k#
     If kX<=1 And kY<=1 Return
     If kX>kY
          k=kX
     Else
          k=kY
     EndIf
     a=Floor(a/k)
     b=Floor(b/k)
     ResizeImage image,a,b
End Function

impersonalis © (21:53:00 24/07/2009)
как я делал чтобы вписать имагу в прямоугольник
без искажений

SBJoker (21:53:37 24/07/2009)
ну дык а иначе никак