Texto em TProgressBar

[Mhacker]

Senhores,
Como posso fazer para colocar um texto em um TProgressBar, já tentei o Parí¢metro cText , mas não teve efeito nenhum.
Ex:
oProgressBar1:cText := "TESTE DE ESCRITA"
Desde já agradeço a ajuda,
Atenciosamente,
Marcelo Coelho Silva
Brasil

[bingen]

Appdata:oWaitOnMeter:OnChange := {|| cProgressText:=IF(!Empty(cTexto),cTexto+" ",""),;
cProgressText+=IF(lVerCantidad,AllString(Appdata:oWaitOnMete r:nValue)+ " / "+AllString(nTotalValue),""),;
Appdata:oWaitOnMeter:cText:= cProgressText,;
Application:SetProgress(psNORMAL,Appdata:oWaitOnMeter:nValue ,nTotalValue),ProcessMessages() }

[joselalinf]

Marcelo,
este código es de hace tiempo pero deberí­a funcionar:
CLASS TProgressBar FROM XProgressBar
PUBLISHED:
PROPERTY cText INIT ""
PROPERTY nClrText INIT clWindowText
PUBLIC:
METHOD WMPaint()
ENDCLASS
//---------------------------------------------------------- ----------------
METHOD WMPaint( hDC ) CLASS TProgressBar
LOCAL cText
hDC := ::BeginPaint( hDC )
PrevWindowProc( ::Handle, WM_PAINT, hDC, 0 )
IF !Empty( ::cText )
cText := StrTran( ::cText, "%i", AllTrim( ToString( ::nValue ) ))
SetBkMode( hDC, TRANSPARENT )
SetTextColor( hDC, ::nClrText )
DrawText( hDC, cText, GetClientRect( ::Handle ), nOR( DT_CENTER,
DT_VCENTER, DT_SINGLELINE ) )
ENDIF
::Super:WmPaint()
RETURN ::EndPaint( hDC )
//---------------------------------------------------------- ----------------
Saludos,
José Lalí­n

[Marcelo Coelho Silva]

Funcionou Perfeito.
Obrigado.
Atenciosamente,
Marcelo Coelho Silva
Brasil.
Em 25/03/2015 09:34, José Lalí­n escreveu:
> Marcelo,
>
> este código es de hace tiempo pero deberí­a funcionar:
>
> CLASS TProgressBar FROM XProgressBar
>
> PUBLISHED:
> PROPERTY cText INIT ""
> PROPERTY nClrText INIT clWindowText
>
> PUBLIC:
> METHOD WMPaint()
>
> ENDCLASS
>
> //----------------------------------------------------------
> ----------------
>
> METHOD WMPaint( hDC ) CLASS TProgressBar
>
> LOCAL cText
>
> hDC := ::BeginPaint( hDC )
> PrevWindowProc( ::Handle, WM_PAINT, hDC, 0 )
>
> IF !Empty( ::cText )
> cText := StrTran( ::cText, "%i", AllTrim( ToString( ::nValue ) ))
> SetBkMode( hDC, TRANSPARENT )
> SetTextColor( hDC, ::nClrText )
> DrawText( hDC, cText, GetClientRect( ::Handle ), nOR( DT_CENTER,
> DT_VCENTER, DT_SINGLELINE ) )
> ENDIF
>
> ::Super:WmPaint()
>
> RETURN ::EndPaint( hDC )
>
> //----------------------------------------------------------
> ----------------
>
> Saludos,
> José Lalí­n
>
---
Este email foi escaneado pelo Avast antiví­rus.
http://www.avast.com