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

... la clase tget nuevamente: delntro del metodo GotFocus() if Set( _SET_INSERT ) DestroyCaret() CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() - 1 ) ShowCaret( ::hWnd ) else DestroyCaret() CreateCaret( ::hWnd, 0, 3, ::nGetChrHeight() ) ShowCaret( ::hWnd ) endif y ya me pone el curso a 3, pero como ...

... DestroyCaret() if Set( _SET_INSERT ) CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() - 1 ) else CreateCaret( ::hWnd, 0, 3, ::nGetChrHeight() ) endif ShowCaret( ::hWnd ) return 0 y el GotFocus() if Set( _SET_INSERT ) DestroyCaret() CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() - 1 ) ShowCaret( ::hWnd ...

... DestroyCaret() if Set( _SET_INSERT ) CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() - 1 ) else CreateCaret( ::hWnd, 0, 2, ::nGetChrHeight() ) endif ShowCaret( ::hWnd ) he intentado hacer que mi cursor en la edicion de TODOS los get'a, sea un poco mas ancho (del 2 al 3) poniendo en el metodo oGet:New() ...

Noe,

Estan implementadas en FWH\source\winapi\caret.c e incluidas en FiveHC.lib

Saludos

Retomando sobre el aspecto del cursor en los gets, y la forma del mismo y color...
las funciones CreateCaret() ShowCaret()... caret().... bienen en alguna clase de FWH o ya implementadas en alguna lib?

Gracias.

... Sub Text1_Click() HideCaret Text1.hwnd End Sub Adaptalo a tus necesidades Y si quieres volver a mostrar el cursor lo puedes hacer con la API ShowCaret Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long ShowCaret Text1.hwnd

... 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 ) oGet:lBak := .t. //f. oGet:CheckState() if oGet:bChange != nil Eval( oGet:bChange, ...

... oGet:PutBlock( cTextForm ) //cChars ) //cTextForm ) oGet:HideCaret() ENDIF if oGet:lStopVScroll() oGet:UnDo() else oGet:DrawLines() endif oGet:ShowCaret() oGet:VisibleCurLine() oGet:lBak := .t. //f. oGet:CheckState() if oGet:bChange != nil Eval( oGet:bChange, , , oGet ) endif if oGet:bLocate ...

... 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, { || myv150000() }) DEFINE DIALOG oDlgb FROM 0,0 TO 4, Max( Len( cLine ), Len( cMsg ) ...

... 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, { || myv150000() }) DEFINE DIALOG oDlgb FROM 0,0 TO 4, Max( Len( cLine ), Len( cMsg ) ...

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

... ::nPos ) CallWindowProc( ::nOldProc, ::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 ...

... Input DestroyCaret() If( Set( _SET_INSERT ), CreateCaret( ::hWnd, 0, 5, ::nGetChrHeight()-1 ),; CreateCaret( ::hWnd, 0, 2, ::nGetChrHeight()-1 ) ) ShowCaret( ::hWnd ) endif if ::bChange != nil lAccept = Eval( ::bChange, nKey, nFlags, Self ) if ValType( lAccept ) == "L" .and. ! lAccept return 0 ...