%em_setmargins

[Brian Reynolds]

Has anyone had experience using %EM_SETMARGINS?
I have tried using all of the following with EZGUI and directly by API:

%EM_SETMARGINS, %EC_LEFTMARGIN OR EC_RIGHTMARGIN, l&
%EM_SETMARGINS, %EC_LEFTMARGIN, l&
%EM_SETMARGINS, %EC_RIGHTMARGIN, l&

but in the cases where I use %EC_LEFTMARGIN it will only set the left margin and ignores the right margin setting.

Could someone offer advice?

[Paul Squires]

Here is free code directly from the FireFly Visual Designer function library:

Sub FF_TextBox_SetMargins (ByVal hWndControl As Dword, _
                           ByVal nLeftMargin As Long, _
                           ByVal nRightMargin As Long) 
    
    ' Do a check to ensure that this is actually a window handle
    If IsWindow(hWndControl) Then  
       ' Set the margins
       SendMessage hWndControl, %EM_SETMARGINS, _
                      %EC_LEFTMARGIN Or %EC_RIGHTMARGIN, _
                      MakLng(nLeftMargin, nRightMargin)
    End If  
    
End Sub

[Brian Reynolds]

Thanks Paul, worked well.