Hi
How to change the style of the TMultiGet control window so that it has a title ?
// C:\FWH\SAMPLES\TESTMGE2.PRG
#include "Fivewin.ch"
#include "constant.ch"
STATIC oBar
FUNCTION Main()
LOCAL oDlg
LOCAL nBottom := 27.2
LOCAL nRight := 89
LOCAL nWd := Max( nRight * DLG_CHARPIX_W, 180 )
LOCAL nHt := nBottom * DLG_CHARPIX_H
LOCAL oGet, cVar := "1 - This is a test" + CRLF + "2 - The second line" ;
+ CRLF + "3 - FiveWin Power"
DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL TiTle "Test MULTI" ;
COLORS CLR_BLACK, CLR_WHITE TRANSPARENT
oDlg:lHelpIcon := .F.
@ 0, 0 GET oGet VAR cVar OF oDlg MULTILINE SIZE 680, 350 // MEMO
oDlg:bStart = { || oGet:SetPos( 0 ) }
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
// FIN / END
::nStyle = nOR( WS_CHILD, WS_VISIBLE, ES_LEFT,;
ES_WANTRETURN, ES_MULTILINE,;
If( ! lReadOnly, WS_TABSTOP, 0 ),;
If( ! lNoVScroll, WS_VSCROLL, 0 ),;
If( lDesign, WS_CLIPSIBLINGS, 0 ),;
If( lHScroll, WS_HSCROLL, 0 ),;
If( lCenter, ES_CENTER, If( lRight, ES_RIGHT, ES_LEFT ) ) )
// C:\FWH\SAMPLES\TESTMGE2.PRG
#include "Fivewin.ch"
#include "constant.ch"
#define ES_UPPERCASE 8
STATIC oBar
FUNCTION Main()
LOCAL oDlg
LOCAL nBottom := 27.2
LOCAL nRight := 89
LOCAL nWd := Max( nRight * DLG_CHARPIX_W, 180 )
LOCAL nHt := nBottom * DLG_CHARPIX_H
LOCAL oGet, cVar := "1 - This is a test" + CRLF + "2 - The second line" ;
+ CRLF + "3 - FiveWin Power"
DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL TiTle "Test MULTI" ;
COLORS CLR_BLACK, CLR_WHITE TRANSPARENT
oDlg:lHelpIcon := .F.
@ 0, 0 GET oGet VAR cVar OF oDlg MULTILINE SIZE 680, 350 // MEMO
oDlg:bStart = { || oGet:SetPos( 0 ) }
IF EMPTY( oGet:hWnd )
oGet:nStyle := nOR( oGet:nStyle, ES_UPPERCASE )
oGet:nStyle := nOR( oGet:nStyle, WS_VISIBLE, ES_WANTRETURN, ES_MULTILINE )
ELSE
oGet:WinStyle( ES_UPPERCASE, .T. )
ENDIF
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
// FIN / END
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 83 guests