Условное выделение при 2-х условиях

mznan

Пишу так: Value=5 и при этом значении у меня в Cross фон меняется на другой цвет.
А как добавить еще одно условие? Например: Value='цемент' ?

И еще один вопрос. Как организовать условное выделение из скрипта?

Andrew_Sh

mznan написал:

Пишу так: Value=5 и при этом значении у меня в Cross фон меняется на другой цвет.
А как добавить еще одно условие? Например: Value='цемент' ?

И еще один вопрос. Как организовать условное выделение из скрипта?

На первый вопрос - только через событие OnPrintCell.

На второй вопрос - напишите обработчик события OnPrintCell для кросса. В доке все достаточно подробно описано.

Пример:

procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
 if (Value>=2001) and (Value<=3000) then
   Memo.Font.Color := clGreen
 else if Value>=3001 then
   Memo.Font.Color := clBlue
 else
   Memo.Font.Color := clRed;
end;

mznan

Все получилось. Большое спасибо.
Еще вопросик. Можно ли задавать цвета в шестнадцатиричном формате?

Andrew_Sh

mznan написал:

Все получилось. Большое спасибо.
Еще вопросик. Можно ли задавать цвета в шестнадцатиричном формате?

Можно. Точно как и в Delphi для использования 16-ричных чисел используйте знак доллара $ перед значением.

  Memo.Font.Color := $0000FF; // красный

но рекомендовал бы все же использовать константы вместо литералов. Если нет стандартной, то объявите свою и используйте. Потом проще будет модифицировать скрипт.