Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Dim Slika1 As Slika Dim Slika2 As Slika Dim Odnos(2) As Single Slika1.Duzina = Image1.Picture.Width / 4 Slika1.Sirina = Image1.Picture.Height / 4 Slika2.Duzina = Image2.Width - 30 Slika2.Sirina = Image2.Height - 30 Odnos(0) = Slika1.Duzina / Slika2.Duzina Odnos(1) = Slika1.Sirina / Slika2.Sirina Odnos(2) = Slika1.Duzina / Slika1.Sirina Slika2.X = Image2.Left Slika2.Y = Image2.Top If Odnos(2) > 1 Then Image1.Width = Slika2.Duzina Image1.Height = Slika2.Duzina / Odnos(2) Image1.Top = Slika2.Y + (Slika2.Duzina - Image1.Height) / 2 Image1.Left = Slika2.X + 10 Else Image1.Height = Slika2.Duzina Image1.Width = Slika2.Duzina