FiveTech Software tech support forums

... ,"The dialog title") //Handle of the dialog App1 hGt:=FindWindowEx( hWn, 0, "Edit" , nil ) //Handle of the TGet App1 SetWindowText(hGt, "2") //changing the TGet value The GetWindowText(hGt) function determines that the TGet value has changed. However, checking ...

... case nMsg == WM_PASTE if GetFocus() == ::hWnd CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 ) if ValType( ::oGet:Original ) $ "CM" SetWindowText( ::hWnd, SubStr( GetWindowText( ::hWnd ), 1, Len( ::oGet:Original ) ) ) endif ::oGet:Buffer = GetWindowText( ::hWnd ) ::oGet:Pos = GetCaretPos()[ ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

Darrell,

Thankfully, the InternetExplorer.Application COM type exposes a HWND property, which contains the handle to the window.

Try this:

SetWindowText( oOle:HWND, "This is a test" )

... endif Browse() oDbf:End() Return nil STATIC FUNCTION ChkCursor(n, oDbf, oDlg) local hWnd := GetActiveWindow() if hWnd != oDlg:hWnd if n == 0 SetWindowText(hWnd, "Rows completally retrieved: "+ Transform(oDbf:RecCount(), "999,999")) else SetWindowText(hWnd, "Rows retrieved ...

I changed the folder I was using to start hbmk2 to where the source code sits, and now am getting undefined instead of duplicates This is due, I guess, to not pulling in the correct library(ies). I added trace to see what was going on (thanks for that tip). Does this and the console listing below he...

... Initiate() in say.prg CODE: SELECT ALL EXPAND VIEW ::SetText( ::cCaption ) // here is the bug substitute this line CODE: SELECT ALL EXPAND VIEW SetWindowText( ::hWnd, ::cCaption ) There is another bug in method VarPut(), though this is never reported. Better this is also corrected: Replace this ...

Hi Antonio , I try to make some test on FLH this morning. After install UBUNTU 14.04 LTS and all the packages needs to compile FLH i've a lot of errors like this: compiling... Harbour 2.1.0rc2 (Rev. 16643) Copyright (c) 1999-2011, http://harbour-project.org/ Compiling 'tutor01.prg'... Lines 1097, Fu...

Buenos días Antonio, Ya lo he probado y he analizado todas las posibilidades. El TSAY no usa setWindowText, nada más que para cambiar el Caption, pero realmente, el control se encarga de pintarlo internamente sin poder influir yo en el pintado. La única solución que he ...

Antonio, He estado leyendo sobre el tema, y parece ser que setwindowtext, realmente llama a drawtext con unos estilos de alineación predefinidos. Creo que sustituyendo en la clase Tsay, la llamada setwindowtext , por una llamada a drawtext alineada correctamente, ...

Richard, I only see this in the code: SetWindowText ( ControlHandle , value ) and such function is not defined in the code that you have posted. So it has to be some where else and probably inside it is where unicode is taken into account. ...

Richard,

I only see this in the code:

SetWindowText ( ControlHandle , value )

and such function is not defined in the code that you have posted.

So it has to be some where else and probably inside it is where unicode is taken into account.

Search for it, please

...    If( ::lUnicode,;                               SetWindowTextW( ::hWnd, ::cCaption ),;                              ...

... case nMsg == WM_PASTE if GetFocus() == ::hWnd CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 ) if ValType( ::oGet:Original ) $ "CM" SetWindowText( ::hWnd, SubStr( GetWindowText( ::hWnd ), 1, Len( ::oGet:Original ) ) ) endif MsgDelay() //EXISTE OUTRA MANEIRA DE RESOLVER? ::oGet:Buffer ...

... was and if you approve. (sorry for my english) METHOD DispText() CLASS MyGet if ::lPassword .and. ::oGet:Type == "C" #ifdef __CLIPPER__ SetWindowText( ::hWnd, Replicate( "*", Len( Trim( ::oGet:buffer ) ) ) ) #else SetWindowText( ::hWnd, Replicate( If( IsAppThemed(), Chr( 149 ...