Как использовать приложение HTML для отображения только центрированного изображения? - PullRequest
Новая
       13

Как использовать приложение HTML для отображения только центрированного изображения?

1 голос
/ 12 марта 2019

Я использую hta-файл в качестве заставки. Изображение, которое открывает hta-файл, называется «Loading1.png» и имеет размер 478 x 50. При создании размера и положения окна в hta-файле изображение отображается сбелая рамка смещена от центра.

Что может быть не так с моим кодом? 

<html>
    <hta:application id="oHTA"
        border="none"
        caption="no"
        contextmenu="no"
        innerborder="no"
        scroll="no"
        showintaskbar="no"
    />
    <script language="VBScript">
        Sub Window_OnLoad
            'Resize and position the window
            width = 478 : height = 50
            window.resizeTo width, height
            window.moveTo screen.availWidth\2 - width\2, screen.availHeight\2 - height\2

        End Sub
    </script>
<body>
    <table border=0 width="100%" height="100%">
        <tr>
            <td align="center" valign="middle">
                <img src="Loading1.png"/>
            </td>
        </tr>
    </table>
</body>
</html>

Я просто хочу отобразить свое изображение «Loading1.png» в центре экрана снет границ или что-либо еще.

1 Ответ

1 голос
/ 13 марта 2019

Свойства изображения Loading1.png:

Loading1.png properties

Приложение HTA (обратите внимание, точная балансировка ± 1 пиксель): 

<html>
    <HTA:APPLICATION ID = "oHTA"
        BORDER          = "none"
        BORDERSTYLE     = "normal"
        CAPTION         = "no"
        CONTEXTMENU     = "no"
        SYSMENU         = "no"
        NAVIGABLE       = "no"
        INNERBORDER     = "no"
        SCROLL          = "no"
        SELECTION       = "no"
        SINGLEINSTANCE  = "yes"
        WINDOWSTATE     = "normal"
        SHOWINTASKBAR   = "no"
    />
<head>
  <meta http-equiv="x-ua-compatible" content="ie=9">

  <style type="text/css">
    body {
        background-color: red;  /*  ↓↓↓ merely for contrast ↓↓↓  */
        border-color:     red;  /*  ↑↑↑ merely for contrast ↑↑↑  */
        margin-top:      -1px;
        margin-left:     -1px;
        margin-bottom:   -1px;
        margin-right:    -1px;
    }
  </style>

  <script language="VBScript">
      Option Explicit
      Dim width, height
      width  = 478 -1                 '''  
      height =  50 -1                 ''' 
      Sub window_onload()
          CenterWindow width, height
      End Sub
      Sub CenterWindow( widthX, heightY )
          self.ResizeTo widthX, heightY 
          self.MoveTo (screen.availWidth - widthX)/2, (screen.availHeight - heightY)/2
      End Sub
  </script>
</head>

<body>
  <img src="Loading1.png"/>
</body>
</html>

Результат (на белом фоне):

white background

Результат (черный фон):

black background

...