AdditionalLibs/B4A/AutoDimension.xml

<?xml version="1.0" encoding="utf-8"?>
<root>
  <doclet-version-NOT-library-version>1.00</doclet-version-NOT-library-version>
  <b4x_version>9.86</b4x_version>
  <class>
    <name>com.vmagic.libreriaex.autodimension</name>
    <shortname>AutoDimension</shortname>
    <comment>Permite redimensionar automaticamente los views en un Activity,
un Panel (o varios a la vez), o un ScrollView.

Es importante remarcar que solo afecta a los parents de la vista
solicitada, por lo que no afecta a las vistas mas profundas.

Si se hace el llamado para redimensionar un Activity, y este contiene
un panel, el Panel se vera afectado al redimensionamiento pero
no a sus parents. Para ello haba que hacer el llamado para
redimensionar el Panel (despues de haber redimensionado el Activity.

NOTA: Comentar AutoScale en el diseñador y diseñar todos los controles
con la "Variante Elegida" (la que abre por default al abrir el diseñador).
Tambien se debe evitar el modificar los anclajes en el diseñador.

NOTA2: No afecta al tamaño del Texto.
</comment>
    <owner>activity</owner>
    <method>
      <name>IsInitialized</name>
      <comment>Prueba si acaso el objeto ha sido inicializado.</comment>
      <returntype>boolean</returntype>
    </method>
    <method>
      <name DesignerName="ActivityRedimensionar">_v5</name>
      <comment>Redimensiona automaticamente todas las vistas
del Activity. No aplica a vistas dentro de un Panel
o un ScrollView.

Se Inicializa en Activity Create, se lanza en Activity Resume.

&lt;code&gt;
autoscale.Initialize(Activity)

autoscale.RedimensionarActivity
&lt;/code&gt;
</comment>
      <returntype>String</returntype>
    </method>
    <method>
      <name DesignerName="Initialize">_initialize</name>
      <comment>Inicializa el Activity para redimensionar sus vistas.
Inicializar en Activity Create. Lanzar en el Activity Resume.

&lt;code&gt;
Dim autoscale As AutoDimension
&lt;/code&gt;
</comment>
      <returntype>String</returntype>
      <parameter>
        <name>ba</name>
        <type>anywheresoftware.b4a.BA</type>
      </parameter>
      <parameter>
        <name>NombreActivity</name>
        <type>anywheresoftware.b4a.objects.ActivityWrapper</type>
      </parameter>
    </method>
    <method>
      <name DesignerName="InitializePanel">_v6</name>
      <comment>Inicializa el Panel para redimensionar sus vistas.
El Ancho y el Alto deben de ser los mismos que los dados en el Designer.
</comment>
      <returntype>String</returntype>
      <parameter>
        <name>PanelNombre</name>
        <type>anywheresoftware.b4a.objects.PanelWrapper</type>
      </parameter>
      <parameter>
        <name>Ancho</name>
        <type>int</type>
      </parameter>
      <parameter>
        <name>Alto</name>
        <type>int</type>
      </parameter>
    </method>
    <method>
      <name DesignerName="InitializePanel2">_v7</name>
      <comment>Identico a InitializePanel1. Es para configurar un segundo Panel.

Inicializa el Panel para redimensionar sus vistas.
El Ancho y el Alto deben de ser los mismos que los dados en el Designer.
</comment>
      <returntype>String</returntype>
      <parameter>
        <name>PanelNombre</name>
        <type>anywheresoftware.b4a.objects.PanelWrapper</type>
      </parameter>
      <parameter>
        <name>Ancho</name>
        <type>int</type>
      </parameter>
      <parameter>
        <name>Alto</name>
        <type>int</type>
      </parameter>
    </method>
    <method>
      <name DesignerName="InitializeScroll">_v0</name>
      <comment>Inicializa el Scroll View y el Panel que ira dentro de el para ajustarlo
y redimensionar sus vistas.

&lt;code&gt;
Globals

Dim autoscale As AutoDimension
Dim sv1 As ScrollView
Dim pSv As Panel

...

Activity Create

Activity.LoadLayout("main")
sv1.Panel.LoadLayout("scll")
sv1.Panel.Height = pSv.Height
autoscale.Initialize(Activity)
autoscale.InitializeScroll(sv1, pSv, 320, 810)

....

Activity Resume

autoscale.ActivityRedimensionar
autoscale.ScrollViewRedimensionar
&lt;/code&gt;
</comment>
      <returntype>String</returntype>
      <parameter>
        <name>ScrollViewNombre</name>
        <type>anywheresoftware.b4a.objects.ScrollViewWrapper</type>
      </parameter>
      <parameter>
        <name>PanelScrollView</name>
        <type>anywheresoftware.b4a.objects.PanelWrapper</type>
      </parameter>
      <parameter>
        <name>AnchoPanel</name>
        <type>int</type>
      </parameter>
      <parameter>
        <name>AltoPanel</name>
        <type>int</type>
      </parameter>
    </method>
    <method>
      <name DesignerName="Panel2Redimensionar">_vv1</name>
      <comment>Redimensionar Vistas Dentro de un Panel (Segunda Funcion para
trabajar dos paneles a la vez
</comment>
      <returntype>String</returntype>
    </method>
    <method>
      <name DesignerName="PanelRedimensionar">_vv2</name>
      <comment>Redimensiona las Vistas Dentro de un Panel
</comment>
      <returntype>String</returntype>
    </method>
    <method>
      <name DesignerName="ScrollViewRedimensionar">_vv3</name>
      <comment>Redimensionar el Panel que ira dentro de un ScrollView y las
vistas correspondientes dentro de el.
</comment>
      <returntype>String</returntype>
    </method>
  </class>
  <version>1</version>
  <author>The Katt</author>
</root>