* Initial commit

XRayCalc2.dpr

@@ -0,0 +1,44 @@
+program XRayCalc2;
+
+uses
+  FastMM5,
+  Vcl.Forms,
+  frm_Main in 'forms\frm_Main.pas' {frmMain},
+  unit_Types in 'units\unit_Types.pas',
+  math_complex in 'math\math_complex.pas',
+  unit_settings in 'units\unit_settings.pas',
+  unit_helpers in 'units\unit_helpers.pas',
+  unit_consts in 'units\unit_consts.pas',
+  unit_XRCStructure in 'components\unit_XRCStructure.pas',
+  unit_XRCLayerControl in 'components\unit_XRCLayerControl.pas',
+  unit_XRCStackControl in 'components\unit_XRCStackControl.pas',
+  unit_SMessages in 'components\unit_SMessages.pas',
+  editor_Stack in 'components\editor_Stack.pas' {edtrStack},
+  editor_Substrate in 'components\editor_Substrate.pas' {edtrSubstrate},
+  unit_calc in 'math\unit_calc.pas',
+  unit_materials in 'math\unit_materials.pas',
+  math_globals in 'math\math_globals.pas',
+  unit_XRCProjectTree in 'components\unit_XRCProjectTree.pas',
+  editor_Layer in 'components\editor_Layer.pas' {edtrLayer},
+  unit_FitHelpers in 'math\unit_FitHelpers.pas',
+  unit_LFPSO in 'math\unit_LFPSO.pas',
+  frm_Limits in 'forms\frm_Limits.pas' {frmLimits},
+  editor_proj_item in 'editors\editor_proj_item.pas' {edtrProjectItem},
+  frm_about in 'forms\frm_about.pas' {frmAbout},
+  frm_MList in 'forms\frm_MList.pas' {frmMaterialList};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TfrmMain, frmMain);
+  Application.CreateForm(TedtrStack, edtrStack);
+  Application.CreateForm(TedtrSubstrate, edtrSubstrate);
+  Application.CreateForm(TedtrLayer, edtrLayer);
+  Application.CreateForm(TfrmLimits, frmLimits);
+  Application.CreateForm(TedtrProjectItem, edtrProjectItem);
+  Application.CreateForm(TfrmAbout, frmAbout);
+  Application.CreateForm(TfrmMaterialList, frmMaterialList);
+  Application.Run;
+end.

components/editor_Layer.dfm

@@ -0,0 +1,166 @@
+object edtrLayer: TedtrLayer
+  Left = 0
+  Top = 0
+  BorderStyle = bsToolWindow
+  Caption = 'Layer properties'
+  ClientHeight = 116
+  ClientWidth = 350
+  Color = 16765595
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnShow = FormShow
+  TextHeight = 13
+  object RzPanel1: TRzPanel
+    AlignWithMargins = True
+    Left = 3
+    Top = 3
+    Width = 344
+    Height = 63
+    Align = alClient
+    BorderOuter = fsFlatRounded
+    Color = 15987699
+    TabOrder = 0
+    ExplicitWidth = 336
+    ExplicitHeight = 38
+    object Label1: TLabel
+      Left = 9
+      Top = 10
+      Width = 68
+      Height = 13
+      Caption = 'Layer material'
+    end
+    object Label2: TLabel
+      Left = 5
+      Top = 34
+      Width = 30
+      Height = 16
+      Caption = 'H ('#197')'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 226
+      Top = 34
+      Width = 56
+      Height = 16
+      Caption = #961' (g/cm'#179')'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlack
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 114
+      Top = 34
+      Width = 30
+      Height = 16
+      Caption = #963' ('#197')'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlack
+      Font.Height = -13
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+    end
+    object edMaterial: TRzButtonEdit
+      Left = 90
+      Top = 6
+      Width = 255
+      Height = 21
+      Text = ''
+      TabOrder = 0
+      AltBtnNumGlyphs = 1
+      ButtonNumGlyphs = 1
+      OnButtonClick = edMaterialButtonClick
+    end
+    object edRo: TJvCalcEdit
+      Left = 288
+      Top = 33
+      Width = 57
+      Height = 21
+      ButtonFlat = True
+      TabOrder = 3
+      DecimalPlacesAlwaysShown = False
+    end
+    object edH: TJvCalcEdit
+      Left = 41
+      Top = 33
+      Width = 70
+      Height = 21
+      ButtonFlat = True
+      TabOrder = 1
+      DecimalPlacesAlwaysShown = False
+    end
+    object edSigma: TJvCalcEdit
+      Left = 150
+      Top = 33
+      Width = 65
+      Height = 21
+      ButtonFlat = True
+      TabOrder = 2
+      DecimalPlacesAlwaysShown = False
+    end
+  end
+  object RzPanel2: TRzPanel
+    AlignWithMargins = True
+    Left = 3
+    Top = 72
+    Width = 344
+    Height = 41
+    Align = alBottom
+    BorderOuter = fsFlatRounded
+    Color = 15987699
+    TabOrder = 1
+    ExplicitTop = 47
+    ExplicitWidth = 336
+    object btnOK: TRzBitBtn
+      Left = 201
+      Top = 10
+      Width = 66
+      ParentColor = True
+      TabOrder = 2
+      TabStop = False
+      OnClick = btnOKClick
+      Kind = bkOK
+    end
+    object btnCancel: TRzBitBtn
+      Left = 273
+      Top = 10
+      Width = 72
+      ParentColor = True
+      TabOrder = 3
+      TabStop = False
+      Kind = bkCancel
+    end
+    object btnPrev: TRzBitBtn
+      Tag = 2
+      Left = 10
+      Top = 8
+      Width = 39
+      Caption = '<<'
+      ParentColor = True
+      TabOrder = 0
+      TabStop = False
+    end
+    object btnNext: TRzBitBtn
+      Tag = 1
+      Left = 55
+      Top = 8
+      Width = 39
+      Caption = '>>'
+      ParentColor = True
+      TabOrder = 1
+      TabStop = False
+    end
+  end
+end

components/editor_Layer.pas

@@ -0,0 +1,90 @@
+(* *****************************************************************************
+  *
+  *   X-Ray Calc 2
+  *
+  *   Copyright (C) 2022-2023 Oleksiy Penkov
+  *   e-mail: oleksiy.penkov@gmail.com
+  *
+  ****************************************************************************** *)
+
+unit editor_Layer;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, RzEdit, StdCtrls, Mask, RzBtnEdt, RzButton, ExtCtrls, RzPanel,
+  unit_types, JvExMask, JvToolEdit, JvBaseEdits;
+
+type
+  TedtrLayer = class(TForm)
+    RzPanel1: TRzPanel;
+    RzPanel2: TRzPanel;
+    btnOK: TRzBitBtn;
+    btnCancel: TRzBitBtn;
+    edMaterial: TRzButtonEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    edRo: TJvCalcEdit;
+    edH: TJvCalcEdit;
+    edSigma: TJvCalcEdit;
+    Label7: TLabel;
+    Label6: TLabel;
+    btnPrev: TRzBitBtn;
+    btnNext: TRzBitBtn;
+    procedure btnOKClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+
+    procedure FillEdits;
+    procedure SaveData;
+    procedure edMaterialButtonClick(Sender: TObject);
+
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    Data : TLayerData;
+  end;
+
+var
+  edtrLayer: TedtrLayer;
+
+implementation
+
+//uses frm_MList;
+
+{$R *.dfm}
+
+procedure TedtrLayer.FillEdits;
+begin
+  edMaterial.Text := Data.Material;
+  edH.Value := Data.H.V;
+  edSigma.Value := Data.S.V;
+  edRo.Value := Data.R.V;
+end;
+
+procedure TedtrLayer.FormShow(Sender: TObject);
+begin
+  FillEdits;
+  ActiveControl := edMaterial;
+end;
+
+procedure TedtrLayer.SaveData;
+begin
+  Data.Material := edMaterial.Text;
+  Data.H.V := edH.Value;
+  Data.S.V := edSigma.Value;
+  Data.R.V := edRo.Value;
+end;
+
+procedure TedtrLayer.btnOKClick(Sender: TObject);
+begin
+  SaveData;
+end;
+
+procedure TedtrLayer.edMaterialButtonClick(Sender: TObject);
+begin
+//  edMaterial.Text := GetElementName;
+end;
+
+end.

components/editor_Stack.dfm

@@ -0,0 +1,90 @@
+object edtrStack: TedtrStack
+  Left = 0
+  Top = 0
+  BorderStyle = bsToolWindow
+  Caption = 'Stack properties'
+  ClientHeight = 96
+  ClientWidth = 312
+  Color = 16765595
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  Position = poMainFormCenter
+  TextHeight = 13
+  object RzPanel1: TRzPanel
+    AlignWithMargins = True
+    Left = 3
+    Top = 3
+    Width = 306
+    Height = 43
+    Align = alClient
+    BorderOuter = fsFlatRounded
+    Color = 15987699
+    TabOrder = 0
+    ExplicitWidth = 264
+    ExplicitHeight = 17
+    object Label1: TLabel
+      Left = 9
+      Top = 13
+      Width = 55
+      Height = 13
+      Caption = 'Stack name'
+    end
+    object Label2: TLabel
+      Left = 199
+      Top = 13
+      Width = 7
+      Height = 13
+      Caption = 'N'
+    end
+    object edN: TRzNumericEdit
+      Left = 233
+      Top = 10
+      Width = 65
+      Height = 21
+      TabOrder = 0
+      CalculatorVisible = True
+      Max = 10000.000000000000000000
+      DisplayFormat = ',0;(,0)'
+    end
+    object edTitle: TEdit
+      Left = 81
+      Top = 10
+      Width = 112
+      Height = 21
+      TabOrder = 1
+      Text = 'Stack'
+    end
+  end
+  object RzPanel2: TRzPanel
+    AlignWithMargins = True
+    Left = 3
+    Top = 52
+    Width = 306
+    Height = 41
+    Align = alBottom
+    BorderOuter = fsFlatRounded
+    Color = 15987699
+    TabOrder = 1
+    ExplicitTop = 26
+    ExplicitWidth = 264
+    object btnOK: TRzBitBtn
+      Left = 18
+      Top = 10
+      Width = 105
+      ParentColor = True
+      TabOrder = 0
+      Kind = bkOK
+    end
+    object RzBitBtn2: TRzBitBtn
+      Left = 199
+      Top = 10
+      Width = 99
+      ParentColor = True
+      TabOrder = 1
+      Kind = bkCancel
+    end
+  end
+end