Re: i_Color.ch
Posted: Sat Oct 04, 2014 12:41 pm
Gracias a andyglezl, Grigory y demás por vuestras aportaciones.
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
Hi Mustafa.mustafa wrote: ↑Fri Feb 01, 2019 3:48 pm Experimenting with the great Work on Colors
of Master Grigory Filatov.
See -> http://www.hmgforum.com/viewtopic.php?f ... WinVersion
I tried to make a Quick Search of Names of Colors,
but unfortunately when you press the selected Color
The correct numerical code is not giving the Search.
When it is not in the form of a search it is going right.
The Arrows is also correctly indicating color code and
Name of the Color, it is only failing the codes with the Finder
If a colleague can review it, I think it would be a contribution
as a tool to locate the color and with copy and paste
transfer to our projects that we are working.
The Copy and Paste is working perfect have been incorporated
Brackets ---> in the color code "{000,000,000}"
There is another Sample of the friend Esgici that also modify
See-> http://www.hmgforum.com/viewtopic.php?f ... afa#p57606
Regards
Mustafa
Code: Select all
*---------------------------------------------------------*
Procedure Show_RGB()
*---------------------------------------------------------*
Local cColorName := Form_1.Grid_1.CellEx (Form_1.Grid_1.Value, 1)
Local nSearchATaColors := ASCAN ( aColors, { |x| x [1] == cColorName } )
Form_1.StatusBar.Item( 1 ) := SPACE(3)+" Value RGB: " + IIF (nSearchATaColors > 0, aColors [ nSearchATaColors] [ 2 ], 'Unknown' ) + SPACE(2)+ "Color :"+SPACE(1)+ IIF (nSearchATaColors > 0, aColors [ nSearchATaColors] [ 1 ], 'Unknown' )
Return
Code: Select all
IF Upper( cTxtQ ) = Upper( Left(aData [ i ] [ 1] , nLen ) )
Code: Select all
IF Upper( cTxtQ ) $ Upper( aData [ i ] [ 1] )
Code: Select all
*---------------------------------------------------------*
FUNCTION Cleany()
*---------------------------------------------------------*
Form_1.Text_002.Value :=""
Form_1.Text_002.SetFocus
Positione()
Return Nil