FiveTech Software tech support forums

... instalada en Windows. * Corrección: La función WinINet() no estaba funcionando correctamente. Solucionado. * Mejora: Nuevo método End() y mensaje hWnd en la clase TWebView. * Samples\oemboxch.prg: Cómo ver los caracteres de un controlcaja OEM en una aplicación de Windows. * samples\mariabig.prg: ...

... * Fix: function WinINet() was not properly working for xHarbour. Now it is ok. * Enhancement: Class TWebView() new METHOD End() and MESSAGE hWnd. * Samples\oemboxch.prg: How to view oem box chars in a Winodws application. * samples\mariabig.prg: Read and Browse table with 4.1 million records ...

... Harbour TRWIN is cp1254. But Hakkan's problem is not with codepages or utf8/ANSI/OEM related issues. His problem is with a Bug in TGet, where TGet hWnd changes from ANSI to Unicode window. I understand master Nages. Very complicated situation. Entiendo maestro Nages. Situación muy complicada. Gracias, ...

For Turkish, Windows default ANSI codepage is 1254 and OEM codepage is 857.
Harbour TRWIN is cp1254.

But Hakkan's problem is not with codepages or utf8/ANSI/OEM related issues.

His problem is with a Bug in TGet, where TGet hWnd changes from ANSI to Unicode window.

IsWindowUnicode( oGet_1:hWnd ) -----> .T. <--------- It should not be. It should always remain .F. In my tests here, it always remains .F. In your case, it is .T. from the beginning? Or is it changing to .T. during execution? Instead ...

IsWindowUnicode( oGet_1:hWnd ) -----> .T. <--------- It should not be. It should always remain .F. In my tests here, it always remains .F. In your case, it is .T. from the beginning? Or is it changing to .T. during execution? Instead ...

... your code:   @  40, 40 GET oGet VAR cVar SIZE 200,32 PIXEL OF oDlg ON CHANGE oDlg:Update() ACTION MsgInfo( IsWindowUnicode( oGet:hWnd ) ) Result is always .F. My code Get is like that in sameway.     @ 13,55 GET oGet_1 VAR xACIK OF oDlg PIXEL SIZE 160,10 UPDATE ;      ...

We have implemented two new METHODs in Class TWebView: METHOD End() INLINE ( ::Terminate(), ::Destroy() ) and METHOD hWnd() INLINE ::GetWindow() they will be available in next FWH build So the code can be simplified this way:   ACTIVATE DIALOG oDlg CENTERED ;        ...

Dear Jimmy,

nAt = AScan( ::aControls, { | oControl | oControl:hWnd == hChild } )
::aControls[ nAt ]

If I made IF oDlgBacheca:nresult == IDOK aDim = GetLabelDim( oPanel2:hWnd, cMessage , oFont:hFont ) oPanel:setsize(aDim[ 1 ] + 60, aDim[ 2 ] + 50) oPanel:SetColor( "N/W*" ) oPanel:bPainted = { | hDC | DrawTextTransparent( hDC, cMessage , { 10, 10, ...

... cText ), oMemo:PostMsg( WM_KEYDOWN, VK_HOME, 0 ) , BuildRichEditBar( oDlg, oMemo, { | c | cText := c } ), oDlg:ReSize(), SendMessage( oMemo:hWnd, EM_SETLANGOPTIONS, 0, nOr( IMF_SPELLCHECKING, IMF_TKBPREDICTION, IMF_TKBAUTOCORRECTION ) ) ) oFont:End() return lOk Así funciono perfecto, muchas ...

Dear Jimmy, using : Adding this to Class TWindow: METHOD LockUpdate() INLINE LockWindowUpdate( ::hWnd ) HB_FUNC( LOCKWINDOWUPDATE ){   if( ! LockWindowUpdate( ( HWND ) hb_parnll( 1 ) ) )      LockWindowUpdate( ( HWND ...

... a simpler version: Jimmy could you please try it with your code ? No need to supply a parameter METHOD LockUpdate() INLINE LockWindowUpdate( ::hWnd ) HB_FUNC( LOCKWINDOWUPDATE ){   if( ! LockWindowUpdate( ( HWND ) hb_parnll( 1 ) ) )      LockWindowUpdate( ...

Nuevo método en la Clase TWindow de FWH:

METHOD LockUpdate( lOnOff ) INLINE LockWindowUpdate( If( Empty( lOnOff ) .or. lOnOff, ::hWnd, 0 ) )

Code: Select all  Expand view

HB_FUNC( LOCKWINDOWUPDATE )
{
   hb_retl( LockWindowUpdate( ( HWND ) hb_parnll( 1 ) ) );
}

Buen dia Gracias por la respuesta maestro DEFINE WINDOW oWnd EmptyClipboard() OpenClipboard( oWnd:hWnd ) SetClipboardData( 3, { "cotizacion.pdf" } ) hDrop = GetClpData( 3 ) CloseClipboard() oWnd:End() Solo que es aleatorio a veces funcionaba Saludos, Desde Panama