delphi - Changing TTextCell background colour at runtime XE4 -


i worked through example posted here starting point: change background of ttextcell in firemonkey tgrid

i have created textcellstyle references image, , working well. when run program cells display background image expected.

from above link, mike sutton (i hope you're reading this, without input!) writes (repeated here make easier):

"you can set each of cells stylelookup properties use it, or set styles stylename textcellstyle have picked automatically every ttextcell."

following on query changing font colours (delphi xe4 firemonkey grid control - styling cells individually), can 1 set background colours dynamically well?

my code on creating cells:

constructor tfinancialcell.create(aowner:tcomponent);  begin   inherited;   stylelookup:='textcellstyle';   styledsettings:=styledsettings-[tstyledsetting.ssstyle,tstyledsetting.ssfontcolor];    textalign:=ttextalign.tatrailing; end;

this applies image tfinancialcell.

but, per font colour query, image background display when value reached or whatever:

procedure tfinancialcell.applystyling; begin   font.style:=[tfontstyle.fsitalic];    if isnegative     fontcolor:=clared   else     fontcolor:=clagreen;    if isimportant font.style:=[tfontstyle.fsitalic,tfontstyle.fsbold];    if assigned(font.onchanged)     font.onchanged(font);    repaint; end;

any how appreciated.

thanks mike. had fiddle around bit, got work based on suggestion. added trectangle textcellstyle in stylecontainer, follows:

textcellstyle : tlayout     background: tsubimage         rectangle1: trectangle         rectanimation: trectanimation

in tfinancialcell.applystyle tried findstyleresource ('background'), returned nil. changed findstyleresource ('rectangle1') , worked great. because looks relevant stylename property (which defaults 'rectangle1' rectangle 1) in object inspector? still not quite seeing wood trees, i'm sure can tell...

the working code:

procedure tfinancialcell.applystyle;  var    t : tfmxobject;  begin   inherited;    t:=findstyleresource('rectangle1');    if (t<>nil) , (t trectangle)   begin      if trectangle(t).fill<>nil      begin        if isnegative        begin         trectangle(t).fill.color:=clared;          repaint;       end;       end;   end;    applystyling; end;

i tried, separate exercise, put code above in tfinancialcell.applystyling, , worked there, not sure better option, , why?

the summary of understanding of these styles far (please correct/comment necessary):

  1. i have created style called textcellstyle, apply in tfinancialcell.create tfinancialcell class [stylelookup:='textcellstyle'].
  2. when call tfinancialcell.applystyling, able access font , fontcolor properties of tfinancialcell directly, these properties properties of ttextcell.
  3. if want paint background of cells, have explicitly call trectangle component manually added textcellstyle 'style', , access fill etc property there.

Comments

Post a Comment

Popular posts from this blog

php - mySql Join with 4 tables -

select * web_user e inner join web_audio ce on ce.uid = e.uid inner join web_videos c on c.uid = e.uid inner join web_images d on d.uid = e.uid e.uid = '1' we have scenario have 4 tables , want fetch records on basis of uid web_user table rest of tables fetch records on basis of web_user uid. have 6 records database. returning 8 time. below response of mysql query. uid ufname ulname uemail username upassword uaddress ucity ustate uzipcode uphone uimage usertype ugenre website biography uverifycode featured activate ustatus upaid aid uid a_filename a_uploadname a_genre a_singername a_approve a_price vid uid v_filename v_uploadname v_short_desc v_singername v_approve v_price iid uid upload_file i_approve ========================== 1 muhammad mohsin mohsin@balianti.com mohsin 213123 test addresss 0 1 40100 333-2335-5555 fds_896_autumn-mist.jpg 1 6 null null 202cb962ac59075b964b07152d234b70 1 1 1 1 1 1 asd muhammad_709.mp3 5 asd 0 0.00 1 1 test video muhammad_578.flv ...
Read more

css - Text drops down with smaller window -

i've adapted css use in website , can't quite figure out why 1 aspect of page acting way acting. basically, when shrink window below size horizontally, of text "drops down". becomes issue if user viewing website through ipad vertical orientation. can view issue here . i'm hoping make if window gets smaller, placement of text remains intact. the problem area not have enough space put both side navigation , content on 1 line. make automatically adjust page's width when exceeds decrements of width. this code example, , highly unlikely work. if see css more clearly, provide exact code. @media , (max-width:960px) { /* assuming #wrapper 960px across */ #content {width:560px;} /* opposed 720px */ } edit the content drops down @ 980px, have shrink width after there. @media , (max-width:980px) { #container {width:520px;} }
Read more

c# - DetailsView in ASP.Net - How to add another column on the side/add a control in each row? -

i have detailsview control on page used edit various fields of record, works in respect. i looking way add 1 column (and if works, why not more) right, absolutely read-only, show same fields of record comparison purposes. i aware there no obvious way such thing out of box detailsview . have looked other controls (transposed gridview , recommended formview , listview ), nothing satisfies. have special data binding setup using detailsview , can't out of without losing features. anyone on how "hack in" additional columns (for display only) on detailsview ? the solution have now, use second detailsview , visible set false in aspx. in code, make sure databind hidden detailsview hosts data third column first, initial detailsview named itemdetails . and in item created event, pass third column html rendering of hidden controls (in last code block) : protected void itemdetails_itemcreated(object sender, eventargs e) { if (dataite...
Read more