FiveTech Support Forums

1) In a row, within a column of xBrowse and possible, in a sentence put a word in bold?

Sample: "Teste de mensagem para xbrowser"

#include "fivewin.ch

//----------------------------------------------------------------------------//

function XbrHilite

   local oDlg, oBrw, oFont, oBold
   local cWordHL  := PadR( "ONE", 10 )
   local aData := ;
      {  { 1, "One day" }          ;
      ,  { 2, "Good one" }         ;
      ,  { 3, "There is none" }    ;
      ,  { 4, "This is clone" }    ;
      ,  { 5, "This one is good" } ;
      }

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-16
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-16 BOLD UNDERLINE

   DEFINE DIALOG oDlg SIZE 500,250 PIXEL TRUEPIXEL FONT oFont

   @ 20,20 GET cWordHL SIZE 200,28 PIXEL OF oDlg VALID ( oBrw:Refresh(), .t. )

   @ 55,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg DATASOURCE aData AUTOCOLS ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      :nStretchCol   := 2
      :aCols[ 2 ]:bPaintText := <|oCol, hDC, cText, aRect, aColors|
         FW_SayTextHilite( hDC, cText, aRect, oFont, aColors[ 1 ], aColors[ 2 ], ;
            { { AllTrim( cWordHL ), oBold, CLR_HRED, CLR_HGREEN } } )
         return nil
         >

      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont, oBold

return nil

//----------------------------------------------------------------------------//

Mr. Nages, thank you.

That's exactly what I was looking for.

Oliveiros Junior

Mr. Nages,

I ask if it would be possible at runtime to fill the array with the words for highlighting?

Att.,

Oliveiros Junkor

Mr. Nages,

Another thing, when using FW_SayTextHilite in multilines he doesn't respect the line break, he writes everything in succession.

Ex: Linha1
Linha2

After FW_SayTextHilite

 Linha1Linha2

Att.,

Oliveiros Junior

Mr. Nages,

just one more thing: if we put an image in the bottom of the browser, when the word in hilite is at the beginning of the sentence it shows well, but if it is in the middle of the sentence, it puts a white background, not respecting the image of the.

Att.,

Oliveiros Junior

oliveiros junior wrote:Mr. Nages,

I ask if it would be possible at runtime to fill the array with the words for highlighting?

Att.,

Oliveiros Junkor

oliveiros junior wrote:Mr. Nages,

Another thing, when using FW_SayTextHilite in multilines he doesn't respect the line break, he writes everything in succession.

Ex: Linha1
Linha2

After FW_SayTextHilite

Linha1Linha2

Att.,

Oliveiros Junior

oliveiros junior wrote:Mr. Nages,

just one more thing: if we put an image in the bottom of the browser, when the word in hilite is at the beginning of the sentence it shows well, but if it is in the middle of the sentence, it puts a white background, not respecting the image of the.

Att.,

Oliveiros Junior

You keep aHilite as static variable.
Fill the array with { { <word>, oFont, [nTxtClr],[nBkClr] } }
Then call oBrw:Refresh()

WITH OBJECT aBrowser[2]
WITH OBJECT :aCols[ 1 ]
:cHeader := ""
HeaderFont := oFonte_padrao
:nHeadStrAlign := AL_CENTER
:nWidth := 80
:bStrData := { || AllTrim( DToC( oMensagem:getValueByPos( 2 ) ) ) }
:nDataStrAlign := AL_TOP
:nCellheight := 20
DataFont := oFonte_botao
:SetColsAsRows( { 1, 2 } )
END

   WITH OBJECT :aCols[ 2 ]
        :cHeader       := ""
        <!-- s:o --><img src="{SMILIES_PATH}/icon_surprised.gif" alt=":o" title="Surprised" /><!-- s:o -->HeaderFont   := oFonte_padrao 
        :nHeadStrAlign := AL_CENTER
        :nWidth        := 10
        :bStrData      := { || oMensagem:getValueByPos( 3 ) }
        :nCellheight   := 25
        :nDataStrAlign := AL_TOP
   END

   WITH OBJECT :aCols[ 3 ]
        :cHeader       := &quot;&quot;
        <!-- s:o --><img src="{SMILIES_PATH}/icon_surprised.gif" alt=":o" title="Surprised" /><!-- s:o -->HeaderFont   := oFonte_padrao 
        :nHeadStrAlign := AL_CENTER
        :nWidth        := 250
        :bStrData      := { || oMensagem:getValueByPos( 13 ) }
        <!-- s:o --><img src="{SMILIES_PATH}/icon_surprised.gif" alt=":o" title="Surprised" /><!-- s:o -->DataFont     := oFonte_browse
        :nDataStrAlign := AL_TOP
        :blDClickData  := { || HTMLPOP( GetActiveWindow(), nil, 0x000E, RTrim( oMensagem:getValueByPos( 13 ) ) ) }

        :bPaintText    := &lt;|oCol, hDC, cText, aRect, aColors|
                          FW_SayTextHilite( hDC, cText, aRect, oFonte_Browse, aColors[ 1 ], aColors[ 2 ], ;
                                            aHilite, oCol )
                          Return NIL
                          &gt;
   END

   :nMarqueeStyle        := MARQSTYLE_HIGHLROW
   :nColDividerStyle     := LINESTYLE_NOLINES
   :nRowDividerStyle     := LINESTYLE_NOLINES
   :lColDividerComplete  := .F.
   :lUpdate              := .T.

   :lRecordSelector      := .F.  
   :lHeader              := .F.
   :lHScroll             := .F.

   :nHeaderHeight        := 30
   :nRowHeight           := 85
   :bClrHeader           := { || { CLR_BLACK, CLR_WHITE } }
   :bClrGrad             := { || { CLR_WHITE, CLR_WHITE } }
   :lDrawBorder          := .T.
   :nStretchCol          := STRETCHCOL_WIDEST
   :bClrSel              := { || { CLR_BLACK, nRGB( 235, 235, 235 ) } }
   :bClrSelFocus         := { || { CLR_BLACK, nRGB( 235, 235, 235 ) } }
   :SetBackGround( cLocal_sistema + '\imagens\fundo.bmp', BCK_FILL )

END

You keep aHilite as static variable.
Fill the array with { { <word>, oFont, [nTxtClr],[nBkClr] } }
Then call oBrw:Refresh()