help for save a say aspect

[Silvio.Falconi]

I wish to save the caption of say, the color, and the font to a file ini
first problem when I change the caption it not refresh
Some one can help me please

Code: Select all  Expand view

#include "FiveWin.ch"


Static cImpresa, oFont[4] ,oSay[1]

Function Test()
   Local oDlg
cImpresa:="<<Impresa>>"

 DEFINE DIALOG oDlg  SIZE 680,520 ;
                    TITLE "Test"

 ACTIVATE DIALOG oDlg;
      ON INIT Placecontrol(oDlg)
Return NIL


function Placecontrol(oWnd)

 DEFINE FONT oFont[1] NAME "Arial" SIZE 0,-24  // iMPRESA

@ 3, 2 SAY oSay[1] PROMPT cImpresa    OF  oWnd  DESIGN SIZE 250, 24      TRANSPARENT    FONT oFont[1]
     oSay[1]:bRClicked = { | nRow, nCol | LabelInspect(oSay[1], nRow, nCol,"IMPRESA" ) }
     oSay[1]:SetFocus()
Return NIL


 function LabelInspect( oCtrl, nRow, nCol, cSection)
   local oMenu
   MENU oMenu POPUP
      MENUITEM "&Colori" ACTION oCtrl:SelColor()
      MENUITEM "&Fonts"   ACTION oCtrl:SelFont()
      MENUITEM "&caption" ACTION (oCtrl:Settext( GET_TEST()),oCtrl:GetText(),oCtrl:refresh())
   ENDMENU

   ACTIVATE MENU oMenu AT nRow, nCol OF oCtrl
   RETURN NIL


    FUNCTION GET_TEST()
            LOcal cName :=space(30)
            Local ctext

      MsgGet( "Please type your text",;          // Title
              "Your text:",;                     // Label
              @cName )

               return  ctext

[MaxP]

You can try these changes

Code: Select all  Expand view

    #include "FiveWin.ch"


    Static cImpresa, oFont[4] ,oSay[1]

    Function Test()
       Local oDlg
    cImpresa:="<<Impresa>>"

     DEFINE DIALOG oDlg  SIZE 680,520 ;
                        TITLE "Test"

     ACTIVATE DIALOG oDlg;
          ON INIT Placecontrol(oDlg)
    Return NIL


    function Placecontrol(oWnd)

     DEFINE FONT oFont[1] NAME "Arial" SIZE 0,-24  // iMPRESA

    @ 3, 2 SAY oSay[1] PROMPT cImpresa    OF  oWnd  DESIGN SIZE 250, 24      TRANSPARENT    FONT oFont[1]

         oSay[1]:bRClicked = { | nRow, nCol | LabelInspect(oSay[1], nRow, nCol,"IMPRESA", @cImpresa ) }
         oSay[1]:SetFocus()
    Return NIL


     function LabelInspect( oCtrl, nRow, nCol, cSection, cImpresa)
       local oMenu
       MENU oMenu POPUP
          MENUITEM "&Colori" ACTION (oCtrl:nClrText:=ChooseColor( oCtrl:nClrText ),oCtrl:refresh())
          MENUITEM "&Fonts"   ACTION oCtrl:SelFont()
          MENUITEM "&caption" ACTION (cImpresa:=GET_TEST(),oCtrl:Refresh())
       ENDMENU

       ACTIVATE MENU oMenu AT nRow, nCol OF oCtrl
       RETURN NIL


        FUNCTION GET_TEST()
                LOcal cName :=space(30)
                Local ctext

          MsgGet( "Please type your text",;          // Title
                  "Your text:",;                     // Label
                  @cName )

                   return  cName
 

Saluti
Massimo