A que se debe??? Recursos???

A que se debe??? Recursos???

Postby Xevi » Fri Dec 22, 2017 11:24 am

Estoy con tema de empezar a planificar una aplicación... o portar, mas bien dicho.

El tema está en el comienzo, pues noto una baja rentabilidad en "recursos", puede ser???
Me explico. Tengo una WINDOW, con dos botones y un MENU.
El detalle está en redimensionar la ventana, si la estiro/encojo de lo ancho, los botones que estan por la WINDOW "tiemblan" al redimensionar la ventana... si el menu tiene imágenes (a partir de 5 o 6). Y cuantas más, mas tembleque. He provado de poner las imágenes con FILENAME o con RESOURCE... el efecto es el mismo.

Adjunto un ejemplo para que se pueda comprobar, y si algo estoy haciendo mal, corregir.
No se puede subir un fichero???

Pongo código...

Code: Select all  Expand view

#include "FiveWin.ch"

Static oWnd
Static oFont
Static oFont1

function Main()

   DEFINE FONT oFont NAME "Calibri" SIZE 0, -16  //Linia opcions MENU
   DEFINE FONT oFont1 NAME "Calibri" SIZE 0, -15 BOLD//Items SubMenus

   DEFINE WINDOW oWnd FROM 1, 1 TO 800, 1450 PIXEL;
          TITLE "Prueba FWH";
          MENU xMenu()

   @ 125,645 BUTTON "Btn&1" OF oWnd SIZE 100, 30 PIXEL
   @ 155,645 BUTTON "Btn&2" OF oWnd SIZE 100, 30 PIXEL

   ACTIVATE WINDOW oWnd CENTERED

   RELEASE FONT oFont
   RELEASE FONT oFont1
Return Nil
//----------------------------------------------------------------------------//

static Function xMenu()
   local oMnu

   MENU oMnu 2013 FONT oFont ADJUST
      MENUITEM "Opcion1" COLORMENU CLR_BLUE RESOURCE "MenuFitxers"
      MENU 2013 NOINHERIT FONT oFont1 COLORMENU CLR_BLUE
         MENUITEM "Opcion 101" //RESOURCE "MenuComptes"
         MENUITEM "Opcion 102" //RESOURCE "MenuNivells"
         MENUITEM "Opcion 103" //RESOURCE "MenuSeccions"
         MENUITEM "Opcion 104" //RESOURCE "MenuConceptes"
         MENUITEM "Opcion 105" //RESOURCE "MenuBancs"
         MENUITEM "Opcion 106" //RESOURCE "MenuIVA"
         MENUITEM "Opcion 107" //RESOURCE "MenuUsuaris"
      ENDMENU

      MENUITEM "Opcion2" COLORMENU CLR_BLUE RESOURCE "MenuAssentaments"
      MENU 2013 NOINHERIT FONT oFont1 COLORMENU CLR_BLUE
         MENUITEM "Opcion 201" //RESOURCE "MenuAssentamentsEntrada"
         MENUITEM "Opcion 202" //RESOURCE "MenuAssentamentsVisio"
         MENUITEM "Opcion 203" //RESOURCE "MenuAssentamentsEliminar"
         MENUITEM "Opcion 204" //RESOURCE "MenuAssentamentsCopia"
         MENUITEM "Opcion 205" //RESOURCE "MenuAssentamentsCanviCta"
         MENUITEM "Opcion 206" //RESOURCE "MenuAssentamentsCanviIVA"
         MENUITEM "Opcion 207" //RESOURCE "MenuAssentamentsExportar"
         SEPARATOR
         SEPARATOR
         MENUITEM "Opcion 208" //RESOURCE "MenuAssentamentsOrdenar"
         MENUITEM "Opcion 209" //RESOURCE "MenuAssentamentsQuadre"
      ENDMENU

      MENUITEM "Opcion3" COLORMENU CLR_BLUE RESOURCE "MenuLlistats"
      MENUITEM "Opcion4" COLORMENU CLR_BLUE RESOURCE "MenuVaris"
      MENUITEM "Opcion5" COLORMENU CLR_BLUE RESOURCE "MenuUtilitats"
      MENUITEM "Salir"   COLORMENU CLR_BLUE RESOURCE "MenuExit" ACTION oWnd:End()
   ENDMENU

/*
   MENU oMnu 2013 FONT oFont ADJUST
      MENUITEM "Opcion1" COLORMENU CLR_BLUE FILENAME "MenuFitxers.ico"
      MENU 2013 NOINHERIT FONT oFont1 COLORMENU CLR_BLUE
         MENUITEM "Opcion 101" //RESOURCE "MenuComptes"
         MENUITEM "Opcion 102" //RESOURCE "MenuNivells"
         MENUITEM "Opcion 103" //RESOURCE "MenuSeccions"
         MENUITEM "Opcion 104" //RESOURCE "MenuConceptes"
         MENUITEM "Opcion 105" //RESOURCE "MenuBancs"
         MENUITEM "Opcion 106" //RESOURCE "MenuIVA"
         MENUITEM "Opcion 107" //RESOURCE "MenuUsuaris"
      ENDMENU

      MENUITEM "Opcion2" COLORMENU CLR_BLUE FILENAME "MenuAssentaments.ico"
      MENU 2013 NOINHERIT FONT oFont1 COLORMENU CLR_BLUE
         MENUITEM "Opcion 201" //RESOURCE "MenuAssentamentsEntrada"
         MENUITEM "Opcion 202" //RESOURCE "MenuAssentamentsVisio"
         MENUITEM "Opcion 203" //RESOURCE "MenuAssentamentsEliminar"
         MENUITEM "Opcion 204" //RESOURCE "MenuAssentamentsCopia"
         MENUITEM "Opcion 205" //RESOURCE "MenuAssentamentsCanviCta"
         MENUITEM "Opcion 206" //RESOURCE "MenuAssentamentsCanviIVA"
         MENUITEM "Opcion 207" //RESOURCE "MenuAssentamentsExportar"
         SEPARATOR
         SEPARATOR
         MENUITEM "Opcion 208" //RESOURCE "MenuAssentamentsOrdenar"
         MENUITEM "Opcion 209" //RESOURCE "MenuAssentamentsQuadre"
      ENDMENU

      MENUITEM "Opcion3" COLORMENU CLR_BLUE FILENAME "MenuLlistats.ico"
      MENUITEM "Opcion4" COLORMENU CLR_BLUE FILENAME "MenuVaris.ico"
      MENUITEM "Opcion5" COLORMENU CLR_BLUE FILENAME "MenuUtilitats.ico"
      MENUITEM "Salir"   COLORMENU CLR_BLUE FILENAME "MenuExit.Jpg" ACTION oWnd:End()
   ENDMENU
*/

Return oMnu
 


Gracias.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: A que se debe??? Recursos???

Postby Xevi » Fri Dec 22, 2017 12:04 pm

De hecho... probando ejemplos, en Samples explbar3.prg tiene el mismo comportamiento.

De ahí mi inquietud se refuerza, es problema de gestión de recursos???
El "repintado" de algun control (en el caso de explbar3.prg) o imagen (si hay muchas en un Form) hace que "Tiemblen" los objetos contenidos.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: A que se debe??? Recursos???

Postby Xevi » Fri Dec 22, 2017 2:03 pm

Un ejemplo lo mas sencillo para mostrar el "tembleque", utilizando una sola imagen BMP incluida en la distribución de FW


Code: Select all  Expand view

#include "FiveWin.ch"

Static oWnd

function Main()
   Local oBrush

   DEFINE BRUSH oBrush FILENAME "C:\fwh\bitmaps\007.bmp" STRETCH
   DEFINE WINDOW oWnd FROM 1, 1 TO 600, 800 PIXEL;
          TITLE "Prueba Tembleque Controles en FWH";
          BRUSH oBrush
         
   @ 50,350 BUTTON "Btn&1" OF oWnd SIZE 100, 30 PIXEL
   @ 80,350 BUTTON "Btn&2" OF oWnd SIZE 100, 30 PIXEL

   ACTIVATE WINDOW oWnd CENTERED

Return Nil
 


El efecto que tiene de "tembleque" es estirando y encogiendo del borde de la ventana iaquierda, o esquina sup.izq.
Pues es cuando "realoja"/"repinta" los controles contenidos en la ventana.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: A que se debe??? Recursos???

Postby Xevi » Fri Dec 22, 2017 2:48 pm

Ahora el mismo ejemplo anterior, utilizando un DIALOG en lugar de un WINDOW

Code: Select all  Expand view

#include "FiveWin.ch"

Static oWnd

function Main()
   Local oBrush

   DEFINE BRUSH oBrush FILENAME "C:\fwh\bitmaps\007.bmp" STRETCH

   DEFINE DIALOG oWnd FROM 1, 1 TO 600, 800 PIXEL;
          TITLE "Prueba Tembleque Controles en FWH";
          BRUSH oBrush
          oWnd:nStyle := nOr( oWnd:nStyle, WS_THICKFRAME )          

   @ 50,350/2 BUTTON "Btn&1" OF oWnd SIZE 100/2, 30/2 PIXEL
   @ 80,350/2 BUTTON "Btn&2" OF oWnd SIZE 100/2, 30/2 PIXEL

   ACTIVATE DIALOG oWnd CENTER
Return Nil
 


Aquí, el tembleque prácticamente ha desaparecido, parpadea un poco la imagen y botones al redimensionar tirando de la esquina sup.izq. pero el efecto visual es muy CORRECTO.

Estoy en un intel i5 8Gb RAM

La pregu... Otro comportamiento distinto entre WINDOW y DIALOG ???
Se puede arreglar???
Como tenga en la ventana principal de una aplicacion en MDI, una foto de fondo, imagenes de opciones de menu, ExplBar... el efecto que hace al redimensionar va a quedar malamente!!!

Gracias por vuestro tiempo.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: A que se debe??? Recursos???

Postby Xevi » Fri Dec 22, 2017 3:38 pm

Acabo de probar esos dos ejemplos en dos portátiles, y funcionan de maravilla, tanto en WINDOW como en DIALOG.

Problema de mi gráfica???
Problema de algunas gráficas???

Bien, si a nadie más le ha ocurrido, será un problema mínimo.


Gracias.
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 169
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 14 guests