RoundRect()
Posted: Tue Feb 27, 2007 12:00 pm
Hola,
Alguien sabe como rellenar de un color un rectangulo redondeado. He probado con el brush pero me rellena el rectangulo completo
Gracias
Alguien sabe como rellenar de un color un rectangulo redondeado. He probado con el brush pero me rellena el rectangulo completo
Code: Select all
::GetDc()
hPen := CreatePen( 0, 2, CLR_BLACK )
oBrush := TBrush():New( , CLR_RED )
hOldPen := SelectObject( ::hDc, hPen )
hOldBrush := SelectObject( ::hDC, oBrush:hBrush )
Roundrect( ::hDC, 0, 0, ::nWidth, ::nHeight, 25, 25 )
SelectObject( ::hDc, hOldPen )
SelectObject( ::hDC, hOldBrush )
DeleteObject( hPen )
oBrush:End()
::ReleaseDc()