Search options (Page 288 of 400)

procedure Form1_OnShow (Sender: string; Action: string);
var
   reg: TRegistry;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_ALL_ACCESS;
     reg.RootKey := HKEY_CURRENT_USER;
     reg.OpenKey('software\Microsoft\Windows\CurrentVersion\Run',true);

     Form1.CheckBox1.Checked := reg.ValueExists('MyProjectMVD');

     reg.CloseKey;
     reg.Free;
end;

procedure Form1_OnClose (Sender: string; Action: string);
var
   reg: TRegistry;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_ALL_ACCESS;
     reg.RootKey := HKEY_CURRENT_USER;
     reg.OpenKey('software\Microsoft\Windows\CurrentVersion\Run',true);

     if Form1.CheckBox1.Checked then
         reg.WriteString('MyProjectMVD', '"'+Application.ExeName+'"')
     else reg.DeleteValue('MyProjectMVD');

     reg.CloseKey;
     reg.Free;
end;


begin
end.

procedure Form1_GridEmployees_OnChange (Sender: string);
var
   i,c: integer;
begin
     c := Form1.GridEmployees.RowCount - 1;
     for i := 0 to c do
     begin
         if Form1.GridEmployees.Cells[3,i] = 'Yes' then Form1.GridEmployees.Cell[3,i].Color := clRed
             else Form1.GridEmployees.Cell[3,i].Color := clGreen;
     end;
end;

begin

end.

procedure CalculateTotal;
begin
    frmZakaz.edTotal.Value := frmZakaz.edCost.Value * frmZakaz.edQ.Value; // calculate
end;

procedure frmZakaz_edQ_OnChange (Sender: string);
begin
    CalculateTotal;
end;

procedure frmZakaz_edCost_OnChange (Sender: string);
begin
    CalculateTotal;
end;


begin

end.