topic-32500

Board index FiveWin para Harbour/xHarbour listbox en ventana windows con split

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

listbox en ventana windows con split
Posted: Fri May 27, 2016 06:40 AM

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

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: listbox en ventana windows con split
Posted: Fri May 27, 2016 09:26 AM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Marcelo Roggeri

Posts: 344

Joined: Sat Jul 22, 2006 09:04 PM

Re: listbox en ventana windows con split
Posted: Mon May 30, 2016 10:11 PM

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 (fw): Select all Collapse

          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

FWH - Harbour - BCC7 - PellesC

FiveTech Support Forums

Continue the discussion