OPTGUI
Bueno he coseguido compilar el programa con el Verce 5.0, incrustar los rc en el ejecutable, y..................?¿?¿?¿?¿?¿?¿?
Al entrar en el dialogo que presenta un cliente, el dialogo se esfuma y el programa se queda colgado....
¿alguien sabe por qué -´ç+`')(/&%$· se queda así?
joder que dia llevo con .............. esto
Pedro
Al entrar en el dialogo que presenta un cliente, el dialogo se esfuma y el programa se queda colgado....
¿alguien sabe por qué -´ç+`')(/&%$· se queda así?
joder que dia llevo con .............. esto
Pedro
Amigo...
Amigo muestranos algo de codigo a ver si te podemos ayudar...
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
Re: Amigo...
Ya lo solucioné Leandro.leandro wrote:Amigo muestranos algo de codigo a ver si te podemos ayudar...
Me ponía el Pelles C la claúsula WS_CHILD en el diálogo, la saqué y ya dejó de colgarse y esfumarse el diálogo.
Otra cuestión es, ¿cómo pongo color al diálogo (color de fondo) y color a los textos?
Con un BRUSH he logrado darle color al fondo del diálogo, pero el fondo de los textos queda con el color antiguo del diálogo.
Gracias y un saludo
Pedro
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Pedro,
Este es un ejemplo construyendo el diálogo desde PRG:
En caso de que lo construyas desde recursos, entonces usa:
REDEFINE SAY oSay PROMPT cItem ID nId OF oDlg COLOR "R+/W"
Además de usar colores tipo Clipper ".../...", puedes usar colores RGB:
COLOR nColorTexto, nColorFondo
en donde nColorTexto puede ser nRGB( 120, 0, 0 ), por ejemplo
Este es un ejemplo construyendo el diálogo desde PRG:
Code: Select all
#include "FiveWin.ch"
function Main()
local oDlg
DEFINE DIALOG oDlg TITLE "Test" COLOR "W/B"
@ 2, 2 SAY "Hello" COLOR "R/BG"
ACTIVATE DIALOG oDlg CENTERED
return nil
REDEFINE SAY oSay PROMPT cItem ID nId OF oDlg COLOR "R+/W"
Además de usar colores tipo Clipper ".../...", puedes usar colores RGB:
COLOR nColorTexto, nColorFondo
en donde nColorTexto puede ser nRGB( 120, 0, 0 ), por ejemplo
Se me olvidó decir que los diálogos estan construidos en recursos, y cuando le pongo DEFINE DIALOG oDlg TITLE "Test" COLOR "W/B"Antonio Linares wrote:Pedro,
Este es un ejemplo construyendo el diálogo desde PRG:En caso de que lo construyas desde recursos, entonces usa:Code: Select all
#include "FiveWin.ch" function Main() local oDlg DEFINE DIALOG oDlg TITLE "Test" COLOR "W/B" @ 2, 2 SAY "Hello" COLOR "R/BG" ACTIVATE DIALOG oDlg CENTERED return nil
REDEFINE SAY oSay PROMPT cItem ID nId OF oDlg COLOR "R+/W"
Además de usar colores tipo Clipper ".../...", puedes usar colores RGB:
COLOR nColorTexto, nColorFondo
en donde nColorTexto puede ser nRGB( 120, 0, 0 ), por ejemplo
el fondo del diálogo si cambia de color, pero los textos,(que ya están puestos en el recurso) siguen con el fondo del diálogo.
Pedro
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Perdona Antonio, es que me trae de cabeza un error de lo más raro.Antonio Linares wrote:Pedro,
Al tener los diálogos en recursos no puedes usar:
DEFINE DIALOG oDlg TITLE "Test" COLOR "W/B"
sino que debes usar:
DEFINE DIALOG oDlg RESOURCE "nombre_dialogo_en_recurso"
COLOR "W/B"
Efectivamente, si pongo como dices, RESOURCE...... COLOR....
el fondo del diálogo cambia, pero los textos escritos siguen con letra color negro y fondo blanco y eso queda antiestético.
El dolor de cabeza me lo trae este código
Code: Select all
Local oDlgS,oLbxS,oIcon
Local cCodigo1 := cCodigo
Local cCodigo2 := cCodigo
Local cNombre := Str(cCodigo1)+" "+CLIE->Nombre
Local oSay
dbSelectArea("CLSI")
CLSI->(dbSetFilter({||CLSI->cliente := cCodigo}, "CLSI->cliente := cCodigo"))
DEFINE DIALOG oDlgS RESOURCE "DLGCLISER" FONT oFont
REDEFINE LISTBOX oLbxS ;
FIELDS Str(CLSI->codigo),;
CLSI->concepto,;
Transform(CLSI->cantidad,"@E 999,999"),;
Transform(CLSI->Precio,"@E 9,999.99") ;
HEADERS "Codigo" , "Servicio" , "Cantidad", "Precio" ;
COLOR CLR_BLACK, RGB( 255, 255, 235) ;
ALIAS "CLSI";
ID 101 ;
UPDATE OF oDlgS
oLbxS:bLogicLen := { || CLSI->(RecCount()) }
REDEFINE SAY oSay PROMPT (cNombre) ID 401 OF oDlgS CENTER BORDER
REDEFINE BUTTON ID 301 OF oDlgS SALIR ACTION ( oDlgS:End(),oLbxS:End() )
REDEFINE BITMAP NAME "LOGO" ADJUST OF oDlgS
ACTIVATE DIALOG oDlgS CENTERED
SysRefresh()
Return( nil )
Code: Select all
Application
===========
Path and name: C:\ALcobendas\Walcob\ALCOB.Exe (32 bits)
Size: 533,504 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 18-05-2008, 22:01:31
Error description: Error FiveWin/1 Non defined Id: No: 121
Stack Calls
===========
Called from: CONTROL.PRG => TCONTROL:INITIATE(0)
Called from: BITMAP.PRG => (b)TBITMAP:TBITMAP(0)
Called from: => TBITMAP:INITIATE(0)
Called from: => __OBJSENDMSG(0)
Called from: HARBOUR.PRG => OSEND(0)
Called from: HARBOUR.PRG => ASEND(0)
Called from: DIALOG.PRG => TDIALOG:INITIATE(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: gesh0110.prg => PONVISTA(220)
Called from: gesh0110.prg => PONSERVIC(178)
Called from: gesh0110.prg => (b)CLIENTES(42)
Called from: BTNBMP.PRG => TBTNBMP:CLICK(0)
Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: geshinic.prg => MAIN(91)
System
======
CPU type: Intel(R) Celeron(R) CPU 420 @ 1.60GHz 1600 Mhz
Hardware memory: 1016 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Compiler version: xHarbour build 1.1.0 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2
Un saludo
Pedro
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Amigo a mi me funciona de la siguiente manera:
Espero te sirva
Code: Select all
DEFINE BRUSH oFondo FILE ".\res\res_403.BMP"
DEFINE DIALOG oCuadr1 RESOURCE "orBodeg1" ICON "#8001" TRANSPARENT BRUSH oFondo
REDEFINE BUTTONBMP Btn_Grab ID 11 OF oCuadr1 BITMAP "Bgrab" ACTION pValiBod()
REDEFINE BUTTONBMP Btn_Canc ID 10 OF oCuadr1 BITMAP "Bcanc" ACTION oCuadr1:End()
REDEFINE GET oB2og1 VAR oB2vg1 ID 4001 OF oCuadr1
REDEFINE GET oB2og2 VAR oB2vg2 ID 4003 OF oCuadr1
REDEFINE GET oB2og3 VAR oB2vg3 ID 4004 OF oCuadr1
REDEFINE GET oB2og4 VAR oB2vg4 ID 4006 OF oCuadr1
oCuadr1:cTitle := "Agregar Registro Bodegas"
ACTIVATE DIALOG oCuadr1 CENTERED
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
Hola Leandroleandro wrote:Amigo a mi me funciona de la siguiente manera:
Espero te sirvaCode: Select all
DEFINE BRUSH oFondo FILE ".\res\res_403.BMP" DEFINE DIALOG oCuadr1 RESOURCE "orBodeg1" ICON "#8001" TRANSPARENT BRUSH oFondo REDEFINE BUTTONBMP Btn_Grab ID 11 OF oCuadr1 BITMAP "Bgrab" ACTION pValiBod() REDEFINE BUTTONBMP Btn_Canc ID 10 OF oCuadr1 BITMAP "Bcanc" ACTION oCuadr1:End() REDEFINE GET oB2og1 VAR oB2vg1 ID 4001 OF oCuadr1 [color=red] <---Esto es un get[/color] REDEFINE GET oB2og2 VAR oB2vg2 ID 4003 OF oCuadr1 REDEFINE GET oB2og3 VAR oB2vg3 ID 4004 OF oCuadr1 REDEFINE GET oB2og4 VAR oB2vg4 ID 4006 OF oCuadr1 oCuadr1:cTitle := "Agregar Registro Bodegas" ACTIVATE DIALOG oCuadr1 CENTERED
Veamos si me aclaro, mi código es como el tuyo
Code: Select all
DEFINE BRUSH oBrush FILENAME ".\bmp\gradien.bmp"
DEFINE DIALOG oDlg RESOURCE "DLGMCLIE" FONT oFont BRUSH oBrush
REDEFINE GET aClien[1] ID 201 PICTURE "99999999";
VALID Bclien(oDlg,nEvent,aClien) OF oDlg UPDATE
REDEFINE GET aClien[2] ID 202 PICTURE "@!" OF oDlg UPDATE
REDEFINE GET aClien[3] ID 203 PICTURE "@!" OF oDlg UPDATE
REDEFINE
Cliente cuadro del get donde se inserta el código
El say Cliente, sale en color negro con el fondo en blanco, aunque le ponga la claúsula color RGB(XXX,XXX,XXX), RGB(XXX,XXX,XXX) o bien "W+/BG" o como quieras ponerlo. Para mi que habría que pintar de nuevo los Says en la misma posición y con el color que le pongas al fondo, no sé, quízas desvarío
Un saludo
Amigo realice las pruebas con say y me funciona perfectamente, que version de fw tienes?
Mira la imagen
Ese dialogo tiene un fondo verde y los say estan activos....
Mira la imagen
Ese dialogo tiene un fondo verde y los say estan activos....
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]