DrawEdge - New feature

Source code related resources

Moderator: Rathinagiri

User avatar
mustafa
Posts: 603
Joined: Fri Mar 20, 2009 11:38 am
Location: Alicante - Spain
Been thanked: 46 times

Re: DrawEdge - New feature

Post by mustafa » Sun Dec 08, 2013 11:23 am

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 :D
*------------------------------------------------------------*
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 :D

User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 177 times

Post by Pablo César » Sun Dec 08, 2013 11:33 am

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

viewtopic.php?p=10325#p10325

Image
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:

Image

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. :)
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

User avatar
esgici
Posts: 4363
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 246 times
Been thanked: 91 times
Contact:

Post by esgici » Sun Dec 08, 2013 12:37 pm

My two cents :
DrawEdgeImages.jpg
Some experimental HMG logo works
DrawEdgeImages.jpg (28.09 KiB) Viewed 488 times
DrawEdgeImages.zip
HMG Logo Pictures and changed .fmg
(24.97 KiB) Downloaded 59 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 :arrow:

Viva HMG :D
Last edited by esgici on Sun Dec 08, 2013 2:56 pm, edited 2 times in total.
Viva INTERNATIONAL HMG :D

User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 177 times

Post by Pablo César » Sun Dec 08, 2013 1:17 pm

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 ?
esgici wrote: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.
esgici wrote: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. :)
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

User avatar
esgici
Posts: 4363
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 246 times
Been thanked: 91 times
Contact:

Post by esgici » Sun Dec 08, 2013 1:42 pm

Pablo César wrote: 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 ) :oops:

Viva HMG :D
Viva INTERNATIONAL HMG :D

User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 177 times

Post by Pablo César » Sun Dec 08, 2013 1:47 pm

esgici wrote:
Pablo César wrote: 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 ) :oops:

Viva HMG :D
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. :)
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

User avatar
mustafa
Posts: 603
Joined: Fri Mar 20, 2009 11:38 am
Location: Alicante - Spain
Been thanked: 46 times

Post by mustafa » Sun Dec 08, 2013 3:10 pm

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
Attachments
Demo.zip
(56.6 KiB) Downloaded 46 times
screenshot.jpg
screenshot.jpg (43.97 KiB) Viewed 478 times

User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 177 times

Post by Pablo César » Sun Dec 08, 2013 3:26 pm

Nice, very nice picture ! No problem Mustafa. Merry Christmas to you too !
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

User avatar
esgici
Posts: 4363
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 246 times
Been thanked: 91 times
Contact:

Post by esgici » Sun Dec 08, 2013 3:34 pm

mustafa wrote: 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 :arrow:

As Pablo said :
the most important we have many options to grow up together
That's all 8-)

Merry Christmas to you too :D
Viva INTERNATIONAL HMG :D

User avatar
srvet_claudio
Posts: 1958
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 32 times
Been thanked: 125 times
Contact:

Post by srvet_claudio » Sun Dec 08, 2013 5:56 pm

Pablo César wrote: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
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

Post Reply