Mr. Rao's samples collection.

[Marc Venken]

Ok.

But the Full is ready to use ? Only the yellow bar for seeking topic details is not working (I mean the filter)

[ukoenig]

Yes it is the same seek problem like incremental seek

in XbrwTest.exe defined

:lIncrFilter := .T.
:bSeek := { |c| ( oBrw:cAlias )->( BrwFilter( c ) ) }

in Forum.exe defined / changed

:lSeekBar := .t.
:bClrEdits := { || { CLR_HRED, CLR_YELLOW } }

on using index-rebuld it works but only once without changing the file

regards
Uwe

[Marc Venken]

In the test folder, the exe gives a error

Time from start: 0 hours 0 mins 28 secs
Error occurred at: 12/02/2018, 21:36:51
Error description: Error DBFCDX/1020 Data type error: FORUM

Stack Calls
===========
Called from: .\XBRWTEST.PRG => NEW_DBF( 938 )
Called from: .\XBRWTEST.PRG => (b)MAIN( 349 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 688 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 928 )

[ukoenig]

Marc,

FIXED

we can test different seek-solutions

FORUM.exe -> seekbar
xBRWTEST -> incr. seek

Download :
http://www.pflegeplus.com/DOWNLOADS/Forum5.zip

regards
Uwe

[Marc Venken]

Thanks !!

[ukoenig]

Marc,

I got it working to import data from a selected forum.
Next I can select a topic from the browser and connect to the forum ( shows the topic-position ).



regards
Uwe

[Marc Venken]

Great Uwe,

Here i have a code that I have working to highlight a word in a memo field and a browse.

Put this in the samples dir and compile.

Now it is hardcoded to look and change "FiveWin", but it works.

Keep in mind that this code is simple, not uptimised, and not programmed like the guys here. )))

It can put you on a starting point..

Code: Select all

#include "FiveWin.ch"
#include "RichEdit.ch"

function Main()

  local cTitle:="Test"
  local cResult, oMemo
  Public cShowstr:=""
  Public oDlg

  REQUEST DBFCDX

   USE clients via "DBFCDX" NEW

   DEFINE FONT oFont NAME "Courier New" SIZE 8,15
   DEFINE FONT oBold NAME "Courier New" BOLD SIZE 8,15

   DEFINE DIALOG oDlg FROM 5,10 TO 50, 200 font oFont TITLE "Test Color"

   @ 10, 10 XBROWSE oBrw OF oDlg ;
      SIZE 400, 200 PIXEL ;
      COLUMNS 'Name', 'Adress', 'Notes' ;
      ALIAS 'CLIENTS' NOBORDER

   WITH OBJECT oBrw

      :nColDividerStyle := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :bClrRowFocus     := { || { CLR_BLACK, RGB(185,220,255) } }
      :nMarqueeStyle    := MARQSTYLE_HIGHLROWMS

      :bChange := { || oSay:refresh(),showmemo() }

      :CreateFromCode()
   END

   @ 10,460 SAY oSay PROMPT clients->notes SIZE 200,200 PIXEL OF oDlg COLOR CLR_BLACK update  //TRANSPARENT

   ACTIVATE DIALOG oDlg CENTERED

   close all
Return nil

function showmemo()
   Local cStr:=""
   local cChange:= "FiveWin"   //  Word that we will look for
   local cInto:= "\cf2 FiveWin \cf1"  // Put Word in Color


   cText = alltrim(clients->notes)

   cStr  += "{\rtf1\ansi\deff0"
   cStr  += "{\colortbl;\red0\green0\blue0;\red255\green0\blue0;}"
   cstr  = cStr + cText
   cStr  += "}"

   cShowStr = StrTran( cStr, cChange, cInto )  // --> "Harbour Power"

   hDLL = LoadLibrary( 'riched20.dll' )
   @ 250,900 RICHEDIT oMemo VAR cShowstr of oDlg PIXEL SIZE 300,400

return NIL

 

[ukoenig]

What is new :

1. You can connect to a topic selected from the browser
2. You can connect to a forum selected from the country flags
3. a topic-filter can be defined as keyword, author AND both
4. after a import the browser-column 2 shows a image
-- now You can define a flag with a right mouseclick to the forum the topic belongs to ( scroll )
5. changing the < refresh-button > to green, will correct the forum-number 3 inside the topic-link with the selected
-- forum-number < 3, 6, 20, 32 or 21 > on flag-image change in column 2

SETUP-section
6. You can select the xBrowse SEEK-style : headerbar, incr. seek or NON
7. Now You can add the last topic-no. of each forum inside the setup-section to remember

http://www.pflegeplus.com/DOWNLOADS/Forum6.zip





regards
Uwe

[ukoenig]

Last minute change
The forum detection during the import is working now
( slowly reaching the horizon )

http://forums.fivetechsupport.com/viewt ... 29#p210029

some extra work was needed in
cContents := oHttp:ResponseText()



http://www.pflegeplus.com/DOWNLOADS/Forum6.zip

regards
Uwe

[Marc Venken]

Great Job.

Thanks for the work...

[Marc Venken]

It is working very nice.

Nice Tool.

Is the coloring of the selected text also on the todo ?

[ukoenig]

Marc,

Is the coloring of the selected text also on the todo ?

YES next in line.
As well a copy-button for the complete topic to past the text inside a texteditor

regards
Uwe

[Marc Venken]

Some tests show this : (not all topic text is imported)

In the Forum the collector has taken the Quot text (reply) but not the new typed text.

[ukoenig]

Marc,

You can check it with the button topic-connection that jumps directly to the topic.
Like You can see it is exactly the same just 2 lines of code.



regards
Uwe

[Marc Venken]

You are right. I was confused, but it is the Code that is taken from the forum, like intended...