This horrible mess of a code is now on GitHub.0.6.5

It should also be compatible with latest Linpack binaries.

1 files changed, 338 insertions, 0 deletions

diff --git a/UnitSett.pas b/UnitSett.pas
new file mode 100644
index 0000000..1074a3c
--- /dev/null
+++ b/UnitSett.pas
@@ -0,0 +1,338 @@
+{$STRINGCHECKS OFF}
+unit UnitSett;
+
+interface
+
+uses
+  Windows, {Messages,} SysUtils, {Variants,} Classes, {Graphics,} Controls, Forms,
+  {Dialogs,} StdCtrls, Spin, ComCtrls, IniFiles, Buttons, ExtCtrls;
+
+type
+  TFormSett = class(TForm)
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    EditLin32Max: TEdit;
+    Label4: TLabel;
+    EditMemForOS: TEdit;
+    CheckBoxGlass: TCheckBox;
+    CheckBoxIcon: TCheckBox;
+    CheckBoxSounds: TCheckBox;
+    Label5: TLabel;
+    RB32: TRadioButton;
+    RB64: TRadioButton;
+    CheckBoxStop: TCheckBox;
+    CheckBoxTemp: TCheckBox;
+    EditThreads: TEdit;
+    UpDownThreads: TUpDown;
+    UpDownDA: TUpDown;
+    EditDA: TEdit;
+    EditTemp: TEdit;
+    UpDownTemp: TUpDown;
+    CheckBoxLog: TCheckBox;
+    RBNone: TRadioButton;
+    RBEverest: TRadioButton;
+    RBSpeedfan: TRadioButton;
+    CBPriority: TComboBox;
+    Label6: TLabel;
+    CheckBoxFilenames: TCheckBox;
+    ButtonOK: TSpeedButton;
+    ButtonCancel: TSpeedButton;
+    PanelLinpack: TPanel;
+    PanelLinX: TPanel;
+    CheckBoxShowHints: TCheckBox;
+    PanelExtApps: TPanel;
+    LabelGraphs: TLabel;
+    CheckBoxCPUTemp: TCheckBox;
+    CheckBoxCPUFan: TCheckBox;
+    CheckBoxCPUVcore: TCheckBox;
+    CheckBox12V: TCheckBox;
+    procedure ButtonOKClick(Sender: TObject);
+    procedure ButtonCancelClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure RBNoneClick(Sender: TObject);
+    procedure RBEverestClick(Sender: TObject);
+    procedure FormKeyPress(Sender: TObject; var Key: Char);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  FormSett: TFormSett;
+
+implementation
+
+uses UnitMain, LinX_routines;
+
+{$R *.dfm}
+
+procedure TFormSett.ButtonOKClick(Sender: TObject);
+begin
+  NumberOfThreads := UpdownThreads.Position;
+
+  maxsize_lin32 := strtointdef(EditLin32Max.Text, maxsize_lin32);
+  maxmem_offset := strtointdef(EditMemForOS.Text, maxmem_offset);
+
+  lin_priority := CBPriority.ItemIndex;
+  dataalign := UpdownDA.Position;
+  x64mode := RB64.Checked;
+  stoponerror := checkboxStop.Checked;
+  autosavelog := checkboxLog.Checked;
+  sounds := checkboxSounds.Checked;
+  datetimeinnames := CheckboxFilenames.Checked;
+  FormMain.TrayIcon.Visible := checkboxIcon.Checked;
+  glass := checkboxGlass.Checked;
+  FormMain.ShowHint := CheckBoxShowHints.Checked;
+
+  stoponoverheat := checkboxTemp.Checked;
+  if not stoponoverheat then stop_temp := 0;
+
+  stop_temp := UpdownTemp.Position;
+
+  speedfan_imp := RBSpeedfan.Checked;
+  everest_imp := RBEverest.Checked;
+
+  buildtemps := CheckBoxCPUTemp.Checked;
+  buildfans := CheckBoxCPUFan.Checked;
+  buildvcores := CheckBoxCPUVcore.Checked;
+  buildp12vs := CheckBox12V.Checked;
+
+  Close;
+end;
+
+procedure TFormSett.ButtonCancelClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TFormSett.FormCreate(Sender: TObject);
+
+  procedure localize;
+  var localizationfile : tinifile;
+  begin
+    With localizationfile do begin
+      localizationfile := tinifile.Create(ExtractFilePath(Application.EXEName) +
+                          localizationfile_name);
+
+      Caption := readstring('SettingsWindow','Caption',Caption);
+      Label5.Caption := readstring('SettingsWindow','Mode',
+                                   Label5.Caption);
+      Label5.Hint := readstring('SettingsWindow','ModeHint',
+                                Label5.Hint);
+      RB32.Caption := readstring('MeasUnits','32',RB32.Caption);
+      RB64.Caption := readstring('MeasUnits','64',RB64.Caption);
+      Label1.Caption := readstring('SettingsWindow','NumberOfThreads',
+                                   Label1.Caption);
+      Label1.Hint := readstring('SettingsWindow','NumberOfThreadsHint',
+                                   Label1.Hint);
+      Label6.Caption := readstring('SettingsWindow','PriorityClass',
+                                   Label6.Caption);
+      Label6.Hint := readstring('SettingsWindow','PriorityClassHint',
+                                Label6.Hint);
+      CBPriority.Items[0] := readstring('SettingsWindow','Idle',
+                                        CBPriority.Items[0]);
+      CBPriority.Items[1] := readstring('SettingsWindow','BelowNormal',
+                                        CBPriority.Items[1]);
+      CBPriority.Items[2] := readstring('SettingsWindow','Normal',
+                                        CBPriority.Items[2]);
+      CBPriority.Items[3] := readstring('SettingsWindow','AboveNormal',
+                                        CBPriority.Items[3]);
+      CBPriority.Items[4] := readstring('SettingsWindow','High',
+                                        CBPriority.Items[4]);
+      CBPriority.Items[5] := readstring('SettingsWindow','Realtime',
+                                        CBPriority.Items[5]);
+      Label2.Caption := readstring('SettingsWindow','DataAlignment',
+                                   Label2.Caption);
+      Label2.Hint := readstring('SettingsWindow','DataAlignmentHint',
+                                   Label2.Hint);
+      Label3.Caption := readstring('SettingsWindow','Lin32MaxProblemSize',
+                                   Label3.Caption);
+      Label3.Hint := readstring('SettingsWindow','Lin32MaxProblemSizeHint',
+                                   Label3.Hint);
+      Label4.Caption := readstring('SettingsWindow','MemoryToLeave',
+                                   Label4.Caption);
+      Label4.Hint := readstring('SettingsWindow','MemoryToLeaveHint',
+                                   Label4.Hint);
+      CheckboxGlass.Caption := readstring('SettingsWindow','ExtendGlass',
+                                   CheckboxGlass.Caption);
+      CheckboxGlass.Hint := readstring('SettingsWindow','ExtendGlassHint',
+                                   CheckboxGlass.Hint);
+      CheckboxStop.Caption := readstring('SettingsWindow','StopOnError',
+                                   CheckboxStop.Caption);
+      CheckboxStop.Hint := readstring('SettingsWindow','StopOnErrorHint',
+                                   CheckboxStop.Hint);
+      CheckboxLog.Caption := readstring('SettingsWindow','AutoSaveLog',
+                                   CheckboxLog.Caption);
+      CheckboxLog.Hint := readstring('SettingsWindow','AutoSaveLogHint',
+                                   CheckboxLog.Hint);
+      CheckboxSounds.Caption := readstring('SettingsWindow','Sounds',
+                                   CheckboxSounds.Caption);
+      CheckboxSounds.Hint := readstring('SettingsWindow','SoundsHint',
+                                   CheckboxSounds.Hint);
+      CheckboxIcon.Caption := readstring('SettingsWindow','TrayIcon',
+                                   CheckboxIcon.Caption);
+      CheckboxIcon.Hint := readstring('SettingsWindow','TrayIconHint',
+                                   CheckboxIcon.Hint);
+      CheckBoxShowHints.Caption := readstring('SettingsWindow','ShowHints',
+                                   CheckBoxShowHints.Caption);
+      CheckBoxShowHints.Hint := readstring('SettingsWindow','ShowHintsHint',
+                                   CheckBoxShowHints.Hint);
+      CheckboxFilenames.Caption := readstring('SettingsWindow','Filenames',
+                                   CheckboxFilenames.Caption);
+      CheckboxFilenames.Hint := readstring('SettingsWindow','FilenamesHint',
+                                   CheckboxFilenames.Hint);
+
+      PanelExtApps.Caption := readstring('SettingsWindow','ExtAppsBox',
+                                      PanelExtApps.Caption);
+      CheckboxTemp.Caption := readstring('SettingsWindow','MaxTemp',
+                                   CheckboxTemp.Caption);
+      CheckboxTemp.Hint := readstring('SettingsWindow','MaxTempHint',
+                                   CheckboxTemp.Hint);
+      RBNone.Caption := readstring('SettingsWindow','None',
+                                   RBNone.Caption);
+      LabelGraphs.Caption := readstring('SettingsWindow','Graphs',
+                                   LabelGraphs.Caption);
+      LabelGraphs.Hint := readstring('SettingsWindow','GraphsHint',
+                                   LabelGraphs.Hint);
+      CheckBoxCPUTemp.Caption := readstring('SettingsWindow','CPUTemp',
+                                   CheckBoxCPUTemp.Caption);
+      CheckBoxCPUFan.Caption := readstring('SettingsWindow','CPUFan',
+                                   CheckBoxCPUFan.Caption);
+      CheckBoxCPUVcore.Caption := readstring('SettingsWindow','CPUVcore',
+                                   CheckBoxCPUVcore.Caption);
+
+      ButtonOK.Caption := readstring('SettingsWindow','ButtonOK',
+                                     ButtonOK.Caption);
+      ButtonCancel.Caption := readstring('SettingsWindow','ButtonCancel',
+                                         ButtonCancel.Caption);
+      free;
+    end;
+  end;
+
+begin
+  if fileexists(localizationfile_name) then localize;
+  CBPriority.Left := Label6.Left + Label6.Width + 5;
+  CBPriority.Width := PanelLinpack.Width - CBPriority.Left - 5;
+
+  if glass and (Win32MajorVersion >= 6) and CompositingEnabled then begin
+    DoubleBuffered := true;
+    PanelLinpack.BevelKind := bkNone;
+    PanelLinpack.BevelOuter := bvRaised;
+    PanelLinX.BevelKind := bkNone;
+    PanelLinX.BevelOuter := bvRaised;
+    PanelExtApps.BevelKind := bkNone;
+    PanelExtApps.BevelOuter := bvRaised;
+    PanelLinpack.Left := PanelLinpack.Left - 5;
+    PanelLinpack.Top := PanelLinpack.Top - 5;
+    PanelLinX.Left := PanelLinX.Left - 5;
+    PanelLinX.Top := PanelLinX.Top - 5;
+    PanelExtApps.Top := PanelExtApps.Top - 5;
+    PanelExtApps.Left := PanelExtApps.Left - 5;
+    ButtonOK.Top := ButtonOK.Top - 5;
+    ButtonOK.Left := ButtonOK.Left - 5;
+    ButtonCancel.Top := ButtonCancel.Top - 5;
+    ButtonCancel.Left := ButtonCancel.Left - 5;
+    ClientWidth := ClientWidth - 10;
+    ClientHeight := ClientHeight - 10;
+    GlassFrame.Enabled := true;
+    GlassFrame.SheetOfGlass := true;
+  end;
+
+  UpDownThreads.Position := NumberOfThreads;
+  UpDownDA.Position := dataalign;
+
+  if x64mode then begin
+    RB64.Checked := true;
+    RB32.Enabled := x64;
+  end
+  else begin
+    RB32.Checked := true;
+    RB64.Enabled := x64;
+  end;
+
+  CBPriority.ItemIndex := lin_priority;
+
+  EditLin32Max.Text := inttostr(maxsize_lin32);
+  EditMemForOS.Text := inttostr(maxmem_offset);
+
+  checkboxStop.Checked := stoponerror;
+  checkboxLog.Checked := autosavelog;
+  checkboxSounds.Checked := sounds;
+  CheckboxIcon.Checked := FormMain.TrayIcon.Visible;
+  CheckboxFilenames.Checked := datetimeinnames;
+  CheckboxGlass.Enabled := (Win32MajorVersion >= 6) and CompositingEnabled;
+  CheckboxGlass.Checked := glass;
+  ShowHint := FormMain.ShowHint;
+  CheckBoxShowHints.Checked := ShowHint;
+
+  RBEverest.Checked := everest_imp;
+  RBSpeedfan.Checked := speedfan_imp;
+  checkboxTemp.Checked := stoponoverheat;
+
+  UpDownTemp.Position := stop_temp;
+
+  CheckBoxCPUTemp.Checked := buildtemps;
+  CheckBoxCPUFan.Checked := buildfans;
+  CheckBoxCPUVcore.Checked := buildvcores;
+  CheckBox12V.Checked := buildp12vs;
+end;
+
+procedure TFormSett.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+var filename : string;
+begin
+  if Key = VK_F5 then begin
+    if datetimeinnames then filename := AddDateTimeToFilename(progname, 'png', Now)
+    else filename := progname + '.png';
+    WindowScreenshot(FormMain.Handle, filename);
+  end;
+end;
+
+procedure TFormSett.FormKeyPress(Sender: TObject; var Key: Char);
+begin
+  case Key of
+    '0'..'9', #8 : begin end;
+    #27 : begin
+      ButtonCancel.Click;
+      Key := #0;
+    end;
+    #13 : begin
+      ButtonOK.Click;
+      Key := #0;
+    end
+  else Key := #0;
+  end;
+end;
+
+procedure TFormSett.RBEverestClick(Sender: TObject);
+begin
+  CheckBoxTemp.Enabled := true;
+  EditTemp.Enabled := true;
+  UpDownTemp.Enabled := true;
+
+  CheckBoxCPUTemp.Enabled := true;
+  CheckBoxCPUFan.Enabled := true;
+  CheckBoxCPUVcore.Enabled := true;
+  CheckBox12V.Enabled := true;
+
+  PanelExtApps.Refresh;
+end;
+
+procedure TFormSett.RBNoneClick(Sender: TObject);
+begin
+  CheckBoxTemp.Enabled := false;
+  EditTemp.Enabled := false;
+  UpDownTemp.Enabled := false;
+
+  CheckBoxCPUTemp.Enabled := false;
+  CheckBoxCPUFan.Enabled := false;
+  CheckBoxCPUVcore.Enabled := false;
+  CheckBox12V.Enabled := false;
+
+  PanelExtApps.Refresh;
+end;
+
+end.