topic-16587

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Get Redondos en un FOLDER ( RESUELTO )
Posted: Fri Sep 04, 2009 09:05 PM

Estimados

como colocar los get Redondos en los folder

estoy utilizando en dialogos normales asi:

oDlg:bPainted := {|| SetGetRounded(aGet[id_total], oDlg) }

ACTIVATE oDlg CENTERED

Ahora como puedo colocar en un FOLDER que esta en la posicion 5
lo he estado haciendo asi y no funciona

Code (fw): Select all Collapse

oDlg:bPainted := {|| SetGetRounded(aGet[id_total], oFolder )}
oDlg:bPainted := {|| SetGetRounded(aGet[id_total], oFolder:aDialogs[5] ) }

ACTIVATE oDlg CENTERED

alguna sugerencia

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Get Redondos en un FOLDER ( RESUELTO )
Posted: Sat Sep 05, 2009 02:12 PM

Esta es la solución

Code (fw): Select all Collapse

oFolder:aDialogs[5]:bPainted := {|| SetGetRounded(aGet[id_total], oFolder:aDialogs[5] ) }

gracias a mi mismo jaja

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Get Redondos en un FOLDER ( RESUELTO )
Posted: Sat Sep 05, 2009 03:16 PM

Patricio:

La función SetGetRounded() es nativa de FW ?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

empresoft

Posts: 37

Joined: Mon Nov 12, 2007 12:46 PM

Re: Get Redondos en un FOLDER ( RESUELTO )
Posted: Sat Sep 05, 2009 06:36 PM

También quisiera saber, investigué ne que no se encuentra nada acerca de este comando

Luiz Fernando

FWH 804,XHARBOUR 1.1,XDEV,PELLES

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Get Redondos en un FOLDER ( RESUELTO )
Posted: Mon Sep 07, 2009 02:08 AM

Hola, en realidad no se que quien será el autor

//colocar un get redondo

Code (fw): Select all Collapse

function SetGetRounded( oControl, oDlg )
 local hBrush, hOldBrush

 if "TGET" $ oControl:ClassName()
    hBrush    := CreateSolidBrush( RGB( 255, 255, 255 ) )
    hOldBrush := SelectObject( oDlg:hDC, hBrush )

    RoundRect( oDlg:hDC, oControl:nLeft - 3                ,;
                         oControl:nTop  - 2                ,;
                         oControl:nLeft + oControl:nWidth  + 3,;
                         oControl:nTop  + oControl:nHeight + 2,;
                         oControl:nHeight / 2              ,;
                         oControl:nWidth                    )

    SelectObject( oDlg:hDC, hOldBrush )
    DeleteObject( hBrush )
 endif
return(.t.)
//--------------------------------------------------------------------------------------------------------

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

empresoft

Posts: 37

Joined: Mon Nov 12, 2007 12:46 PM

Re: Get Redondos en un FOLDER ( RESUELTO )
Posted: Mon Sep 07, 2009 12:49 PM

interesante.

gracias

Luiz Fernando

FWH 804,XHARBOUR 1.1,XDEV,PELLES

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Get Redondos en un FOLDER ( RESUELTO )
Posted: Mon Sep 07, 2009 02:07 PM

Patricio:

Gracias !.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

cuatecatl82

Posts: 625

Joined: Wed Mar 14, 2007 06:49 PM

Re: Get Redondos en un FOLDER ( RESUELTO )
Posted: Mon Sep 07, 2009 04:19 PM

Hola Saludos a la Comunidad...

Solo una observación:
Creo que solo funciona con GETS creados desde Código fuente, desde recursos no hay cambios, sigue con la forma cuadrada, o si estoy haciendo algo mal, corrijanme porfa..

Un abrazo..

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Get Redondos en un FOLDER ( RESUELTO )
Posted: Mon Sep 07, 2009 07:39 PM

Hola

En el recurso debes colocar SINBORDER

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

FiveTech Support Forums

Continue the discussion