procedure TForm_main.wwGrid_mailCalcTitleImage(Sender: TObject; Field: TField; var TitleImageAttributes: TwwTitleImageAttributes); begin if Field.FieldName=DM_client.wwCDS_mail.indexname then TitleImageAttributes.imageIndex:= 6 else if Field.FieldName+'_Desc'=DM_client.wwCDS_mail.indexname then TitleImageAttributes.imageIndex:= 5 else TitleImageAttributes.imageIndex:= -1 end;
Field: TField; var TitleImageAttributes: TwwTitleImageAttributes);
begin
if Field.FieldName=DM_client.wwCDS_mail.indexname then
TitleImageAttributes.imageIndex:= 6
else
if Field.FieldName+'_Desc'=DM_client.wwCDS_mail.indexname then
TitleImageAttributes.imageIndex:= 5
else
TitleImageAttributes.imageIndex:= -1
end;