цветные ячейки

BARAKUDA

Здравствуйте!

Подскажите где и что нужно написать
что бы было

если в ячейке цыфра она закрашивается зеленым цветом,
а если в ячейке слово «резерв» то ячейка красная

заранее благодарен!

-=Serg=-

Думаю подойдет Highlight (ищи на тулбаре рядом с параметрами выравниваия текста либо в свойтсвах мемки)

BARAKUDA

а как мне там условие указать
типа если цифра то красный
а если резерв то зеленый

-=Serg=-

Как обычно.

BARAKUDA

begin if <frxDBDataset3."Mart">='Резерв' then
begin
memo21.color:=clblack;
end;
end;

такой код не катит

Fokewolf

написал:

begin if <frxDBDataset3."Mart">='Резерв' then
begin
memo21.color:=clblack;
end;
end;

такой код не катит

Почему не катит?

-=Serg=-

BARAKUDA написал:

begin if <frxDBDataset3."Mart">='Резерв' then
begin
memo21.color:=clblack;
end;
end;

Какой код?
Напиши эту строку <frxDBDataset3."Mart">='Резерв' и выбери для фона красный цвет.

BARAKUDA

а вдруг в ячейке будет не резерв а цифра тогда цвет зеленый нужен

Fokewolf

Господи, да сделайте в событии MemoOnAfterData :
If Value='резерв' then
нужный цвет

По поводу цифр :
If Ord(перебор всех символов Memo.Value) если ASSCII коды - цифры - нужный цвет, да и все.

Lex

на форуме уже много раз говорили что в случае изменения параметров TfrxMemoView(и т.д.) в коде скрипта в обработчиках типа OnAfterData или OnBeforePrint и т.д. нужно делать примерно так:

  if {условие1} then
    TfrxMemoView(Sender).Color := clBlack
  else if {условие2} then
    TfrxMemoView(Sender).Color := clRed
  else
    TfrxMemoView(Sender).Color := clNone;

но вообще -=Serg=- прав (а какже иначе )

написал:

Какой код? 
Напиши эту строку <frxDBDataset3."Mart">='Резерв' и выбери для фона красный цвет.

в данном случае использовать код скрипта стоИт лишь в ознакомительных целях

BARAKUDA

спасибо

BARAKUDA

if value<>'' then
TfrxMemoView(Sender).Color := clBlack
else if value='Резерв' then
TfrxMemoView(Sender).Color := clRed
else
TfrxMemoView(Sender).Color := clNone;

пишу так все пустые ячейки черные - негодится

либо ячейки на самом деле не пустые, либо у меня руки кривые

Lex

if value='Резерв' then
  TfrxMemoView(Sender).Color := clRed
else if value='' then
 TfrxMemoView(Sender).Color := clNone
else
 TfrxMemoView(Sender).Color := clBlack;

BARAKUDA

теперь работает...

Извиняюсь за тупость...