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

Комментарии

• -=Serg=-

  May 2006 отредактировано 02:37

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

  May 2006 отредактировано 02:37

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

  May 2006 отредактировано 02:37

  Как обычно.
• BARAKUDA

  May 2006 отредактировано 02:37

  begin if <frxDBDataset3."Mart">='Резерв' then
  begin
  memo21.color:=clblack;
  end;
  end;
  
  такой код не катит
• Fokewolf Киев

  May 2006 отредактировано 02:37

  написал:

  begin if <frxDBDataset3."Mart">='Резерв' then
  begin
  memo21.color:=clblack;
  end;
  end;
  
  такой код не катит

  
  Почему не катит?
• -=Serg=-

  May 2006 отредактировано 02:37

  BARAKUDA написал:

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

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

  May 2006 отредактировано 02:37

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

  May 2006 отредактировано 02:37

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

  May 2006 отредактировано May 2006

  на форуме уже много раз говорили что в случае изменения параметров 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

  May 2006 отредактировано 02:37

  спасибо
• BARAKUDA

  May 2006 отредактировано 02:37

  if value<>'' then
  TfrxMemoView(Sender).Color := clBlack
  else if value='Резерв' then
  TfrxMemoView(Sender).Color := clRed
  else
  TfrxMemoView(Sender).Color := clNone;
  
  пишу так все пустые ячейки черные - негодится
  
  либо ячейки на самом деле не пустые, либо у меня руки кривые
• Lex

  May 2006 отредактировано 02:37

  
  

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

  May 2006 отредактировано 02:37

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