On Tuesday 22 November 2011 09.52:15 wahono sri wrote:
> How to write various color text in trichstringdisp? It is possible?
> 
Sure. :-) Use the richvalue property and the various procedures in 
mserichstring.pas.
"
 richstringty = record
  text: msestring;
  format: formatinfoarty;
  flags: richflagsty;
 end;

function setfontcolor(var formats: formatinfoarty; aindex: integer; 
                       len: halfinteger; color: colorty): boolean;
                                 //true if changed
function setcolorbackground(var formats: formatinfoarty; aindex: integer;
                              len: halfinteger;
                              color: colorty): boolean;
                                 //true if changed

function updatefontstyle(var formats: formatinfoarty; aindex: integer;
                              len: halfinteger;
                              astyle: fontstylety; aset: boolean): boolean;
                                 //true if changed
function setcharstyle(var formats: formatinfoarty; aindex,len: halfinteger;
                            const style: charstylety): boolean;
                                  //true if changed
function getcharstyle(const formats: formatinfoarty; aindex: integer): 
charstylety;

procedure setselected(var text: richstringty; start,len: halfinteger);
"
------------------------------------------------------------------------------
All the data continuously generated in your IT infrastructure 
contains a definitive record of customers, application performance, 
security threats, fraudulent activity, and more. Splunk takes this 
data and makes sense of it. IT sense. And common sense.
http://p.sf.net/sfu/splunk-novd2d
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Reply via email to