Mr. Rao's samples collection.

Re: Mr. Rao's samples collection.

Postby Marc Venken » Mon Feb 12, 2018 8:23 pm

Ok.

But the Full is ready to use ? Only the yellow bar for seeking topic details is not working (I mean the filter)
Marc Venken
Using: FWH 17.05 with Harbour
Marc Venken
 
Posts: 394
Joined: Tue Jun 14, 2016 7:51 am

Re: Mr. Rao's samples collection.

Postby ukoenig » Mon Feb 12, 2018 8:29 pm

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 :(
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 3460
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Mr. Rao's samples collection.

Postby Marc Venken » Mon Feb 12, 2018 8:37 pm

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 )
Marc Venken
Using: FWH 17.05 with Harbour
Marc Venken
 
Posts: 394
Joined: Tue Jun 14, 2016 7:51 am

Re: Mr. Rao's samples collection.

Postby ukoenig » Mon Feb 12, 2018 9:32 pm

Marc,

FIXED

we can test different seek-solutions

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

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

regards
Uwe :D
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 3460
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Mr. Rao's samples collection.

Postby Marc Venken » Mon Feb 12, 2018 10:21 pm

Thanks !!
Marc Venken
Using: FWH 17.05 with Harbour
Marc Venken
 
Posts: 394
Joined: Tue Jun 14, 2016 7:51 am

Re: Mr. Rao's samples collection.

Postby ukoenig » Wed Feb 14, 2018 5:39 pm

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

Image

regards
Uwe :D
Last edited by ukoenig on Sat Feb 17, 2018 11:24 am, edited 1 time in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 3460
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Mr. Rao's samples collection.

Postby Marc Venken » Thu Feb 15, 2018 10:53 am

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  Expand view

#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

 
Marc Venken
Using: FWH 17.05 with Harbour
Marc Venken
 
Posts: 394
Joined: Tue Jun 14, 2016 7:51 am

Re: Mr. Rao's samples collection.

Postby ukoenig » Mon Feb 19, 2018 9:55 am

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

Image

Image

regards
Uwe :D
Last edited by ukoenig on Mon Feb 19, 2018 3:45 pm, edited 1 time in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 3460
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Mr. Rao's samples collection.

Postby ukoenig » Mon Feb 19, 2018 2:59 pm

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

viewtopic.php?f=3&t=35278&p=210029#p210029

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

Image

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

regards
Uwe :D
Last edited by ukoenig on Mon Feb 19, 2018 3:18 pm, edited 1 time in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 3460
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Mr. Rao's samples collection.

Postby Marc Venken » Mon Feb 19, 2018 3:17 pm

Great Job.

Thanks for the work...
Marc Venken
Using: FWH 17.05 with Harbour
Marc Venken
 
Posts: 394
Joined: Tue Jun 14, 2016 7:51 am

Re: Mr. Rao's samples collection.

Postby Marc Venken » Mon Feb 19, 2018 3:25 pm

It is working very nice.

Nice Tool.

Is the coloring of the selected text also on the todo ?
Marc Venken
Using: FWH 17.05 with Harbour
Marc Venken
 
Posts: 394
Joined: Tue Jun 14, 2016 7:51 am

Re: Mr. Rao's samples collection.

Postby ukoenig » Mon Feb 19, 2018 3:35 pm

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 :D
Last edited by ukoenig on Mon Feb 19, 2018 3:38 pm, edited 1 time in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 3460
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Mr. Rao's samples collection.

Postby Marc Venken » Mon Feb 19, 2018 3:38 pm

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.

Image

Image
Marc Venken
Using: FWH 17.05 with Harbour
Marc Venken
 
Posts: 394
Joined: Tue Jun 14, 2016 7:51 am

Re: Mr. Rao's samples collection.

Postby ukoenig » Mon Feb 19, 2018 3:46 pm

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.

Image

regards
Uwe :D
Last edited by ukoenig on Tue Feb 20, 2018 2:42 pm, edited 1 time in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 3460
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Mr. Rao's samples collection.

Postby Marc Venken » Mon Feb 19, 2018 3:55 pm

You are right. I was confused, but it is the Code that is taken from the forum, like intended...
Marc Venken
Using: FWH 17.05 with Harbour
Marc Venken
 
Posts: 394
Joined: Tue Jun 14, 2016 7:51 am

PreviousNext

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Horizon, ukoenig and 10 guests