Search options (Page 3 of 3)

Для разукрашивания этот скрипт нашел

var
   i,c: integer;
begin
     c := Form1.GridEmployees.RowCount - 1;
     for i := 0 to c do
     begin
         if Form1.GridEmployees.Cells[3,i] = 'Да' then Form1.GridEmployees.Cell[3,i].Color := clRed
             else Form1.GridEmployees.Cell[3,i].Color := clGreen;
     end;
end;

не понял только можно ли саму кнопку покрасить

проект

//Кнопка дублирование
procedure Form1_Dubl_OnClick (Sender: string; var Cancel: boolean);
begin
   if Form1.TableGrid1.dbItemID<>-1 then
    begin
        SQLExecute ('INSERT INTO lvs (Address, MACAddress, ComputerName, Users, SerialNumber, DateScan, IP_NetUntMACPrt, Name_NetUntMACPrt, Port_NetUntMACPrt, ID ОИКТ, Цех, Склад, Здание, Этаж, Отметка, Помещение, ФИО ответственного) SELECT Address, MACAddress, ComputerName, Users, SerialNumber, DateScan, IP_NetUntMACPrt, Name_NetUntMACPrt, Port_NetUntMACPrt, ID ОИКТ, Цех, Склад, Здание, Этаж, Отметка, Помещение, ФИО ответственного FROM lvs WHERE id='+Form1.TableGrid1.sqlValue );
        Form1.TableGrid1.dbUpdate; // Update TableGrid
        Form1.TableGrid1.dbitemid := last_insert_id;  // select new record in TableGrid
    end;
end;

Больше спасибо работает

Есть такой проект надо сделать в поле lvc сделать что бы MAC при выборе сетевухи вставлялся автоматически и имя компа тоже вставлялся но при этом можно было его потом редактировать. сейчас сделал имя компа по вашему примеру так он вставляет его но при это не дает его редактировать и на любой форме где редактирую вставляет имя пк когорого редактирую. Как можно это исправить?

За это спасибо большое это то что надо было. Но еще вопрос такой можно сделать в комбо боксе список все маков на компе с сетевухами? или что бы выбрав сетевуху или IP из комбо бокса вставлялся ее мак? По поводу переноса есть несколько  текстовых полей подряд и нужно сделать что бы при наборе 2-х символов в первом поле сразу перекидывало на второе поле для набора и так далее)))