Hi
How to change the style of the TMultiGet control window so that it has a title ?
Board index FiveWin for Harbour/xHarbour style of TMultiGet
I didn't understand. Do you have a small example?
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
What would you like to do/change?
Regards, saludos.
// 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 / ENDJoão Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
When creating a Multijet(), this style is used"
I need to change the style of an already existing control (exclude WS_CHILD)
::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 ) ) )I think whatever you want, only Master Rao can help. I imagine it would be +- like this:
Regards, saludos.
// 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 / ENDJoão Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Thanks, I'll try!