Fundamentos de Harbour MiniGUI

Harbour MiniGUI implementa un modelo semi-oop.

En mi humilde opinión, este modelo se ajusta perfectamente a xBase ya que la meta de los creadores del dBase original fue la de obtener el máximo poder con el mínimo de esfuerzo. Esta fue la clave de su enorme éxito.

En la mayoría de los casos, los productos xBase para Windows consisten en un compilador xBase "atado" a un motor GUI OOP estándar, resultando en lenguajes "esquizoides", extremadamente fácil de usar en todos los aspectos, excepto la interfase de usuario.

He tratado de crear un sistema GUI consistente con la filosofía xBase, sin apegarme a estrictamente a ningún paradigma estándar.

Algunas ideas del modelo semi-oop usado en Harbour MiniGUI, fueron inspiradas por el compilador RAPID-Q creado por William Yu, cuyas brillantes ideas me inspiraron.

El Primer Programa

No voy a ser muy original, ya que este programa mostrará un mensaje "Hola Mundo" :)

#include "minigui.ch"

Function Main

DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'Hola Mundo!' ;
MAIN

END WINDOW

ACTIVATE WINDOW Win_1

Return

DEFINE WINDOW Creará la ventana principal de programa.

Win_1: Es el nombre de la ventana.

AT 0,0: Indica la posición de la ventana (fila=0,columna=0)

WIDTH 400: Significa que la ventana tendrá 400 pixels de ancho.

HEIGHT 200: Significa que la ventana tendrá 200 pixels de altura.

TITLE 'Hola Mundo!': Indica el texto en la barra de título de la ventana.

MAIN: Indica que estamos definiendo la ventana principal del programa (una ventana principal es requerida por todas las aplicaciones Harbour MiniGUI).

ACTIVATE WINDOW Form_1: Mostrará la ventana e iniciará el ciclo de eventos.


La Forma Tradicional


El comportamiento o apariencia de una ventana o control, podría cambiarse con un comando al estilo xBase (MODIFY)

En el siguiente ejemplo, si quiere cambiarse el título de la ventana, podría usarse el siguiente comando:

MODIFY WINDOW Win_1 TITLE 'New Title'

Para obtener el título de la ventana:

FETCH WINDOW Win_1 TITLE TO cVar

La Forma Semi-OOP

Para hacer lo mismo puede usarse la siguiente sintaxis semi-oop:

Win_1.Title := 'New Title'

cVar := Win_1.Title