FiveTech Software tech support forums

... bInit, bRClicked, bWhen ) METHOD Initiate( hWndFocus, hWnd ) CLASS TDIAG LOCAL lFocus := Super:Initiate( hWndFocus, hWnd ) * ::nDif := IF(lAnd(GetWindowLong(::hWnd,GWL_STYLE),WS_BORDER),1,0) ::bStart := { || ::StartPaint() } RETURN lFocus METHOD Paint() CLASS TDIAG DrawBitmap( ::hDc, ::hFond, ...

... 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) do case case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) SetTextAlign( ::hDC, TA_CENTER ) ExtTextOut( ::hDC, 0, ::nWidth() / 2, ; { 0, 0, ::nHeight(), ::nWidth() ...

... 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) do case case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) SetTextAlign( ::hDC, TA_CENTER ) case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT ) SetTextAlign( ...

... 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) do case case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) // 1 SetTextAlign( ::hDC, TA_CENTER ) // 6 case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT ) ...

Antonio, I try and try ... and nothing to change dialog. Maybe my code is wrong ? When I use GWL_EXSTYLE GetWindowLong () return 0, GWL_STYLE return value <> 0 but dialog is still standard. #define GWL_STYLE (-16) #define GWL_EXSTYLE (-20) #define SHIDIM_FLAGS ...

... I used #define GWL_STYLE -16 #define WS_EX_CAPTIONOKBTN 0x80000000 (Found them on a Web site) Then : DEFINE WINDOW oWnd TITLE "Orders" nStyle = GetWindowLong( oWnd:hWnd, GWL_STYLE ) SetWindowLong( oWnd:hWnd, GWL_STYLE, nOr( nStyle, WS_EX_CAPTIONOKBTN ) ) The Icon remains as an "X" and not "OK" ...