get...action

[D.Fernandez]

Amigos :

Tengo un get con action asi...

Code: Select all  Expand view  RUN

REDEFINE GET oGetx21 VAR numedecli ID 120 OF oDlg FONT jFnt1 BITMAP "1LUPA" ;
                 ACTION(datoaretornar:=xListaCli(DATOARETORNAR),;
                    numedecli:=strToken(DATOARETORNAR,1,";"),;
                    fclinom:= StrToken(DATOARETORNAR,3,";"),;  
                    oGetx21:Refresh(), oGetx21:SetFocus(),oGetA:Refresh() )  UPDATE

La primera vez que entro a dialogo se ve bien .
https://freeimage.host/i/2wYhuYQ

la segunda vez se ve el bmp negro
https://freeimage.host/i/2wYjDsn

No se lo que pasa, alguna idea.

Ademas si saco el BMP y de prompt poego "..." pasa lo mismo

Gracias, saludos

Ruben Dario Fernandez
Msv y FWH 2409

[Antonio Linares]

Dario,

El BITMAP "1LUPA" está definido como recurso ó como un fichero externo ?

[D.Fernandez]

Hola Maestro.

Como recurso

Gracias, saludos

[Antonio Linares]

En este ejemplo puedes comprobar como funciona correctamente. Asegúrate de que tu código sigue esta estructura.

dario.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

    local n

    for n = 1 to 5
       Test()
    next
   
return nil    

function Test()

    local oDlg, cName := Space( 10 )

    DEFINE DIALOG oDlg RESOURCE "test"

    REDEFINE GET cName ID 10 ACTION MsgInfo( "click" ) BITMAP "search"

    ACTIVATE DIALOG oDlg CENTERED

return nil    

dario.rc

Code: Select all  Expand view  RUN

#include <windows.h>

search BITMAP "../bitmaps/16x16/search.bmp"

test DIALOG 32, 18, 236, 100
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
BEGIN
    LTEXT "NOMBRE", -1, 20, 36, 41, 8
    EDITTEXT 10, 67, 33, 140, 12
END

[karinha]

Prueba, asi:

Code: Select all  Expand view  RUN

   REDEFINE GET oGetx21 VAR numedecli ID 120 OF oDlg FONT jFnt1 ;
      UPDATE COLORS CLR_BLACK, CLR_WHITE BITMAP "LUPA"          ; // 16X16?
      ACTION( datoaretornar := xListaCli( DATOARETORNAR ),      ;
      numedecli := strToken( DATOARETORNAR, 1, ";" ),           ;
      fclinom   := StrToken( DATOARETORNAR, 3, ";" ),           ;
      oGetx21:Refresh(), oGetx21:SetFocus(), oGetx21:UpDate(),  ;
      oGetA:Refresh() )
 

Regards, saludos.

[karinha]

Code: Select all  Expand view  RUN

LUPA BITMAP LOADONCALL MOVEABLE DISCARDABLE
{
 '42 4D 36 03 00 00 00 00 00 00 36 00 00 00 28 00'
 '00 00 10 00 00 00 10 00 00 00 01 00 18 00 00 00'
 '00 00 00 03 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 EA E6 D3 EA E6 D3 EA E6 D3 EA'
 'E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6'
 'D3 EA E6 D3 EA E6 D3 EA E6 D3 E3 E1 CF 48 5B 76'
 '36 49 64 73 5D 5B EA E6 D3 EA E6 D3 EA E6 D3 EA'
 'E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6'
 'D3 EA E6 D3 EA E6 D3 E4 E2 D0 64 72 85 56 A5 C9'
 '49 A7 DE 1D 35 5E EA E6 D3 EA E6 D3 EA E6 D3 EA'
 'E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6'
 'D3 EA E6 D3 E8 E5 D2 63 76 8D 53 9F C6 66 D5 FE'
 '11 75 D0 42 5B 7F EA E6 D3 EA E6 D3 EA E6 D3 EA'
 'E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6'
 'D3 DE DD CE 63 7F 99 52 A5 CE 67 D3 FE 11 73 CE'
 '41 62 8E D5 D4 C7 EA E6 D3 EA E6 D3 EA E6 D3 EA'
 'E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6'
 'D3 93 9F A7 34 8C C4 67 D2 FE 11 77 D3 3F 6A 9B'
 'D5 D5 C9 EA E6 D3 EA E6 D3 EA E6 D3 C4 B9 AB 8A'
 '72 65 87 6E 5A 8E 78 60 84 6D 60 99 86 7D C4 B7'
 'A9 94 87 85 30 69 9E 11 71 CD 40 75 AD DA DA CD'
 'EA E6 D3 EA E6 D3 EA E6 D3 A7 96 8A 9A 76 53 F0'
 'DA 8D FE FE A9 FE FE BC FE FE D2 D8 CE B4 7B 61'
 '5C 82 61 5E 8C 89 90 70 99 BD D4 D8 CD EA E6 D3'
 'EA E6 D3 EA E6 D3 BF B4 A6 9A 6F 4B FE E6 8C FE'
 'EA 94 FD F6 A5 FD FE BD FD FD D1 FE FE F0 EE EB'
 'DF 79 5D 5A C5 B9 AB EA E6 D3 EA E6 D3 EA E6 D3'
 'EA E6 D3 EA E6 D3 8C 6D 5E EE BE 6E FA D1 7C FA'
 'DD 8A FD F7 A7 FD FE BB FD FD D1 FD FD E5 FE FE'
 'FE C4 B7 A7 AE 9F 93 EA E6 D3 EA E6 D3 EA E6 D3'
 'EA E6 D3 EA E6 D3 9B 6C 4C FE D2 79 F7 D1 81 FA'
 'E3 92 FC F5 A9 FD FE C3 FD FD C8 FD FD D7 FD FD'
 'DD FC FA D7 92 7E 75 EA E6 D3 EA E6 D3 EA E6 D3'
 'EA E6 D3 EA E6 D3 B2 79 4C FA CD 78 F7 D8 84 F8'
 'DF 94 FA EB 9F FD FA BB FD FD C6 FD FD C1 FD FD'
 'C8 FE FE CD 96 81 76 EA E6 D3 EA E6 D3 EA E6 D3'
 'EA E6 D3 EA E6 D3 A7 76 54 FD C6 6D FA E8 95 FD'
 'FE CA FC F7 D3 FC EC A2 FD FA B7 FD FD AE FD FE'
 'B4 FC FA B1 A1 8E 80 EA E6 D3 EA E6 D3 EA E6 D3'
 'EA E6 D3 EA E6 D3 A7 88 76 F0 AE 5E FC DF 8A FD'
 'FD B7 FD FE CB FA E6 9D FC EF 9F FA E8 94 FE FA'
 'A2 DD CE 90 BC AE A2 EA E6 D3 EA E6 D3 EA E6 D3'
 'EA E6 D3 EA E6 D3 C9 BD B0 C5 87 57 FD C1 69 FA'
 'E3 8E FA EC 99 FA E3 90 F5 D1 7E FC DA 84 FA DF'
 '8C B4 99 81 DD D8 C7 EA E6 D3 EA E6 D3 EA E6 D3'
 'EA E6 D3 EA E6 D3 E7 E4 D1 BE AE A1 CB 8F 5E F0'
 'B0 60 F8 C6 6F F8 CB 77 FA CA 71 EF C4 78 C1 A2'
 '82 CF C6 B9 EA E6 D3 EA E6 D3 EA E6 D3 EA E6 D3'
 'EA E6 D3 EA E6 D3 EA E6 D3 E8 E5 D2 D0 C6 B9 BF'
 'A2 8D CB 9A 6F D2 A0 6F C6 A2 82 C4 B0 A0 DC D5'
 'C6 EA E6 D3 EA E6 D3 EA E6 D3 EA E6 D3 EA E6 D3'
 'EA E6 D3 EA E6 D3'
}
 

Regards, saludos.

[D.Fernandez]

Hola Maestro:

Se ve bien, quizas es el bitmap, voy a probar.

Gracias

Saludos

Ruben Dario Fernandez

[D.Fernandez]

Hola Joao:

Me sigue pasando lo mismo.
La segunda vez que abro el dialogo me aparece negro.

Saludos

Ruben Dario Fernandez

[Antonio Linares]

Puedes probar el ejemplo que he publicado y verificar que te funciona bien ?

gracias

[D.Fernandez]

Si Maestro, ya lo priobé y funciona bien.

Gracias.
Saludos
Ruben Dario Fernandez

[D.Fernandez]

Lo raro es que este programa es identico a otro que tengo con BCC y si ejecuto
esa parte en BCC no queda negro el bitmap.

Seguiré investigando y probando.

Gracias
Saludos
Ruben Dario Fernandez

[D.Fernandez]

Hola, sigo probando.

Si coloco el test.rc, tambien queda negro el bitmap.

Saludos
Gracias
Ruben Dario Fernandez

[Antonio Linares]

Que compilador C estás usando ?

[D.Fernandez]

Hola Maestro

Estoy usando Microsot 2022.

Gracias

Saludos

Ruben Dario Fernandez

[D.Fernandez]

Mestro, deber ser problema mio.

Compilando con Ms. el prg que ud. publicó funciona bien, asi que deberé buscar donde esta el error.

Gracias
Saludos

Ruben Dario Fernandez Sosa