HMGforum.com

KDJ wrote:Run time error occurs, if you call REFRESH method for TextBox control.
In the following example, click on "Show password" CheckBox:
...

KDJ wrote:Run time error occurs, if you call REFRESH method for TextBox control.

In the following example, click on "Show password" CheckBox:

Code: Select all

#include 'hmg.ch'

FUNCTION Main()

  DEFINE WINDOW Main_WA;
    MAIN;
    ROW    100;
    COL    100;
    WIDTH  225;
    HEIGHT 150;
    TITLE  'TextBox Password Test';
    NOSIZE;
    NOMAXIMIZE;
    NOMINIMIZE

    DEFINE LABEL Pass_LA
      ROW     10
      COL     10
      WIDTH  200
      HEIGHT  13
      VALUE  'Type password:'
    END LABEL

    DEFINE TEXTBOX Pass_TE
      ROW        26
      COL        10
      WIDTH     200
      HEIGHT     21
      VALUE     'my password'
      PASSWORD  .T.
    END TEXTBOX

    DEFINE CHECKBOX Pass_CBO
      ROW       55
      COL       10
      WIDTH    200
      HEIGHT    16
      CAPTION  'Show password'
      ONCHANGE ShowPassword()
    END CHECKBOX

    DEFINE BUTTON OK_BU
      ROW     85
      COL     25
      WIDTH   80
      HEIGHT  25
      CAPTION 'OK'
      ACTION  Main_WA.RELEASE
    END BUTTON

    DEFINE BUTTON Cancel_BU
      ROW     85
      COL    115
      WIDTH   80
      HEIGHT  25
      CAPTION 'Cancel'
      ACTION  Main_WA.RELEASE
    END BUTTON

    ON KEY ESCAPE ACTION Main_WA.RELEASE

  END WINDOW

  Main_WA.ACTIVATE

RETURN NIL

FUNCTION ShowPassword()
  LOCAL lShowPass := Main_WA.Pass_CBO.VALUE

  SendMessage(Main_WA.Pass_TE.HANDLE, 0x00CC /*EM_SETPASSWORDCHAR*/, If(lShowPass, 0, 0x25CF), 0)
  Main_WA.Pass_TE.REFRESH

  //solution:
  //RedrawWindow(Main_WA.Pass_TE.HANDLE)

RETURN NIL 

srvet_claudio wrote:...
Use Redraw method...

  //solution:
  * RedrawWindow(Main_WA.Pass_TE.HANDLE)
Main_WA.Pass_TE.REDRAW

Refresh is supported only by small group of controls

srvet_claudio wrote:Use Redraw method, Refresh is supported only by small group of controls.

GetSystemMetrics(nIndex) --> Return nValue
HMG_ChangeWindowStyle(hWnd, [nAddStyle], [nRemoveStyle], [lExStyle], [lRedrawWindow]) --> Return nOldStyle
HMG_IsValidFileName(cFileNameWithoutPath) --> Return lValid
HMG_SendMessage(hWnd, nMsg, [@]wParam, [@]lParam) --> Return nResult
SendMessage(hWnd, nMsg, wParam, lParam) --> Return nResult