Are there any Treeview samples with associated edit boxes?

[Antonio Linares]

Support for RichEdit5 from pim.prg:

EXE and full source code:
https://github.com/FiveTechSoft/FWH_tools/blob/master/pim.zip

[FWExplorer]

You're moving faster than we can absorb it.

No problem building the last version. Looks like the environmental issues are resolving, notwithstanding climate change.


Is the name of this - Pim - too generic? Should it be titled 'FWPim' or 'Fim', for short?

Support for RichEdit5 from pim.prg:

EXE and full source code:
https://github.com/FiveTechSoft/FWH_tools/blob/master/pim.zip

[FWExplorer]

plus2.bmp is missing from the 16x16 folder, but it is in the 32x32 folder, in c:\fwh


────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Harbour 20.08 - Aug. 2020 Harbour development power │▄
│ (c) FiveTech 1993-2020 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
Harbour 3.2.0dev (r2008190002)
Copyright (c) 1999-2020, https://harbour.github.io/
Compiling 'pim.prg' and generating preprocessed output to 'pim.ppo'...
Lines 5928, Functions/Procedures 14
Generating C source output to 'pim.c'... Done.
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
pim.c:
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.

Error pim.RC 26 17: Cannot open file: ../bitmaps/16x16/plus2.bmp
* Linking errors *

[Antonio Linares]

D.

missing bitmaps added into pim.zip

We are focused on functionality and bugs detecting and solving. We can rename it later on

[FWExplorer]

Antonio,

Are you looking for feedback, regarding the pim? Not sure if I should keep adding my two cents.

Coupla of things.

Can the edit of a mode be done in place, rather than in a popup?

Also, I'm not clear on how keystrokes are processed. Is it based on the scancode in ctscan.ch? I tried changing it to other keystrokes, but it didn't respond.

Code: Select all  Expand view

  oTree:bKeyChar = { | nKey | If( nKey == 43, TreeAddItem( oTree ),) }

[Antonio Linares]

D.

Yes, feedback is welcome and appreciated

> Can the edit of a mode be done in place, rather than in a popup?

We are working to implement it for FWH itself

Please try it this way:
oTree:bKeyChar = { | nKey, nFlags | MsgInfo( nKey, "key" ), MsgInfo( nFlags ), If( nKey == 43, TreeAddItem( oTree ),) }

[FWExplorer]

I'll try it, but typo on 'Msgnfo'.

[FWExplorer]

It doesn't matter what key we give it, explicitly. It only works for the numberic keypad 43.

oTree:bKeyChar = { | nKey, nFlags | MsgInfo( nKey, "key" ), MsgInfo( nFlags ), If( nKey == 224, TreeAddItem( oTree ),) }

[Antonio Linares]

Enhanced version with RichEdit button bar support:


There is a position bug in the RichEdit buttonbar, when some text is written into the RichEdit. We
are working to solve it.

Please download pim.zip again from:
https://github.com/FiveTechSoft/FWH_tools/blob/master/pim.zip

Notice that we are already testing the TreeView inline editing but it is not working yet. Also this pim.exe
requires an updated FWH build

[Antonio Linares]

It doesn't matter what key we give it, explicitly. It only works for the numberic keypad 43.

oTree:bKeyChar = { | nKey, nFlags | MsgInfo( nKey, "key" ), MsgInfo( nFlags ), If( nKey == 224, TreeAddItem( oTree ),) }

We are going to check it, thanks

[Antonio Linares]

Updated version:

TreeView inline editing support:
https://github.com/FiveTechSoft/FWH_tools/blob/master/pim.zip

Move the mouse over the top part of the richedit to show the buttonbar

[FWExplorer]

Can't build the latest pim.

Compiling 'pim.prg' and generating preprocessed output to 'pim.ppo'...
1 error

No code generated.
pim.prg(206) Error E0030 Syntax error "syntax error at '@'"
* Compile errors *

[C:\fwh\samples]


I downloaded fwh.exe from ftdn today, and it's the same fwh.exe executable as a few days ago. Version 20.08.1.

[Antonio Linares]

D.

A new FWH build is required to build pim.exe

I am sending you an email

[FWExplorer]

Thanks Antonio, I got the libs. But it's a compiler error, not a link error.


ompiling...
Harbour 3.2.0dev (r2008190002)
Copyright (c) 1999-2020, https://harbour.github.io/
Compiling 'pim.prg' and generating preprocessed output to 'pim.ppo'...
1 error

No code generated.
pim.prg(206) Error E0030 Syntax error "syntax error at '@'"
* Compile errors *

[C:\fwh\samples]


I downloaded the most recent fwh.exe, yesterday. Is there an update to the include files?

This is where the compile error occurs:

Code: Select all  Expand view

  @ 0, 205 RICHEDIT5 oMemo VAR cItemText OF oWndData SIZE 300, 100 PIXEL BARBUTTON ;
      ON CHANGE ( cItemText := oMemo:SaveAsRTF(), oBtnSave:Enable(), oMemo:Cargo := .T.,;
                  If( oTree:GetSelected() != nil, oTree:GetSelected():Cargo := cItemText,) )                  
 

[cnavarro]

Use this file richedi5.ch

Code: Select all  Expand view

#ifndef _RICHEDIT5_CH
#define _RICHEDIT5_CH

#ifndef SF_RTF
#define SF_RTF                   2
#endif
#ifndef SFF_SELECTION
#define SFF_SELECTION            32768
#endif

#ifndef EM_GETSEL
#define EM_GETSEL                176
#endif
#ifndef EM_SCROLL
#define EM_SCROLL                181
#endif
#ifndef EM_GETMODIFY
#define EM_GETMODIFY             184
#endif
#ifndef EM_SETMODIFY
#define EM_SETMODIFY             185
#endif
#ifndef EM_GETLINECOUNT
#define EM_GETLINECOUNT          186
#endif
#ifndef EM_LINEINDEX
#define EM_LINEINDEX             187
#endif
#ifndef EM_CANUNDO
#define EM_CANUNDO               198
#endif
#ifndef EM_REPLACESEL
#define EM_REPLACESEL            194
#endif
#ifndef EM_UNDO
#define EM_UNDO                  199
#endif
#ifndef EM_POSFROMCHAR
#define EM_POSFROMCHAR           ( WM_USER + 38 )
#endif
#ifndef EM_SCROLLCARET
#define EM_SCROLLCARET           ( WM_USER + 49 )
#endif
#ifndef EM_CANPASTE
#define EM_CANPASTE              ( WM_USER + 50 )
#endif
#ifndef EM_EXLIMITTEXT
#define EM_EXLIMITTEXT           ( WM_USER + 53 )
#endif
#ifndef EM_EXLINEFROMCHAR
#define EM_EXLINEFROMCHAR        ( WM_USER + 54 )
#endif
#ifndef EM_GETSELTEXT
#define EM_GETSELTEXT            ( WM_USER + 62 )
#endif
#ifndef EM_SETBKGNDCOLOR
#define EM_SETBKGNDCOLOR         ( WM_USER + 67 )
#endif
#ifndef EM_SETOPTIONS
#define EM_SETOPTIONS            ( WM_USER + 77 )
#endif

#ifndef _RICHEDIT_CH
#define CFM_BOLD                 1
#define CFM_ITALIC               2
#define CFM_UNDERLINE            4
#define CFM_STRIKEOUT            8

#define CFE_BOLD                 1
#define CFE_ITALIC               2
#define CFE_UNDERLINE            4
#define CFE_STRIKEOUT            8

#define PFA_LEFT                 1
#define PFA_RIGHT                2
#define PFA_CENTER               3
#define PFA_JUSTIFY              4

#define SF_TEXT                  1

#define EM_SETUNDOLIMIT          ( WM_USER + 82 )
#define EM_REDO                  ( WM_USER + 84 )
#define EM_CANREDO               ( WM_USER + 85 )
#define EM_GETAUTOURLDETECT      ( WM_USER + 91 )

#define EM_SETTYPOGRAPHYOPTIONS  ( WM_USER + 202 )
#define EM_GETTYPOGRAPHYOPTIONS  ( WM_USER + 203 )

#define EN_LINK                  1803

#define ES_DISABLENOSCROLL       8192

#define ECO_READONLY             2048

#define ECOOP_OR                 2
#define ECOOP_XOR                4

#define TO_ADVANCEDTYPOGRAPHY    1
#endif

#xcommand REDEFINE RICHEDIT5 [ <oRTF> VAR ] <uVar> ;
             [ ID <nId> ] ;
             [ <dlg: OF, WINDOW, DIALOG> <oDlg> ] ;
             [ <help:HELPID, HELP ID> <nHelpId> ] ;
             [ FONT <oFont> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <readonly: READONLY, NO MODIFY> ] ;
             [ <lHighlight: HIGHLIGHT> ] ;
             [ <file: FILE, FILENAME> <cFileName> ] ;
             [ RTFSIZE <nRTFSize> ] ;
             [ <lNoURL: NO URL> ] ;
             [ WHEN <uWhen> ] ;
             [ VALID <uValid> ] ;
             [ ON CHANGE <uChange> ] ;
             [ MARGINLEFT <nLeftMargin> ] ;
       => ;
          [ <oRTF> := ] TRichEdit5():ReDefine( <nId>, bSETGET(<uVar>), ;
                        <oDlg>, <nHelpId>, <oFont>, <cMsg>, <.readonly.>, ;
                        <.lHighlight.>, <cFileName>, <nRTFSize>, ;
                        <.lNoURL.>, <{uWhen}>, <{uValid}>, ;
                        [\{|nKey, nFlags, Self| <uChange>\}], <nLeftMargin> )

#command @ <nTop>, <nLeft> RICHEDIT5 [ <oRTF> VAR ] <uVar> ;
             [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ FONT <oFont> ] ;
             [ <pixel: PIXEL> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <lHScroll: HSCROLL> ] ;
             [ <readonly: READONLY, NO MODIFY> ] ;
             [ WHEN <uWhen> ] ;
             [ VALID <uValid> ] ;
             [ ON CHANGE <uChange> ] ;
             [ <lDesign: DESIGN> ] ;
             [ <lHighlight: HIGHLIGHT> ] ;
             [ <file: FILE, FILENAME> <cFileName> ] ;
             [ RTFSIZE <nRTFSize> ] ;
             [ <lNoURL: NO URL> ] ;
             [ <lNoScroll: NO SCROLL> ] ;
             [ <lNoBorder: NOBORDER, NO BORDER> ] ;
             [ MARGINLEFT <nLeftMargin> ] ;
             [ <lBar: BARBUTTON> ] ;
       => ;
          [ <oRTF> := ] TRichEdit5():New( <nTop>, <nLeft>, bSETGET(<uVar>), ;
                        [<oWnd>], <nWidth>, <nHeight>, <oFont>, <.pixel.>, ;
                        <cMsg>, <.lHScroll.>, <.readonly.>, <{uWhen}>, ;
                        <{uValid}>, [\{|nKey, nFlags, Self| <uChange>\}], ;
                        <.lDesign.>, <.lHighlight.>, <cFileName>, <nRTFSize>, ;
                        <.lNoURL.>, <.lNoScroll.>, [<.lNoBorder.>], <nLeftMargin>, , <.lBar.> )

#endif