FiveTech Software tech support forums

... WORD GetWindowRows( HWND hWnd, HDC hDC, HFONT hFont ) { TEXTMETRIC tm; RECT rct; WORD wRows; BOOL bDCDestroy = FALSE; HFONT hOldFont; if( ! hDC ) { bDCDestroy = TRUE; hDC = GetDC( hWnd ); } if( hFont ) hOldFont = ( HFONT ) SelectObject( hDC, hFont ); GetTextMetrics( hDC, ...

... Static Function DrawRotated(hDC,cPrompt,Y,X,nClrText,nClrPane,oFont) Local hOldFont, nOldMode, nOldClrText, nOldClrPane nOldClrText:=SetTextColor(hDC,nClrText) if nClrPane<>nil nOldClrPane:=SetBkColor(hDC,nClrPane) else ...

... ES_RIGHT 2 #define ES_LEFT 0 #Define TA_LEFT 0 #Define TA_RIGHT 2 #Define TA_CENTER 6 METHOD Paint() CLASS TGet local aInfo := ::DispBegin() Local hOldFont if ::oBrush != nil FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) else CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, ...

... ::hWnd ) CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 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 ) ...

... ES_RIGHT 2 #define ES_LEFT 0 #Define TA_LEFT 0 #Define TA_RIGHT 2 #Define TA_CENTER 6 METHOD Paint() CLASS TGet local aInfo := ::DispBegin() local hOldFont if ::oBrush != nil FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) else CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, ...

... ::hWnd ) CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) ExtTextOut( ::hDC, 0, 0,; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) SelectObject( ...

... METHOD Paint() CLASS TGet local aInfo := ::DispBegin() // Mudanca(Cambio) enviada(o) por Antonio Linares en 20/12/2005 local hOldFont if ::oBrush != nil FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) else CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, ...