The value still behind the button! Very ugly!
JĂșlio CĂ©sar M. Ferreira
FWH 8.10 / xHB 1.1.0 / xDevStudio 0.72 / Pelles C 5.0.1 / SQLLIB 1.9
Hello JC,
There was a topic in the forum < Button in Get problem >,
a few days ago, about this problem.
Regards
Uwe ![]()
JĂșlio,
We are currently working on it, to solve that problem and also the horizontal scrolling issue.
Antonio Linares wrote:JĂșlio,
We are currently working on it, to solve that problem and also the horizontal scrolling issue.
Antonio Linares wrote:JĂșlio,
We are currently working on it, to solve that problem and also the horizontal scrolling issue.
Frank,
No, not yet.
We plan to have it ready in a few days.
Has this problem been fixed in 8.10?
Thks.
No, it has not been solved, though the source code is in 8.10.
Please review source\classes\tget.prg and look for WM_NCCALCSIZE
Antonio Linares wrote:No, it has not been solved, though the source code is in 8.10.Please review source\classes\tget.prg and look for WM_NCCALCSIZEI'm also waiting for this fix before I can use it
Patrick,
The source code for it is in 8.10, but if we apply it the client area gets reduced and the button is not visible.
We are not sure yet if it can get visible, or if we have to place it out of the GET, not as a child control.
Hi Antonio:
Will you solve it in 8.11?
I have searched this feature for a long time. Waiting for it since I want to start a new project massively using this feature.
Thanks.
Antonio Linares wrote:Patrick,
The source code for it is in 8.10, but if we apply it the client area gets reduced and the button is not visible.
We are not sure yet if it can get visible, or if we have to place it out of the GET, not as a child control.
case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT )
SetTextAlign( ::hDC, TA_RIGHT )
if ::lSpinner
ExtTextOut( ::hDC, 1, ::nWidth() - 7 - GetSysMetrics( SM_CYHSCROLL ),;
{ 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
else
ExtTextOut( ::hDC, 1, ::nWidth() - 7 ,;
{ 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
endif case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT )
SetTextAlign( ::hDC, TA_RIGHT )
if ::lSpinner
ExtTextOut( ::hDC, 1, ::nWidth() - 7 - GetSysMetrics( SM_CYHSCROLL ),;
{ 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
else
if ValType( ::bAction ) == "B" // Agregar
ExtTextOut( ::hDC, 1, ::nWidth() - 7 - ::nHeight,; //agregar
{ 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) //agregar
else //agregar
ExtTextOut( ::hDC, 1, ::nWidth() - 7 ,;
{ 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
endif //agregar
endif::SetMargins( 1, 1 ) if ValType( ::bAction ) == "B" // new
::SetMargins( 1, ::nHeight) //new
else //new
::SetMargins( 1, 1 )
endif //newAntonio,
The solution of mcfox works very fine! Now, it's all ok!