• shel
  • New member
  • Offline
  • Registered: 2014-10-23
  • Posts: 4

Topic: Цвет статуса

Доброго дня.Основываясь на вот эту тему http://myvisualdatabase.com/forum/viewtopic.php?id=232 можно статусам ремонта присваивать свой цвет с помощью скрипта.Но в других версиях данный скрипт не работает.У меня версия 1.43.
Подскажите как изменить скрипт чтобы цвет работал в моей версии?
Спасибо!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Цвет статуса

Приветствую,


скачайте пожалуйста последнюю версию (1.45), она совместима с вашей версией проекта
http://myvisualdatabase.com/download/myvisualdb.exe


После чего, скачайте другой пример реализации присваивание цвета
http://myvisualdatabase.com/forum/misc. … download=1



также можете посмотреть эту тему
http://myvisualdatabase.com/forum/viewtopic.php?id=451

Dmitry.
  • shel
  • New member
  • Offline
  • Registered: 2014-10-23
  • Posts: 4

Re: Цвет статуса

Я все это уже проделывал,все равно не получается(
Вот скрипт который я вставляю в чистый проект КлиентМастер.

 procedure Form1_TableGrid1_OnChange (Sender: string);
var
   i,c: integer;
begin
     c := Form1.TableGrid1.RowCount - 1;
     for i := 0 to c do
     begin
         if Form1.TableGrid1.Cells[3,i] = 'В ремонте' then Form1.TableGrid1.Cell[3,i].Color := clRed;
if Form1.TableGrid1.Cells[3,i] = 'Готов' then Form1.TableGrid1.Cell[3,i].Color := clGreen;
     end;
end;

begin

end.

Добавляю в Словаре статусы Готов и В ремонте,но все равно,статус не подсвечивается..

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Цвет статуса

Пожалуйста, пришлите ваш проект на support@drive-software.com со ссылкой на эту тему.
посмотрю в чем дело.

Dmitry.
  • shel
  • New member
  • Offline
  • Registered: 2014-10-23
  • Posts: 4

Re: Цвет статуса

Отправил,хотя я там кроме самого скрипта больше ничего не менял.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Цвет статуса

Вы неверно создали событие, недостаточно просто скопировать код, перед этим необходимо создать событие, с помощью инспектора объектов на вкладке "События", как это делается можно посмотреть здесь
http://myvisualdatabase.com/help_ru/scr … rview.html



код события будет таким:

procedure Form1_TableGrid1_OnChange (Sender: string);
var
   i,c: integer;
begin
     c := Form1.TableGrid1.RowCount - 1;
     for i := 0 to c do
     begin
         if Form1.TableGrid1.Cells[2,i] = 'НОВАЯ' then Form1.TableGrid1.Cell[2,i].Color := clRed;
         if Form1.TableGrid1.Cells[2,i] = 'Готов' then Form1.TableGrid1.Cell[2,i].Color := clGreen;
     end;
end;

я лишь исправил номер столбца, с 3 на 2, т.к. нумерация столбцов начинается с нуля.

Dmitry.
  • shel
  • New member
  • Offline
  • Registered: 2014-10-23
  • Posts: 4

Re: Цвет статуса

Спасибо огромное,все получилось.Теперь красит статусы smile