mainun.pas

pipe类 pipe类 pipe类 pipe类 pipe类

Delta:= 20;

if (Bottom + Delta < 5) then
      begin
         MainPC.Top:=MainPC.Top - Delta;
      end
else if (Bottom < 0) then
       begin
          MainPC.Top:=MainPC.Top - (abs(Bottom) + 5);
       end
      else MainPC.Top:=MainPC.Top - (5 - (Bottom));

end;

procedure TMainFrm.Nav_upClick(Sender: TObject);

var Top, Delta: Integer;

begin
Top:= MainPC.Top;
Delta:= 20;

if (Top + Delta < 2) then
      begin
         MainPC.Top:=MainPC.Top + Delta;
      end
else if (Top < 0) then
           begin
              MainPC.Top:=MainPC.Top + (abs(Top) + 2);
           end
     else MainPC.Top:=MainPC.Top + (2 - (Top));

end;


// Standart features 1 button

procedure TMainFrm.Standard1ffBMouseEnter(Sender: TObject);
    begin
        if Standard1ff.Enabled=true
            then
            Standard1ffB.Color:=$00D2BCAA;
                if not (ActButton=1) then Standard1ff.Font.Color:=$009F502F
    end;

procedure TMainFrm.Standard1ffBMouseLeave(Sender: TObject);
begin
      if ActButton=1
        then
            begin
              Standard1ffB.Color:=$00EADBCF;
              Standard1ff.Font.Color:=$00733A02
            end
      else
            begin
              Standard1ffB.Color:=$00FCF6F1;
              Standard1ff.Font.Color:=$00BE773D;
            end
end;

procedure TMainFrm.Standard1ffMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
        Standard1ffB.Color:=$00EADBCF;
        Standard1ff.Font.Color:=$00733A02
    end;

procedure TMainFrm.Standard1ffMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    begin
        Standard1ffB.Color:=$00D2BCAA;
        ShowStd1ff(CurrentCpuNum);
        ActButton:=1
    end;

// Standart features 2 button

procedure TMainFrm.Standard2ffBMouseEnter(Sender: TObject);
    begin
        if Standard2ff.Enabled=true
            then
            Standard2ffB.Color:=$00D2BCAA;
                if not (ActButton=2) then Standard2ff.Font.Color:=$009F502F
    end;

procedure TMainFrm.Standard2ffBMouseLeave(Sender: TObject);
begin
      if ActButton=2
        then
            begin
              Standard2ffB.Color:=$00EADBCF;
              Standard2ff.Font.Color:=$00733A02
            end
      else
            begin
              Standard2ffB.Color:=$00FCF6F1;
              Standard2ff.Font.Color:=$00BE773D;
            end
end;

procedure TMainFrm.Standard2ffMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
        Standard2ffB.Color:=$00EADBCF;
        Standard2ff.Font.Color:=$00733A02
    end;

procedure TMainFrm.Standard2ffMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    begin
        Standard2ffB.Color:=$00D2BCAA;
        ShowStd2ff(CurrentCpuNum);
        ActButton:=2
    end;

// Extended features 1 button

procedure TMainFrm.Extended1ffBMouseEnter(Sender: TObject);
    begin
        if Extended1ff.Enabled=true
            then
            Extended1ffB.Color:=$00D2BCAA;
                if not (ActButton=3) then Extended1ff.Font.Color:=$009F502F
    end;

procedure TMainFrm.Extended1ffBMouseLeave(Sender: TObject);
begin
      if ActButton=3
        then
            begin
              Extended1ffB.Color:=$00EADBCF;
              Extended1ff.Font.Color:=$00733A02
            end
      else
            begin
              Extended1ffB.Color:=$00FCF6F1;
              Extended1ff.Font.Color:=$00BE773D;
            end
end;

procedure TMainFrm.Extended1ffMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
        Extended1ffB.Color:=$00EADBCF;
        Extended1ff.Font.Color:=$00733A02
    end;

procedure TMainFrm.Extended1ffMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    begin
        Extended1ffB.Color:=$00D2BCAA;
        ShowExt1ff(CurrentCpuNum);
        ActButton:=3
    end;

// Extended features 2 button

procedure TMainFrm.Extended2ffBMouseEnter(Sender: TObject);
    begin
        if Extended2ff.Enabled=true
            then
            Extended2ffB.Color:=$00D2BCAA;
                if not (ActButton=4) then Extended2ff.Font.Color:=$009F502F
    end;

procedure TMainFrm.Extended2ffBMouseLeave(Sender: TObject);
begin
      if ActButton=4
        then
            begin
              Extended2ffB.Color:=$00EADBCF;
              Extended2ff.Font.Color:=$00733A02
            end
      else
            begin
              Extended2ffB.Color:=$00FCF6F1;
              Extended2ff.Font.Color:=$00BE773D;
            end
end;

procedure TMainFrm.Extended2ffMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
        Extended2ffB.Color:=$00EADBCF;
        Extended2ff.Font.Color:=$00733A02
    end;

procedure TMainFrm.Extended2ffMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    begin
        Extended2ffB.Color:=$00D2BCAA;
        ShowExt2ff(CurrentCpuNum);
        ActButton:=4
    end;


// Level 1 Cache button

procedure TMainFrm.Level1btBMouseEnter(Sender: TObject);
    begin
        if Level1bt.Enabled=true
            then
            Level1btB.Color:=$00D2BCAA;
                if not (ActButtonC=1) then Level1bt.Font.Color:=$009F502F
    end;

procedure TMainFrm.Level1btBMouseLeave(Sender: TObject);
begin
      if ActButtonC=1
        then
            begin
              Level1btB.Color:=$00EADBCF;
              Level1bt.Font.Color:=$00733A02
            end
      else
            begin
              Level1btB.Color:=$00FCF6F1;
              Level1bt.Font.Color:=$00BE773D;
            end
end;

procedure TMainFrm.Level1btMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
        Level1btB.Color:=$00EADBCF;
        Level1bt.Font.Color:=$00733A02
    end;

procedure TMainFrm.Level1btMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    begin
        Level1btB.Color:=$00D2BCAA;
        ShowLevel1(CurrentCpuNum);
        ActButtonC:=1
    end;

// Level 2 Cache button

procedure TMainFrm.Level2btBMouseEnter(Sender: TObject);
    begin
        if Level2bt.Enabled=true
            then
            Level2btB.Color:=$00D2BCAA;
                if not (ActButtonC=2) then Level2bt.Font.Color:=$009F502F
    end;

procedure TMainFrm.Level2btBMouseLeave(Sender: TObject);
begin
      if ActButtonC=2
        then
            begin
              Level2btB.Color:=$00EADBCF;
              Level2bt.Font.Color:=$00733A02
            end
      else
            begin
              Level2btB.Color:=$00FCF6F1;
              Level2bt.Font.Color:=$00BE773D;
            end
end;

procedure TMainFrm.Level2btMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
        Level2btB.Color:=$00EADBCF;
        Level2bt.Font.Color:=$00733A02
    end;

procedure TMainFrm.Level2btMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    begin
        Level2btB.Color:=$00D2BCAA;
        ShowLevel2(CurrentCpuNum);
        ActButtonC:=2
    end;

// Level 3 Cache button

procedure TMainFrm.Level3btBMouseEnter(Sender: TObject);
    begin
        if Level3bt.Enabled=true
            then
            Level3btB.Color:=$00D2BCAA;
                if not (ActButtonC=3) then Level3bt.Font.Color:=$009F502F
    end;

procedure TMainFrm.Level3btBMouseLeave(Sender: TObject);
begin
      if ActButtonC=3
        then
            begin
              Level3btB.Color:=$00EADBCF;
              Level3bt.Font.Color:=$00733A02
            end
      else
            begin
              Level3btB.Color:=$00FCF6F1;
              Level3bt.Font.Color:=$00BE773D;
            end
end;

procedure TMainFrm.Level3btMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
        Level3btB.Color:=$00EADBCF;
        Level3bt.Font.Color:=$00733A02
    end;

procedure TMainFrm.Level3btMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    begin
        Level3btB.Color:=$00D2BCAA;
        ShowLevel3(CurrentCpuNum);
        ActButtonC:=3
    end;

// About Page links

      //Tod

procedure TMainFrm.AboutTodMouseEnter(Sender: TObject);
    begin
      AboutTod.Font.Color:=$00C26C15;
      AboutTod.Font.Style:=[fsUnderline];
    end;

procedure TMainFrm.AboutTodMouseLeave(Sender: TObject);
    begin
      AboutTod.Font.Color:=$008D4803;
      AboutTod.Font.Style:=[];
    end;

procedure TMainFrm.AboutTodClick(Sender: TObject);
    begin
      ShellExecute(0, 'open', PChar('mailto:[e-mail]'), nil, nil, SW_SHOWNORMAL);
    end;

      //Daemon

procedure TMainFrm.AboutDaemonMouseEnter(Sender: TObject);
    begin
      AboutDaemon.Font.Color:=$00C26C15;
      AboutDaemon.Font.Style:=[fsUnderline];
    end;

procedure TMainFrm.AboutDaemonMouseLeave(Sender: TObject);
    begin
      AboutDaemon.Font.Color:=$008D4803;
      AboutDaemon.Font.Style:=[];
    end;

procedure TMainFrm.AboutDaemonClick(Sender: TObject);
    begin
      ShellExecute(0, 'open', PChar('mailto:[e-mail]'), nil, nil, SW_SHOWNORMAL);
    end;

      //Nikita

procedure TMainFrm.AboutNikitaMouseEnter(Sender: TObject);
    begin
      AboutNikita.Font.Color:=$00C26C15;
      AboutNikita.Font.Style:=[fsUnderline];
    end;

procedure TMainFrm.AboutNikitaMouseLeave(Sender: TObject);
    begin
      AboutNikita.Font.Color:=$008D4803;
      AboutNikita.Font.Style:=[];
    end;

procedure TMainFrm.AboutNikitaClick(Sender: TObject);
    begin
      ShellExecute(0, 'open', PChar('mailto:[e-mail]'), nil, nil, SW_SHOWNORMAL);
    end;

      //www.overclockers.ru

procedure TMainFrm.AboutForumsMouseEnter(Sender: TObject);
    begin
      AboutForums.Font.Color:=$00C26C15;
      AboutForums.Font.Style:=[fsUnderline];
    end;

procedure TMainFrm.AboutForumsMouseLeave(Sender: TObject);
    begin
      AboutForums.Font.Color:=$008D4803;
      AboutForums.Font.Style:=[];
    end;

procedure TMainFrm.AboutForumsClick(Sender: TObject);
    begin
      ShellExecute(0, 'open', PChar('http://overclockers.ru'), nil, nil, SW_SHOWNORMAL);
    end;

//QNX
procedure TMainFrm.AboutQnxMouseEnter(Sender: TObject);
begin
  AboutQNX.Font.Color:=$00C26C15;
  AboutQNX.Font.Style:=[fsUnderline];
end;

procedure TMainFrm.AboutQnxMouseLeave(Sender: TObject);
begin
  AboutQNX.Font.Color:=$008D4803;
  AboutQNX.Font.Style:=[];
end;

procedure TMainFrm.AboutQnxClick(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar('mailto:[e-mail]'), nil, nil, SW_SHOWNORMAL);
end;



procedure TMainFrm.ApplyBTPMouseEnter(Sender: TObject);
begin
  ApplyBTP.Color:=$00D2BCAA;
end;

procedure TMainFrm.ApplyBTPMouseLeave(Sender: TObject);
begin
  ApplyBTP.Color:=$00EADBCF;
end;

procedure TMainFrm.ApplyBTMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ApplyBTP.Color:=$00EADBCF;
  ApplyBT.Font.Color:=$00733A02
end;

procedure TMainFrm.ApplyBTMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ApplyBTP.Color:=$00D2BCAA;
  ApplyPMdata;
end;

procedure TMainFrm.RefreshBTMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  RefreshBTP.Color:=$00EADBCF;
  RefreshBT.Font.Color:=$00733A02
end;

procedure TMainFrm.RefreshBTMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  RefreshBTP.Color:=$00D2BCAA;
  RefreshPMdata;  
end;

procedure TMainFrm.RefreshBTPMouseEnter(Sender: TObject);
begin
  RefreshBTP.Color:=$00D2BCAA;
end;

procedure TMainFrm.RefreshBTPMouseLeave(Sender: TObject);
begin
  RefreshBTP.Color:=$00EADBCF;
end;

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    SaveSettingsToRegistry;
    Monitoring.Destroy;
    SMB.Destroy;
    MemInfo.Destroy;
    mclThr.Destroy;
    //UnloadCITools;
  except
    MessageBox(MainFrm.Handle,'Failed to free program resources correctly!', 'Error!', MB_ICONINFORMATION);
    Application.Terminate;
  end;
end;

procedure TMainFrm.LoadSettingsFromRegistry;
begin
  VCoreSensor.ChipNum:=1;
  VCoreSensor.Num:=0;
  VCoreSensor.Preset:=1;
  CpuSensor.ChipNum:=1;
  CpuSensor.Num:=1;
  CpuSensor.Preset:=0;
  MbSensor.ChipNum:=1;
  MbSensor.Num:=0;
  MbSensor.Preset:=0;
end;

procedure TMainFrm.SaveSettingsToRegistry;
begin
  //
end;

procedure TMainFrm.SysTempVDblClick(Sender: TObject);
begin
end;

//1.00 changes
procedure TMainFrm.CreateSensorMenus;
var
  i, j, k: Byte;
  VCoreItemCnt, CpuTempItemCnt: Word;
begin
  try
  for i:=1 to Monitoring.ChipCount do
  begin
    Monitoring.CurrentChip:=i;
    for j:=1 to Monitoring.ChipProperties.VoltagesCount do
    begin
      inc(VCoreItemCnt);
      SetLength(VCoreItems, VCoreItemCnt);
      VCoreItems[VCoreItemCnt-1] := tMenuItem.Create(self);
      VCoreItems[VCoreItemCnt-1].Caption:='VIN'+IntToStr(j-1)+': '+FormatFloat('0.000 v', Monitoring.Voltage[j-1, 0]);
      VCoreItems[VCoreItemCnt-1].OnClick:=VoltMenuClick;
      if (VCoreSensor.ChipNum = i) and (VCoreSensor.Num = j-1) then VCoreItems[VCoreItemCnt-1].Checked:=true
      else VCoreItems[VCoreItemCnt-1].Checked:=false;
      VCoreMenu.Items.Add(VCoreItems[VCoreItemCnt-1]);
    end;

    for j:=1 to Monitoring.ChipProperties.TemperaturesCount do
    begin
      inc(CpuTempItemCnt);
      SetLength(CpuTempItems, CpuTempItemCnt);
      CpuTempItems[CpuTempItemCnt-1] := tMenuItem.Create(self);
      CpuTempItems[CpuTempItemCnt-1].Caption:='Temp'+IntToStr(j-1)+': '+FormatFloat('0.0