listbox en ventana windows con split

[Loren]

Compañeros, buenas:

Hasta ahora, mis tablas de clientes, artículos, proveedores, facturas emitidas.... etc... siempre las presentaba mediante un listbox en una ventana DIALOGS con unos buttons debajo y listo!! con una resolución 800x600 y esto ocupaba prácticamente toda la pantalla.

Ahora me encuentro que con la evolución de la informática, las pantallas de los equipos son más grandes (incluiso panorámicas) y esto hace mis dialogs aparezca casi en miniaturas en la inmensidad de la pantalla.

Probablemente tendré que adaptarlos a ventanas WINDOWS MDICHILD incluyendo algún SPLITTER y que se adapte al tamaño de cada pantalla automáticamente (que supongo que tendrá que ver con la resolución).

¿Teneis algún código fuente que me sirva de ejemplo

Mil Gracias.
LORENZO.

[cnavarro]

Hay varios ejemplos de SPLITTER, pero creo que el codigo de Fivedit0.prg te puede venir muy bien

[Marcelo Roggeri]

Lorenzo, yo lo utilizo de la siguiente manera, si te sirve te paso un trozo del codigo para que te des cuenta, todo lo que es mostrar de la manera que decis es no utilizando recursos .rc sino a traves del @ 0,0 t con paneles en su defectos sabiendo la resolucion de la pantalla.

Code: Select all

          DEFINE WINDOW oWndChild FROM 0,0 TO 300,400 PIXEL MDICHILD OF oWnd;
                 TITLE "Libro de IVA Ventas"
                *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
                DEFINE BUTTONBAR oBAR OF oWndChild SIZE 100,36     
                       DEFINE BUTTON   OF oBar GROUP;
                              RESOURCE "Print" LEFT;
                              PROMPT   "Imprimir";
                              ACTION   RepIvaVta()

                       DEFINE BUTTON   OF oBar GROUP;
                              RESOURCE "Exit" LEFT;
                              PROMPT   "Cerrar";
                              ACTION   ( lOk:=.T., oWndChild:End() )

                       *----------------------------------------------------
                       @ 6, 630 SAY      oSay1 PROMPT "Desde:" OF oBar PIXEL SIZE  70,25
                       @ 6, 700 GET      oDtp1 VAR dFecDes     OF oBar PIXEL SIZE 125,25

                       @ 6, 831 SAY      oSay2 PROMPT "Hasta:" OF oBar PIXEL SIZE  70,25
                       @ 6, 900 GET      oDtp2 VAR dFecHas     OF oBar PIXEL SIZE 125,25
                       *----------------------------------------------------

                *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

                 oBrw := TU CONFIGURACION DE BROWSE

                 oWndChild:oClient := oBrw

         ACTIVATE WINDOW oWndChild MAXIMIZED

         

Los ABM los hago con recursos de al menos 1024x768 que es la resoluci{on mas pequeña en pc hoy en dia
Espero te sirva, saludos.
Marcelo