FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour bug en oRich:LoadFromRTFFile()
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
bug en oRich:LoadFromRTFFile()
Posted: Tue Jun 26, 2012 08:23 AM
Hola,

oRich:LoadFromRTFFile() ya no funciona, no carga nada:

Code (fw): Select all Collapse
#Include "FiveWin.ch"
#include "richedit.ch"

//----------------------------------------------------------------------------//

Function Main()

   Local oDlg, oRich, cRtf
   Local hRichDLL := LoadLibrary( "riched20.dll" )

   local lBold := .F., nPos := 0

   cRtf:="{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Courier New;}}"+CRLF+;
            "{\colortbl ;\red0\green77\blue187;\red192\green80\blue77;}"+CRLF+;
            "{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\cf1\lang1031\f0\fs22 This is \b colored \b0 text\cf0 . \cf2 The background is color 1 and the foreground is color 2\cf0\par"+CRLF+CRLF+;
            "}"




   DEFINE DIALOG oDlg NAME "Test"





   REDEFINE RICHEDIT oRich VAR cRTF OF oDlg  ID 100



   REDEFINE BUTTON ID 110 ACTION ( oRich:LoadFromRTFFile( cGetFile( "Archivo RTF (*.rtf) | *.rtf" ) ), oRich:SetFocus() )



   REDEFINE BUTTON ID 120  ACTION ( lBold := ! lBold, ;
                                    oRich:SetBold( lBold ), oDlg:Update(), oRich:SetFocus(), oDlg:cTitle := "IsBold "+cValtoChar(lBold) )


   oRich:SetText( cRtf )


   ACTIVATE DIALOG oDlg CENTERED

   FreeLibrary( hRichDLL )

Return nil




.rc

Code (fw): Select all Collapse
#define IDC_EDIT1   101

Test DIALOG 41, 64, 409, 199
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Testing the RichEdit control"
FONT 8, "MS Sans Serif"
{
 CONTROL "", 100, "RichEdit20A", 4100 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 6, 12, 398, 163
 PUSHBUTTON "&Load text file", 110, 5, 179, 50, 16
 PUSHBUTTON "&Bold", 120, 95, 179, 50, 16

}




Muchas gracias.

Un saludo
Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bug en oRich:LoadFromRTFFile()
Posted: Tue Jun 26, 2012 01:27 PM

Lucas,

Por favor construye samples\TestRich.prg y dale al bot贸n cargar RTF. Aqui funciona bien

regards, saludos

Antonio Linares
www.fivetechsoft.com
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: bug en oRich:LoadFromRTFFile()
Posted: Tue Jun 26, 2012 02:47 PM

Antonio,

Con FW 12.03 no funciona.

En samples\testrtf.prg le doy a cargar, Open, y no me carga mi rtf.

驴A ti te funciona esto?.

Muchas gracias.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bug en oRich:LoadFromRTFFile()
Posted: Wed Jun 27, 2012 08:57 AM

Lucas,

Aqui funciona correctamente con FWH 12.05

regards, saludos

Antonio Linares
www.fivetechsoft.com
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: bug en oRich:LoadFromRTFFile()
Posted: Wed Jun 27, 2012 05:57 PM

S贸lo por que tengas una prueba m谩s:

Probado en FWH 11.05 y FWH 12.04 y funciona perfectamente.

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: bug en oRich:LoadFromRTFFile()
Posted: Thu Jun 28, 2012 09:31 AM

Muchas gracias.

Yo tengo la 12.03 ahora mismo instalada.

Esperar茅 a la 12.06 que Antonio me dijo que est谩 al caer y os cuento a ver.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: bug en oRich:LoadFromRTFFile()
Posted: Fri Jul 13, 2012 09:29 AM

Antonio,

El Bug sigue estando en FW 12.06.

Le doy a load y no carga nada.

Es importante.

Muchas gracias.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bug en oRich:LoadFromRTFFile()
Posted: Fri Jul 13, 2012 10:08 AM
Lucas,

Este es el ejemplo FWH\samples\TestRich.prg, construido con FWH 12.06 y Harbour, y pulsando el bot贸n Load RTF y cargando un fichero RTF. Funciona correctamente:

regards, saludos

Antonio Linares
www.fivetechsoft.com
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: bug en oRich:LoadFromRTFFile()
Posted: Fri Jul 13, 2012 10:10 AM

Antonio,

驴Y por qu茅 mi c贸digo, que antes funcionaba, ahora no?.

Por cierto, s铆 que funciona con xHarbour y FWH 12.06.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bug en oRich:LoadFromRTFFile()
Posted: Fri Jul 13, 2012 12:11 PM

Lucas,

Por favor prueba FWH\samples\TestRich.prg y verifica si te funciona correctamente.

Luego compara el c贸digo del ejemplo con tu c贸digo. Algo debes haber cambiado.

regards, saludos

Antonio Linares
www.fivetechsoft.com
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: bug en oRich:LoadFromRTFFile()
Posted: Fri Jul 13, 2012 12:15 PM

Antonio,

El de samples funciona OK.

El mio no funciona. Funcionaba con 11.09. Y funciona con xHarbour y FWHX 12.06.

El 煤nico cambio que veo es el redefine.

No lo entiendo.

Te paso el link a ver qu茅 sucede:

http://ul.to/hmb02ph2

El .rc es el mismo que el de samples.

Muchas gracias.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bug en oRich:LoadFromRTFFile()
Posted: Fri Jul 13, 2012 12:33 PM
Lucas,

Tu ejemplo funciona aqui correctamente, probado en Windows 8. Que versi贸n de Harbour usas ? Que versi贸n de Windows ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: bug en oRich:LoadFromRTFFile()
Posted: Fri Jul 13, 2012 12:36 PM

Antonio,

Efectivamente, el bug no est谩 en el c贸digo, sino en el archivo rtf.

Prueba a abrir por favor este archivo .rtf:

http://ul.to/rpefaltg

Con Harbour no se abre, con xHarbour s铆.

Me estaba volviendo loco con el c贸digo.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bug en oRich:LoadFromRTFFile()
Posted: Sat Jul 14, 2012 09:08 PM

Lucas,

Ese m茅todo usa MemoRead() de Harbour/xHarbour y puede ser que ahi est茅 la diferencia

regards, saludos

Antonio Linares
www.fivetechsoft.com
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: bug en oRich:LoadFromRTFFile()
Posted: Sat Jul 14, 2012 10:24 PM

Antonio,

Muchas gracias por tu atenci贸n, incluso en fines de semana.

Una vez m谩s, quiero agradecer el excelente soporte de Fivetech. Ojal谩 las dem谩s compa帽铆as del mundo xBase fueran as铆.

驴Y sabes qu茅 han podido tocar?. Continuamente en Harbour est谩n obsesionados con la pureza del lenguaje C y no mantienen la compatibilidad.

Lo he probado con la 煤ltima build de Harbour de 31 de mayo que tienes en google y sigue igual.

A ver si tu podr铆as por favor orientarme exactamente en c贸mo reportarles el bug en la lista.

Muchas gracias. Un saludo

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producci贸n]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.
Static archive 路 New replies & topics via GitHub Discussions