Rebol text fields - checking values and changing colors -


in following prototype test code, i'm trying create comparison system compares 2 fields, , colors them depending on whether equal or not.

comparecolors: [     either answer-user/text = answer-correct/text [         answer-user/font/color: green         answer-correct/font/color: green         show answer-user         show answer-correct     ][         answer-user/font/color: red         answer-correct/font/color: black         show answer-user         show answer-correct     ] ]  view layout [     answer: field [         answer-user/text: copy answer/text         comparecolors         show answer         focus answer         show answer-user     ]     label "compare"     answer-user: info     answer-correct: info     across     text-list "hello" "goodbye" "boy" "girl" "soldier" [         answer-correct/text: copy value         comparecolors         show answer-correct     ] ]

some problems having:

  • the green color affecting fields instead of ones specifying.
  • the red color not working when 2 fields not equal.
  • the system not check none! value (i know not written in above code, tried ways didn't work, don't know how go it).

whenever see multiple fields affected when change attribute of one, means vid has made optimization fields sharing same data structure, , in same font structure. so, need force vid allocate new font structure this:

change-colors: func [ user [object!] correct [object!]     /local u c  ][     set [ u c ]       either user/text = correct/text [         [ green green ]     ][          [ red black ]     ]     user/font/color: u     correct/font/color: c     show [ user correct ]    ]  view layout [     answer: field [         answer-user/text: copy answer/text         change-colors answer-user answer-correct         focus answer     ] font-color black     label "compare"     answer-user: info  font-color black     answer-correct: info  font-color black     across     text-list "hello" "goodbye" "boy" "girl" "soldier" [         answer-correct/text: copy value         change-colors answer-user answer-correct     ] ]

-

Comments

Post a Comment

Popular posts from this blog

c# - Binding a comma separated list to a List<int> in asp.net web api -

the default binder in web api expecst http://url.com/webapi/report/?pageids=3243&pageids=2365 to bind public ihttpactionresult report(list<int> pageids){ // exciting webapi code} i wish bind http://url.com/webapi/report/?pageids=3243,2365 as running out of space in url get . i have created class public class commaseparatedmodelbinder : system.web.http.modelbinding.imodelbinder { public bool bindmodel(httpactioncontext actioncontext, modelbindingcontext bindingcontext) { //binding in here } } and registered in webapiconfig.cs var provider = new simplemodelbinderprovider( typeof(list<int>), new commaseparatedmodelbinder()); config.services.insert(typeof(modelbinderprovider), 0, provider); i have altered method signature use model binder so public ihttpactionresult report( [modelbinder] list<int> pageids){ // exciting webapi code} however break point in binder not being
Read more

Delphi 7 and decode UTF-8 base64 -

in delphi 7, have widestring encoded base64(that received web service widestring result) : pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg== when decoded it, result not utf-8: <?xml version="1.0"?> <string>طھط³طھ</string> but when decoded base64decode.org, result true : <?xml version="1.0"?> <string>تست</string> i have use encddecd unit decodestring function. the problem have using decodestring . function, in delphi 7, treats decoded binary data being ansi encoded. , problem text utf-8 encoded. to continue encddecd unit have couple of options. can switch decodestream . instance, code produce utf-8 encoded text file data: {$apptype console} uses classes, encddecd; const data = 'pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg=='; var input: tstringstream; output: tfilestream; begin input := tstringstream.create(data); try output := tfilestream.
Read more

html - Is there any way to exclude a single element from the style? (Bootstrap) -

so, have img logo, overlaid on div styled background-image: url("...") , , both elements inside 2 div classes .to-color , .to-overlay respectively, black transparent overlay. is there way exclude logo style given these 2 classes? here's jsfiddle example: link html , css example: - html - <div class="to-color"> <div class="to-overlay"> <div class="respo"> <div class="row"> <div class="col-xs-4 col-xs-offset-4 text-center"> <img src="http://ansonalex.com/wp-content/uploads/2011/06/google-logo-768x260.png" alt="..." class="img-responsive"> </div> </div> </div> </div> </div> - css - .to-color { background-color: #000; } .to-overlay { opacity : 0.5; } .respo { background-image: url("https://source.unsplash.com/category/objects/1600x900"); background-position: center center;
Read more