这是它的代码: procedure SetTextToDraw;
begin
if (AViewInfo is TcxGridCardRowDataViewInfo) then
begin
if (AViewInfo.Item.Index = cvPersonsGENDER.Index) then
begin
if VarAsType(AViewInfo.GridRecord.Values[cvPersonsGENDER.Index], varBoolean) then
ATextToDraw := 'Male'
else
ATextToDraw := 'Female';
end
else
ATextToDraw := AViewInfo.GridRecord.DisplayTexts[AViewInfo.Item.Index];
end
else
ATextToDraw := VarAsType(AViewInfo.Item.Caption, varString);
end;
begin
if (AViewInfo is TcxGridCardRowDataViewInfo) then
begin
if (AViewInfo.Item.Index = cvPersonsGENDER.Index) then
begin
if VarAsType(AViewInfo.GridRecord.Values[cvPersonsGENDER.Index], varBoolean) then
ATextToDraw := 'Male'
else
ATextToDraw := 'Female';
end
else
ATextToDraw := AViewInfo.GridRecord.DisplayTexts[AViewInfo.Item.Index];
end
else
ATextToDraw := VarAsType(AViewInfo.Item.Caption, varString);
end;
解决方案 »
- 就是想认识大家,希望各位以后能给予照顾!
- filelistbox指定路径的问题
- 求一个DCU!谢谢!
- 急:MIDAS 三层开发,DBNavigator1修改没有被提交,请确认提交后再刷新
- 高分诚请各位高手解答有关DELPHI和EXCEL之间的难题,不够可再加
- 带给有需要的人:招聘信息.请斑竹手下留情。
- 20分,请帮帮忙。(关键字'where'附近有语法错误).
- 关于delphi json 的序列化问题请教
- 做一个类似socksonline协议转换程序,请高手指点思路!肯定给分
- 调用DLL时,往Application的消息应该怎么截取?
- 急!!急!!请教各位高手!
- ADO数据库开发的问题,如何进行多表查询中的数据库更新!
http://expert.csdn.net/Expert/topic/2274/2274811.xml?temp=3.271121E-02
谢谢