html - Code to make a DHTMLEd control replace straight quotes with curly quotes -

-

i've got old, legacy vb6 application uses dhtml editing control html editor. microsoft dhtml editing control, a.k.a. dhtmled, nothing more ie control using ie's own native editing capability internally.

i'd modify app implement smart quotes word. specifically, " replaced “ or ” , ' replaced ‘ or ’ appropriate typed; , if user presses ctrl+z after replacement, goes being straight quote.

does have code that?

if don't have code dhtml/vb6, have javascript code works in browser contenteditable regions, use that, too

here's vb6 version:

private sub dhtmledit1_onkeypress()     dim e object     set e = dhtmledit1.dom.parentwindow.event     'perform smart-quote replacement'     select case e.keycode     case 34: 'double-quote'         e.keycode = 0         if isatwordend             insertdoubleundo chrw$(8221), chrw$(34)         else             insertdoubleundo chrw$(8220), chrw$(34)         end if     case 39: 'single-quote'         e.keycode = 0         if isatwordend             insertdoubleundo chrw$(8217), chrw$(39)         else             insertdoubleundo chrw$(8216), chrw$(39)         end if     end select end sub  private function isletter(byval character string) boolean     isletter = ucase$(character) <> lcase$(character) end function  private sub insertdoubleundo(visibletext string, hiddentext string)     dim selection object     set selection = dhtmledit1.dom.selection.createrange()     selection.text = hiddentext     selection.movestart "character", -len(hiddentext)     selection.text = visibletext end sub  private function isatwordend() boolean      dim ch string     ch = previouschar     isatwordend = (ch <> " ") , (ch <> "")  end function  private function previouschar() string      dim selection object     set selection = m_dom.selection.createrange()     selection.movestart "character", -1     previouschar = selection.text  end function

note: solution inserts additional level in undo chain. example, typing "this test" gives chain of “this test” -> “this test" -> “this test -> “ -> " (extra level in bold). remove level you'd have implement sort of postmessage+subclassing solution doesn't involve cancelling native keypress

edit: don't forget include dhtml editing control redistributable if targeting windows vista.


Comments

Post a Comment

Popular posts from this blog

c++ - How do I get a multi line tooltip in MFC -

-
right now, have tool tip pops when hover on edit box. problem tool tip contains multiple error messages , in 1 long line. need have each error message on own line. error messages contained in cstring new line seperating them. my existing code below. bool ontooltiptext(uint, nmhdr* pnmhdr, lresult* presult) { assert(pnmhdr->code == ttn_needtexta || pnmhdr->code == ttn_needtextw); // need handle both ansi , unicode versions of message tooltiptexta* pttta = (tooltiptexta*)pnmhdr; tooltiptextw* ptttw = (tooltiptextw*)pnmhdr; // tchar szfulltext[256]; cstring strtiptext=_t(""); uint nid = pnmhdr->idfrom; if (pnmhdr->code == ttn_needtexta && (pttta->uflags & ttf_idishwnd) || pnmhdr->code == ttn_needtextw && (ptttw->uflags & ttf_idishwnd)) { // idfrom hwnd of tool nid = ::getdlgctrlid((hwnd)nid); } //m_errprojaccel[ch] contains 1 or more error messages each...
Read more

asp.net - In javascript how to find the height and width -

-
i having .aspx , masterpage page. in masterpage loading aspx page . in aspx page design using generating table structure using code-behind server in javascript how find height , width . regards, kumar if you're looking table height , width, should it var tbl = document.getelementbyid('tbldemo'); alert(tbl.offsetwidth + '\n' + tbl.offsetheight);
Read more

c# - DataTable to EnumerableRowCollection -

-
i have datatable according client requirement can contain invalid date "00/00/1999",null,empty string.(typed datset) when collect them enumerables wish convert of invalid forms empty string. (i.e) enumerablerowcollection<datarow> query = order in _table.asenumerable() select new { orderdate= string.isnullorempty(convert.tostring(order.field<datetime>("orderdate")) || (how check date invalid date) ? string.empty : order.field<datetime>("orderdate") } how check whether date valid date or not? datetime.tryparse...like given current code: datetime date; enumerablerowcollection<datarow> query = order in _table.asenumerable() select new { orderdate= string.isnullorempty(convert.tostring(order.field<datetime>("orderdate")) || !datetime.tryparse(convert.tostring(order.field<datetime...
Read more