esgici wrote:...
By the way, you thing use it how; a single color scheme for all form and controls of your application, accept user color preference for each form and/or control separately ?
...
Hi Esgici,
Thanks a lot for your kind words
I created this app suddenly, when the idea came to my mind (and HMG is a very good tool to make our ideas true
![Very Happy :D](./images/smilies/icon_e_biggrin.gif)
). I didn't think it seriously yet, but some ideas again
1. Form and control back color may be stored separately - it can be done using ini file.
2. I like same look and feel through out an app, but my users most probably don't like it. If they want to maintain different color schemes for different form, it can be stored in local tables. I don't want to give much pressure on ini file.
This is my ad-hoc view of the solution of the problem. Please tell us what's your solution
Thank you again for taking this basic and small app seriously
After some time:
I changed some code for GetBackcolor() and GetForecolor() functions as follows:
Code: Select all
//---------------------------- getbackcolor()
function getbackcolor()
local acol := getcolor({bcr, bcg, bcb})
if !(valtype(acol) == 'A' .and. len(acol) == 3 .and. valtype(acol[1]) == 'N')
return nil
endif
bcr := acol[1]
bcg := acol[2]
bcb := acol[3]
changecolor()
return nil
//---------------------------- getforecolor()
function getforecolor()
local acol := getcolor({fcr, fcg, fcb})
if !(valtype(acol) == 'A' .and. len(acol) == 3 .and. valtype(acol[1]) == 'N')
return nil
endif
fcr := acol[1]
fcg := acol[2]
fcb := acol[3]
changecolor()
return nil