Gradient en Dialogo que permite cambiar el tamaño

Gradient en Dialogo que permite cambiar el tamaño

Postby fgondi » Wed Dec 14, 2011 11:17 am

Al aplicar un gradiente a un diálogo que permite cambiar su tamaño me he encontrado el problema de que el gradiente no se redimensiona

Asi es como defino el gradiente:
Code: Select all  Expand view
DEFINE DIALOG oDlg Resource cResource OF oWnd Transparent Gradient { { 1, RGB(229, 233, 238), RGB(255, 255, 255) } }


La única forma que se me ha ocurrido es incluir esto en el ON RESIZE
Code: Select all  Expand view
oDlg:SetColor(,, oDlg:oBrush:Resized( oDlg:nWidth, oDlg:nHeight, 2) )


Funciona, aunque la redimensión con el ratón va un poco como a tirones.

Es correcto, o existe alguna otra posibilidad.
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
User avatar
fgondi
 
Posts: 694
Joined: Fri Oct 07, 2005 6:58 am
Location: Palencia, España

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 86 guests