FiveTech Software tech support forums

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

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...

... // ATTATCH MAIN MENU TO MAIN WINDOW NMAINEVID := ADDHANDLER(HMAINWND, {|NEVENT| MAINEVENT(NEVENT)}) // ADD HANDLER BLOCK SETCARET(SC_FULL_BLOCK) HIDECARET(HMAINWND) SETHANDLECOUNT(125) // SET HANDLES IF !OPENFILES(1) SETCURSOR(HAROW) SAYERR("COULD NOT REOPEN FILES SHARED!") QUIT END ...

Encontré esto, Talvez alguien que lo traduzca a FWH. Con la Api HideCaret puedes ocultar el cursor: Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long El siguiente ejemplo oculta el cursor de Text1 al hacer clic sobre ...

... > 0 .and. nKey != VK_ESCAPE .and. ValType( oCol:oEdit ) == "O" .or. (!lAuxFixKey .and. !empty(::nFixKey)) //bira ::lPostEdit := .T. HideCaret( oCol:oEdit:hWnd ) If lCombo cType := If( oCol:cDataType != Nil, oCol:cDataType, ValType( uVar ) ) If cType == "L" uValue := oCol:oEdit:nAt ...

... GlobalData() GlobalFree() GlobalGetAtom() GlobalLock() GlobalRealloc() GlobalSize() GlobalUnlock() HasResources() HelpSearch() HexToDec() HideCaret() HToNs() I2Hex() InportWord() InsertMenu() InterruptUnRegister() InvalidateRect() InvertRect() IsAnsi() IsAnsiLower() IsAnsiUpper() IsCdRom() ...

... oGet:SetFormat( oFont2, nColor ) SysRefresh() oGet:FormatBlock( oFont2, nColor ) if oGet:lBlock oGet:DelBlock() endif oGet:PutBlock( cChars ) oGet:HideCaret() if oGet:lStopVScroll() oGet:UnDo() else oGet:DrawLines() endif oGet:ShowCaret() oGet:VisibleCurLine() oGet:VisibleBlock( .t. ) //lVisible ...

... ) cChars := iif( nCrLf > 0, Stuff( cChars, nCrLf, 2, "" ), cChars ) if oGet:lBlock oGet:DelBlock() endif oGet:PutBlock( cChars ) oGet:HideCaret() ELSE //cChars := Trim( GTFToTxt( cTextForm ) ) Do Case Case nVal == 4 // aqui no se usa esta llamada cChars := Trim( Spanish( Upper( cChars ...

... iF EMPTY(N) MsgInfo(cText, cMsg) Trace+=cText+"------------------------------"+h()+h() ELSE ODLGE:sETFOCUS() oMemo:GoLine(nFor) HideCaret( oMemo:hWnd ) oMemo:DrawLine( oMemo:nLine(), oMemo:nLineRow + 1, 255 ) ShowCaret( oMemo:hWnd ) oMemo:SetFocus() //MsgRun(cLine, cMsg, { || ...

... iF EMPTY(N) MsgInfo(cText, cMsg) Trace+=cText+"------------------------------"+h()+h() ELSE ODLGE:sETFOCUS() oMemo:GoLine(nFor) HideCaret( oMemo:hWnd ) oMemo:DrawLine( oMemo:nLine(), oMemo:nLineRow + 1, 255 ) ShowCaret( oMemo:hWnd ) oMemo:SetFocus() //MsgRun(cLine, cMsg, { || ...

Hua,

HideCaret() should be enough.

Could you please provide a small example showing how you are doing it ? thanks,

In a Get control where it's defined as Readonly, I don't want the caret to be shown at all. User should still be able to select and copy text within the control if they want to though. Experiments with ShowCaret()/HideCaret() yields negative result so far. Anyone has any suggestions?

TIA

Antonio Linares wrote:Toni,

Prueba con HideCaret() (no le pases ningún parámetro).

Antonio
No hace nada.

Saludos
Toni Sales

Toni,

Prueba con HideCaret() (no le pases ningún parámetro).

... ::hWnd, WM_SETFOCUS ) if Set( _SET_INSERT ) DestroyCaret() CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() ) ShowCaret( ::hWnd ) endif else HideCaret( ::hWnd ) endif Super:GotFocus() ::setcolor(nRGB(0,0,0),nRGB( 231,226,141)) // cuando toma el foco pone el fondo amarillo return 0