FiveTech Software tech support forums

... cResToStr() has been properly adapted to 32 bits. * New: Class TWindow DATA bMouseWheel and modified Method MouseWheel(). * Enhancement: Class TTxtEdit support for MouseWheel events. * Fix: Class TFolder Method SetPrompts(), Fixed bug introduced with recent changes. * Enhancement: Class TMenu ...

... done this? I dont like to invent the wheele.... -------------------------------------------------------------------------------- New version of TTXTEDIT CLASS with REDEFINE for DIALOG usage and enhanced function ::Save, ::Load and ::Paint you can download it from http://www.htcsoft.freeservers.com ...

... Aprovechando otra pregunta, no se si valga la pena abrir otro tópico ¿para que sirve el hDC? ¿por que en tTxtEdit.prg lo creas y lo eliminas cada vez que pintas una línea y no creas mejor uno al principio y lo utilizas todo el tiempo?

¿como puedo o que habría que modificar para pintar líneas en un tTxtEdit?

Lo que quiero es poner una línea a la derecha, de preferencia una línea de lineas pequeñas, para indicar un margen, y dos líneas, de preferencia punteadas, arriba y abajo en el renglón donde está posicionado el cursor

Si se puede, un ejemplo de uno en desarrollo 100% fivewin/xharbour lo puedes ver en

ftp://ftp.quiquesoft.com/qsvisual.zip

Puedes tomar como base la clase ttxtedit

... oRow OF odlge:oMsgBar PROMPT "Row: 0" SIZE 70 ACTION oMemo:DlgGoLine() DEFINE MSGITEM oCol OF odlge:oMsgBar PROMPT "Col: 0" SIZE 70 oMemo = TTxtEdit():New( 0, 0, 0, 0, odlge ) oMemo:SetFont( oFont ) odlge:oClient:= oMemo // to give it focus allways oMemo:cFileName = cFileName SetBar() GetWinCoors(odlge, ...

... oRow OF odlge:oMsgBar PROMPT "Row: 0" SIZE 70 ACTION oMemo:DlgGoLine() DEFINE MSGITEM oCol OF odlge:oMsgBar PROMPT "Col: 0" SIZE 70 oMemo = TTxtEdit():New( 0, 0, 0, 0, odlge ) oMemo:SetFont( oFont ) odlge:oClient:= oMemo // to give it focus allways oMemo:cFileName = cFileName SetBar() GetWinCoors(odlge, ...

... found in FIVEH.LIB, not compiling ... Classes - 0151 TTMPICKE Classes - 0152 TTRAY Classes - 0153 TTREEVIE Classes - 0154 TTVITEM Classes - 0155 TTXTEDIT Classes - 0156 TTXTFILE Classes - 0157 TVIEW not found in FIVEH.LIB, not compiling ... Classes - 0158 TWEBCLIE Classes - 0159 TWEBSERV Classes ...

Hello, here another improve to admin samples tools original of Otto :-), I tryed to use TtxtEdit class but this has some bug to display the code Regards #include "FiveWin.ch" #include "InKey.ch" #include "xbrowse.ch" //----------------------------------------------------------------------------// ...

... \ tstring.obj \ tstruct.obj \ tsymbol.obj \ tsymtabl.obj \ ttabctrl.obj \ ttable.obj \ ttmpicke.obj \ ttray.obj \ ttreevie.obj \ ttvitem.obj \ ttxtedit.obj \ ttxtfile.obj \ tview.obj \ twebclie.obj \ twebserv.obj \ tyacc.obj \ urllink.obj \ valblank.obj \ vbxarray.obj \ video.obj \ wbrowse.obj ...

Ehab,

Please remove "AS NUMERIC" from these lines in the Class TTxtEdit:

DATA nRow, nCol AS NUMERIC // Phisical row and col
DATA nLineRow, nLineCol AS NUMERIC // Logical row and col

... Time from start: 0 hours 1 mins 43 secs Error occurred at: 03/06/07, 00:14:23 Error description: Error BASE/44 Assigned value is wrong class: TTXTEDIT:NTOP Args: [ 1] = U

I want to use the TTxtEdit Class but it does not support wheelmouse

how to modify the class for the mouse to work.


FWH 7.1, XP PRO SP2