DrawEdge - New feature

[mustafa]

Hola amigos miren si les puede servir y mejorar estos adornos
diseñados desde Label. -----> BoxLetterShoW.ch

viewtopic.php?f=15&t=1389" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;

viewtopic.php?f=12&t=215&start=20" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;

saludos
Mustafa
*------------------------------------------------------------*
Hello friends, look if you can serve and improve these motifs
designed from Label. -----> BoxLetterShoW.ch

viewtopic.php?f=15&t=1389" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;

viewtopic.php?f=12&t=215&start=20" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;

regards
Mustafa

[Pablo César]

Hola amigos miren si les puede servir y mejorar estos adornos
diseñados desde Label. -----> BoxLetterShoW.ch

viewtopic.php?p=10325#p10325

Ahhh si muy buenos Mustafa, yo ya los habia visto antes.

Realmente son muy lindos, tambien otra opción es la de Esgici este tópico, como muestra la imagen abajo:



Todas son fantásticas, creo que se pueden hacer combinaciones de uso entre ellas. Eso es lo bueno que la comunidad aqui nos proporciona. Gran variedad y que podemos mejorar recursos.

[esgici]

My two cents :

Some experimental HMG logo works

DrawEdgeImages.jpg (28.09 KiB) Viewed 5147 times

DrawEdgeImages.zip

HMG Logo Pictures and changed .fmg

(24.97 KiB) Downloaded 362 times

As far as I understood, sadly there isn't color option

But I guess may be possible changing edge parameters ( thickness and others ) by user interactively

And a little problem : when screen changed ( fe selecting another task ) edges goes away

Anyway thank to share Pablo

Viva HMG

[Pablo César]

Very nice Esgici (I liked those HMG pictures), thank for your interest too. But how you solved the compilation ? Was any wrong in your updates in 3.1.5 ? Why is not accepting Form.HANDLE ? Any reason ?

As far as I understood, sadly there isn't color option

But I guess may be possible changing edge parameters ( thickness and others ) by user interactively

Well as I already said, this is an useful function provided by the Win32 API (MSDN - Microsoft) I do not know if this could it be posible.

The good news is this feature could it be added to the existing controls. There is also this question [exturl]viewtopic.php?p=31180#p31180]made here [/exturl] to Dr. Soto which I guess to be possible to implement it keeping particulars with Win32 API features.

And a little problem : when screen changed ( fe selecting anther task ) edges goes away

This I have noted and I was going to clarify it. But for at beginning seems quite easy to solve it until the community and Claudio decide if it would be interesting to have it in intricately components (as I mentioned in another topic Mustafa). From now, to keep it DrawEdge alives you can set it at:

ON SIZE
ON MAXIMIZE
ON GOTFOCUS

I will see what can be done for this question. Thanks again for your observations.

[esgici]

But how you solved the compilation ? Was any wrong in your updates in 3.1.5 ? Why is not accepting Form.HANDLE ? Any reason ?

It was my fault ( wrong HMG version )

Viva HMG

[Pablo César]

But how you solved the compilation ? Was any wrong in your updates in 3.1.5 ? Why is not accepting Form.HANDLE ? Any reason ?

It was my fault ( wrong HMG version )

Viva HMG

No problem my friend ! I guess that so... the most important we have many options to gorw up together. And I have very special affects for your good contributions in our community.

[mustafa]

Un saludo a Esgici y a los demas amigos
solo queria hacer una replica al trabajo
de Esgici, sin querer menospreciar el
gran trabajo de Pablo César, lo siento
cuando termine el sample, Esgici y Pablo
César, habian intercambiado mensajes.
Lo siento mi Post Inoportuno, pero lo
tenia terminado el sample y creo que valia
la pena publicarlo.

Feliz Navidad
Mustafa
*----------------------------------------------*
Esgici Greetings to friends and to others
I just wanted to make a working replica
of Esgici inadvertently downplay the
great work of Pablo César, sorry
when you finish the sample, and Paul Esgici
Caesar had exchanged messages.
Sorry my Post Untimely, but
sample had ended and I think was worth
worth to be published.

Merry Christmas
Mustafa

[Pablo César]

Nice, very nice picture ! No problem Mustafa. Merry Christmas to you too !

[esgici]

Esgici Greetings to friends and to others
I just wanted to make a working replica
of Esgici inadvertently downplay the
great work of Pablo César, sorry
when you finish the sample, and Paul Esgici
Caesar had exchanged messages.
Sorry my Post Untimely, but
sample had ended and I think was worth
worth to be published.

Merry Christmas
Mustafa

Hola Mustafa, my brother

Please don't worry

As Pablo said :

the most important we have many options to grow up together

That's all

Merry Christmas to you too

[srvet_claudio]

Optimized code and added a FRAMEs options too (not so nice) but can gives an idea to replace frames for DrawEdge.

Very Nice Pablo!!!

PS: After using the handle DC you must release, example:

Code: Select all

Function Set_Screen5()

Local hDC:=GetDC(Screen_5.Handle)

DrawEdge( hDC, GetControlCoords("Screen_5","List_1",2), EDGE_BUMP  , BF_RECT )
DrawEdge( hDC, GetControlCoords("Screen_5","List_2",2), EDGE_ETCHED, BF_RECT )
DrawEdge( hDC, GetControlCoords("Screen_5","List_3",2), EDGE_RAISED, BF_RECT )
DrawEdge( hDC, GetControlCoords("Screen_5","List_4",2), EDGE_SUNKEN, BF_RECT )

ReleaseDC (Screen_5.Handle, hDC)

Return Nil