Fit
Class TFormMain
Unit
Declaration
type TFormMain = class(TForm)
Description
TFormMain
Hierarchy
- TForm
- TFormMain
Overview
Fields
Methods
 |
function SaveTableAsText(GridData: TNumericGrid): Boolean; |
 |
function GetConfigFileName: string; |
|
procedure ActionAboutExecute(Sender: TObject); |
|
procedure ActionAnimationModeExecute(Sender: TObject); |
|
procedure ActionAnimationModeUpdate(Sender: TObject); |
|
procedure ActionComputCurvePositionsExecute(Sender: TObject); |
|
procedure ActionComputeBackgroundPointsExecute(Sender: TObject); |
|
procedure ActionComputeRFactorBoundsExecute(Sender: TObject); |
|
procedure ActionCopyExecute(Sender: TObject); |
|
procedure ActionDeleteExecute(Sender: TObject); |
|
procedure ActionDoAllAutomaticallyExecute(Sender: TObject); |
|
procedure ActionEnableBackgroundVariationExecute(Sender: TObject); |
|
procedure ActionEnableBackgroundVariationUpdate(Sender: TObject); |
|
procedure ActionEnableCurveScalingExecute(Sender: TObject); |
|
procedure ActionEnableCurveScalingUpdate(Sender: TObject); |
|
procedure ActionLoadProfileExecute(Sender: TObject); |
|
procedure ActionMinimizeDifferenceExecute(Sender: TObject); |
|
procedure ActionMinimizeNumberOfCurvesExecute(Sender: TObject); |
|
procedure ActionQuitExecute(Sender: TObject); |
|
procedure ActionReloadDataExecute(Sender: TObject); |
|
procedure ActionRemoveBackgroundPointsExecute(Sender: TObject); |
|
procedure ActionRemoveCurvePositionsExecute(Sender: TObject); |
|
procedure ActionRemoveRFactorBoundsExecute(Sender: TObject); |
|
procedure ActionSaveModelAsTextExecute(Sender: TObject); |
|
procedure ActionSelCurveExecute(Sender: TObject); |
|
procedure ActionSelectAllExecute(Sender: TObject); |
|
procedure ActionSelectAllPointsAsCurvePositionsExecute(Sender: TObject); |
|
procedure ActionSelectBackgroundManuallyExecute(Sender: TObject); |
|
procedure ActionSelectCharacteristicPointsExecute(Sender: TObject); |
|
procedure ActionSelectCurveBoundsExecute(Sender: TObject); |
|
procedure ActionSelectCurvePositionsManuallyExecute(Sender: TObject); |
|
procedure ActionSelectDataIntervalExecute(Sender: TObject); |
|
procedure ActionSelectEntireProfileExecute(Sender: TObject); |
|
procedure ActionSelectIntervalBoundsExecute(Sender: TObject); |
|
procedure ActionSelectRFactorBoundsManuallyExecute(Sender: TObject); |
|
procedure ActionSetBackgroundFractionExecute(Sender: TObject); |
|
procedure ActionSetMaximumRFactorExecute(Sender: TObject); |
|
procedure ActionSmoothProfileExecute(Sender: TObject); |
|
procedure ActionStopFitExecute(Sender: TObject); |
|
procedure ActionSubtractBackgroundAutomaticallyExecute(Sender: TObject); |
|
procedure ActionSubtractBackgroundBySelectedPointsExecute(Sender: TObject); |
|
procedure ActionViewMarkersExecute(Sender: TObject); |
|
procedure ActionZoomInExecute(Sender: TObject); |
|
procedure ActionZoomOutExecute(Sender: TObject); |
|
procedure AddUserCurveMenu(ct: Curve_type); |
|
procedure ApplicationPropertiesHint(Sender: TObject); |
|
procedure ButAddSelectedDataPointClick(Sender: TObject); |
|
procedure ButAddSelectedDataPointToPositionsClick(Sender: TObject); |
|
procedure ButAddSelectedPointToIntervalsClick(Sender: TObject); |
|
procedure Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); |
|
procedure ChartDrawReticule(Sender: TComponent; IndexSerie, Index, Xi, Yi: Integer; Xg, Yg: Double); |
|
procedure ChartMouseDown(Sender: TOBject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure ChartMouseUp(Sender: TOBject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure CheckListBoxChanged; |
|
procedure CheckListBoxLegendClick(Sender: TObject); |
|
procedure CheckListBoxLegendDrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState); |
|
procedure CheckListBoxLegendKeyPress(Sender: TObject; var Key: Char); |
|
procedure CreateMenuItem(Pos: LongInt; ct: Curve_type; ParentMenu: TMenuItem; OnClick: TNotifyEvent); |
|
procedure CreateUserCurveMenus; |
|
procedure CurvePositionsClick(Sender: TObject); |
|
procedure DeleteUserCurve(ct: Curve_type); |
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
|
procedure FormCreate(Sender: TObject); |
|
procedure FormDestroy(Sender: TObject); |
|
procedure GridDataEditingDone(Sender: TObject); |
|
procedure GridDataSelectEditor(Sender: TObject; aCol, aRow: Integer; var Editor: TWinControl); |
|
procedure LoadDataFile(FileName: string); |
|
procedure LoadTable; |
|
procedure MenuModelClick(Sender: TObject); |
|
procedure MenuN2ThetaClick(Sender: TObject); |
|
procedure MenuSetWavelengthClick(Sender: TObject); |
|
procedure MenuSinThetaLambdaClick(Sender: TObject); |
|
procedure MenuThetaClick(Sender: TObject); |
|
procedure PanelTopClick(Sender: TObject); |
|
procedure ReadSettings; |
|
procedure ReadUserCurves; |
|
procedure SaveTable; |
|
procedure ScrollBarXChange(Sender: TObject); |
|
procedure ScrollBarYChange(Sender: TObject); |
|
procedure ShowHint(const Hint: string); |
|
procedure ShowRFactor; |
|
procedure ShowTime; |
|
procedure TabSheetBackgroundResize(Sender: TObject); |
|
procedure TabSheetBackgroundShow(Sender: TObject); |
|
procedure TabSheetDatasheetShow(Sender: TObject); |
|
procedure TabSheetIntervalsShow(Sender: TObject); |
|
procedure TabSheetParametersShow(Sender: TObject); |
|
procedure TabSheetSpecPositionsShow(Sender: TObject); |
|
procedure TAChart1Zoom(Sender: TComponent); |
|
procedure TimerAsyncTimer(Sender: TObject); |
|
procedure TimerBalloonHideTimer(Sender: TObject); |
|
procedure TimerBalloonShowTimer(Sender: TObject); |
|
procedure TimerCheckStateTimer(Sender: TObject); |
|
procedure WriteSettings; |
|
procedure WriteUserCurve(CurveType: Curve_type); |
|
procedure AsyncOperationFinished(Sender: TObject); |
|
procedure CreateCurveTypeMenus; |
|
procedure DoEditHint; |
|
procedure OnChartClick; |
|
procedure OnDeleteUserCurveClick(Sender: TObject); |
|
procedure OnException(Sender: TObject; E: Exception); |
|
procedure OnFindComponentClass(Reader: TReader; const ClassName: string; var ComponentClass: TComponentClass); |
|
procedure OnUserCurveClick(Sender: TObject); |
|
procedure SetAsyncState(State: TAsyncState); |
|
procedure SetHandleEditHint(EditHint: Boolean); |
|
procedure SetOpenState(State: TOpenState); |
|
procedure SetResState(State: TResState); |
|
procedure SetSelectionMode(ASelectionMode: TSelMode); |
|
procedure SetViewState(State: TViewState); |
|
procedure SubtractBackground(Auto: Boolean); |
|
procedure UpdateBarsPos; |
Properties
|
property HandleEditHint: Boolean read FHandleEditHint
write SetHandleEditHint; |
Description
Fields
|
ActionAbout: TAction; |
|
ActionAnimationMode: TAction; |
|
ActionComputCurvePositions: TAction; |
|
ActionComputeBackgroundPoints: TAction; |
|
ActionComputeRFactorBounds: TAction; |
|
ActionCopy: TAction; |
|
ActionDelete: TAction; |
|
ActionDoAllAutomatically: TAction; |
|
ActionEnableBackgroundVariation: TAction; |
|
ActionEnableCurveScaling: TAction; |
|
ActionGlossary: TAction; |
|
ActionList: TActionList; |
|
ActionLoadProfile: TAction; |
|
ActionMinimizeDifference: TAction; |
|
ActionMinimizeNumberOfCurves: TAction; |
|
ActionQuit: TAction; |
|
ActionReloadData: TAction; |
|
ActionRemoveBackgroundPoints: TAction; |
|
ActionRemoveCurvePositions: TAction; |
|
ActionRemoveRFactorBounds: TAction; |
|
ActionSaveModelAsText: TAction; |
|
ActionSelectAll: TAction; |
|
ActionSelectAllPointsAsCurvePositions: TAction; |
|
ActionSelectBackgroundManually: TAction; |
|
ActionSelectCharacteristicPoints: TAction; |
|
ActionSelectCurveBounds: TAction; |
|
ActionSelectCurvePositionsManually: TAction; |
|
ActionSelectDataInterval: TAction; |
|
ActionSelectEntireProfile: TAction; |
|
ActionSelectIntervalBounds: TAction; |
|
ActionSelectRFactorBoundsManually: TAction; |
|
ActionSetBackgroundFraction: TAction; |
|
ActionSetMaximumRFactor: TAction; |
|
ActionSmoothProfile: TAction; |
|
ActionStopFit: TAction; |
|
ActionSubtractBackgroundAutomatically: TAction; |
|
ActionSubtractBackgroundBySelectedPoints: TAction; |
|
ActionViewMarkers: TAction; |
|
ActionZoomIn: TAction; |
|
ActionZoomOut: TAction; |
|
ApplicationProperties: TApplicationProperties; |
|
ButCopy4: TButton; |
|
ButSaveAsText4: TButton; |
|
Chart: TTAChart; |
|
CheckListBoxLegend: TCheckListBox; |
|
EditBalloonChart: TEdit; |
|
EditBalloonGridBackground: TEdit; |
|
EditBalloonGridData: TEdit; |
|
EditBalloonGridDatasheet: TEdit; |
|
EditBalloonGridIntervals: TEdit; |
|
EditBalloonGridParameters: TEdit; |
|
EditBalloonGridSpecPositions: TEdit; |
|
FActiveNumber: LongInt; |
|
Index of curve on which the first click was. It is used in the cases when points of only one curve can be selected. | |
|
FCurSerieIndex: LongInt; |
|
Index of a serie point of which is selected at the moment. | |
|
FCurveList: TMSCRCurveList; |
|
Collection should be passive. Object is set from TFitViewer and is checked on Nil. | |
|
FDownX: Integer; |
|
These variables are used for separating clicks from area selection. | |
|
FDownY: Integer; |
|
These variables are used for separating clicks from area selection. | |
|
FDrawReticule: Boolean; |
|
FEditDone: Boolean; |
|
Protects from reentrance into editing finalization. | |
|
FFitViewer: TFitViewer; |
|
FHandleEditHint: Boolean; |
|
Indicates that hint message should be displayed. | |
|
FHintMessage: string; |
|
FInitXGraphMax: Double; |
|
Initial values set up just after file loading. | |
|
FInitXGraphMin: Double; |
|
Initial values set up just after file loading. | |
|
FInitYGraphMax: Double; |
|
Initial values set up just after file loading. | |
|
FInitYGraphMin: Double; |
|
Initial values set up just after file loading. | |
|
FModifiedDatasheet: Boolean; |
|
FModifiedParameters: Boolean; |
|
Indicates that MenuData in tables were changed. | |
|
FSavedAmp: string; |
|
Saved content of edited cells. | |
|
FSavedPos: string; |
|
Saved content of edited cells. | |
|
FSenderEditHint: TNumericGrid; |
|
The object created event FEditDone. | |
|
FSettings: Settings_v1; |
|
Application settings. Type should be checked. | |
|
FUpX: Integer; |
|
These variables are used for separating clicks from area selection. | |
|
FUpY: Integer; |
|
These variables are used for separating clicks from area selection. | |
|
FValueIndex: LongInt; |
|
Index of selected value. | |
|
GridBackground: TNumericGrid; |
|
GridData: TNumericGrid; |
|
GridDatasheet: TNumericGrid; |
|
GridIntervals: TNumericGrid; |
|
GridParameters: TNumericGrid; |
|
GridSpecPositions: TNumericGrid; |
|
ImageList1: TImageList; |
|
ImageList2: TImageList; |
|
Label1: TLabel; |
|
Label2: TLabel; |
|
Label4: TLabel; |
|
Label5: TLabel; |
|
LabelAngle: TLabel; |
|
LabelIntensity: TLabel; |
|
MainMenu: TMainMenu; |
|
MenuAbout: TMenuItem; |
|
MenuAnimationMode: TMenuItem; |
|
MenuArgumentTransformation: TMenuItem; |
|
MenuBackground: TMenuItem; |
|
MenuBackgroundPoints: TMenuItem; |
|
MenuComputCurvePositions: TMenuItem; |
|
MenuComputeBackgroundPoints: TMenuItem; |
|
MenuComputeRFactorBounds: TMenuItem; |
|
MenuCopy: TMenuItem; |
|
MenuCreateRule: TMenuItem; |
|
MenuCurvePositions: TMenuItem; |
|
MenuData: TMenuItem; |
|
MenuDelete: TMenuItem; |
|
MenuDoAllAutomatically: TMenuItem; |
|
MenuEdit: TMenuItem; |
|
MenuEnableBackgroundVariation: TMenuItem; |
|
MenuEnableCurveScaling: TMenuItem; |
|
MenuFile: TMenuItem; |
|
MenuFit: TMenuItem; |
|
MenuGlossary: TMenuItem; |
|
MenuHelp: TMenuItem; |
|
MenuLoadProfile: TMenuItem; |
|
MenuMinimizeDifference: TMenuItem; |
|
MenuMinimizeNumberOfCurves: TMenuItem; |
|
MenuModel: TMenuItem; |
|
MenuN2Theta: TMenuItem; |
|
MenuN2Theta2: TMenuItem; |
|
MenuQuit: TMenuItem; |
|
MenuRange: TMenuItem; |
|
MenuReload: TMenuItem; |
|
MenuRemoveBackgroundPoints: TMenuItem; |
|
MenuRemoveCurvePositions: TMenuItem; |
|
MenuRemoveRFactorBounds: TMenuItem; |
|
MenuRFactorIntervals: TMenuItem; |
|
MenuSaveModelAsText: TMenuItem; |
|
MenuSelectAll: TMenuItem; |
|
MenuSelectAllPointsAsCurvePositions: TMenuItem; |
|
MenuSelectBackgroundManually: TMenuItem; |
|
MenuSelectCharacteristicPoints: TMenuItem; |
|
MenuSelectCurveBounds: TMenuItem; |
|
MenuSelectCurvePositionsManually: TMenuItem; |
|
MenuSelectCurveType: TMenuItem; |
|
MenuSelectDataInterval: TMenuItem; |
|
MenuSelectEntireProfile: TMenuItem; |
|
MenuSelectIntervalBounds: TMenuItem; |
|
MenuSelectRFactorBoundsManually: TMenuItem; |
|
MenuSeparator1: TMenuItem; |
|
MenuSeparator10: TMenuItem; |
|
MenuSeparator11: TMenuItem; |
|
MenuSeparator12: TMenuItem; |
|
MenuSeparator2: TMenuItem; |
|
MenuSeparator3: TMenuItem; |
|
MenuSeparator4: TMenuItem; |
|
MenuSeparator5: TMenuItem; |
|
MenuSeparator6: TMenuItem; |
|
MenuSeparator7: TMenuItem; |
|
MenuSeparator8: TMenuItem; |
|
MenuSeparator9: TMenuItem; |
|
MenuSetBackgroundFraction: TMenuItem; |
|
MenuSetMaximumRFactor: TMenuItem; |
|
MenuSetRuleParameters: TMenuItem; |
|
MenuSetWavelength: TMenuItem; |
|
MenuSinThetaLambda: TMenuItem; |
|
MenuSinThetaLambda2: TMenuItem; |
|
MenuSmoothProfile: TMenuItem; |
|
MenuStopFit: TMenuItem; |
|
MenuSubtractBackground: TMenuItem; |
|
MenuSubtractBackgroundAutomatically: TMenuItem; |
|
MenuSubtractBackgroundBySelectedPoints: TMenuItem; |
|
MenuTheta: TMenuItem; |
|
MenuTheta2: TMenuItem; |
|
MenuUseRule: TMenuItem; |
|
MenuView: TMenuItem; |
|
MenuViewMarkers: TMenuItem; |
|
MenuZoomIn: TMenuItem; |
|
MenuZoomOut: TMenuItem; |
|
OpenDialog: TOpenDialog; |
|
PageControl: TPageControl; |
|
Panel2: TPanel; |
|
PanelBackground: TPanel; |
|
PanelChart: TPanel; |
|
PanelDatasheet: TPanel; |
|
PanelIntervals: TPanel; |
|
PanelLeft: TPanel; |
|
PanelParameters: TPanel; |
|
PanelRight: TPanel; |
|
PanelSpecPositions: TPanel; |
|
PanelTop: TPanel; |
|
PopupViewMode: TPopupMenu; |
|
SaveDialog: TSaveDialog; |
|
ScrollBarX: TScrollBar; |
|
ScrollBarY: TScrollBar; |
|
SelCurveLorentzian: TMenuItem; |
|
SplitterBottom: TSplitter; |
|
SplitterChartRight: TSplitter; |
|
SplitterLeftChart: TSplitter; |
|
StatusBar: TStatusBar; |
|
TabSheetBackground: TTabSheet; |
|
TabSheetDatasheet: TTabSheet; |
|
TabSheetIntervals: TTabSheet; |
|
TabSheetParameters: TTabSheet; |
|
TabSheetSpecPositions: TTabSheet; |
|
TimerAsync: TTimer; |
|
TimerBalloonHide: TTimer; |
|
TimerBalloonShow: TTimer; |
|
TimerCheckState: TTimer; |
|
ToolBar1: TToolBar; |
|
ToolBar2: TToolBar; |
|
ToolBar3: TToolBar; |
|
ToolBar4: TToolBar; |
|
ToolBar5: TToolBar; |
|
ToolBar6: TToolBar; |
|
ToolButton1: TToolButton; |
|
ToolButton10: TToolButton; |
|
ToolButton11: TToolButton; |
|
ToolButton12: TToolButton; |
|
ToolButton13: TToolButton; |
|
ToolButton14: TToolButton; |
|
ToolButton15: TToolButton; |
|
ToolButton16: TToolButton; |
|
ToolButton2: TToolButton; |
|
ToolButton3: TToolButton; |
|
ToolButton4: TToolButton; |
|
ToolButton5: TToolButton; |
|
ToolButton6: TToolButton; |
|
ToolButton7: TToolButton; |
|
ToolButton8: TToolButton; |
|
ToolButton9: TToolButton; |
Methods
|
function SaveTableAsText(GridData: TNumericGrid): Boolean; |
|
Saving curve parameters into text file. | |
|
function GetConfigFileName: string; |
|
procedure ActionAboutExecute(Sender: TObject); |
|
procedure ActionAnimationModeExecute(Sender: TObject); |
|
procedure ActionAnimationModeUpdate(Sender: TObject); |
|
procedure ActionComputCurvePositionsExecute(Sender: TObject); |
|
procedure ActionComputeBackgroundPointsExecute(Sender: TObject); |
|
procedure ActionComputeRFactorBoundsExecute(Sender: TObject); |
|
procedure ActionCopyExecute(Sender: TObject); |
|
procedure ActionDeleteExecute(Sender: TObject); |
|
procedure ActionDoAllAutomaticallyExecute(Sender: TObject); |
|
procedure ActionEnableBackgroundVariationExecute(Sender: TObject); |
|
procedure ActionEnableBackgroundVariationUpdate(Sender: TObject); |
|
procedure ActionEnableCurveScalingExecute(Sender: TObject); |
|
procedure ActionEnableCurveScalingUpdate(Sender: TObject); |
|
procedure ActionLoadProfileExecute(Sender: TObject); |
|
procedure ActionMinimizeDifferenceExecute(Sender: TObject); |
|
procedure ActionMinimizeNumberOfCurvesExecute(Sender: TObject); |
|
procedure ActionQuitExecute(Sender: TObject); |
|
procedure ActionReloadDataExecute(Sender: TObject); |
|
procedure ActionRemoveBackgroundPointsExecute(Sender: TObject); |
|
procedure ActionRemoveCurvePositionsExecute(Sender: TObject); |
|
procedure ActionRemoveRFactorBoundsExecute(Sender: TObject); |
|
procedure ActionSaveModelAsTextExecute(Sender: TObject); |
|
procedure ActionSelCurveExecute(Sender: TObject); |
|
procedure ActionSelectAllExecute(Sender: TObject); |
|
procedure ActionSelectAllPointsAsCurvePositionsExecute(Sender: TObject); |
|
procedure ActionSelectBackgroundManuallyExecute(Sender: TObject); |
|
procedure ActionSelectCharacteristicPointsExecute(Sender: TObject); |
|
procedure ActionSelectCurveBoundsExecute(Sender: TObject); |
|
procedure ActionSelectCurvePositionsManuallyExecute(Sender: TObject); |
|
procedure ActionSelectDataIntervalExecute(Sender: TObject); |
|
procedure ActionSelectEntireProfileExecute(Sender: TObject); |
|
procedure ActionSelectIntervalBoundsExecute(Sender: TObject); |
|
procedure ActionSelectRFactorBoundsManuallyExecute(Sender: TObject); |
|
procedure ActionSetBackgroundFractionExecute(Sender: TObject); |
|
procedure ActionSetMaximumRFactorExecute(Sender: TObject); |
|
procedure ActionSmoothProfileExecute(Sender: TObject); |
|
procedure ActionStopFitExecute(Sender: TObject); |
|
procedure ActionSubtractBackgroundAutomaticallyExecute(Sender: TObject); |
|
procedure ActionSubtractBackgroundBySelectedPointsExecute(Sender: TObject); |
|
procedure ActionViewMarkersExecute(Sender: TObject); |
|
procedure ActionZoomInExecute(Sender: TObject); |
|
procedure ActionZoomOutExecute(Sender: TObject); |
|
procedure AddUserCurveMenu(ct: Curve_type); |
|
Adds menu item corresponding to user defined curve. | |
|
procedure ApplicationPropertiesHint(Sender: TObject); |
|
procedure ButAddSelectedDataPointClick(Sender: TObject); |
|
procedure ButAddSelectedDataPointToPositionsClick(Sender: TObject); |
|
procedure ButAddSelectedPointToIntervalsClick(Sender: TObject); |
|
procedure Chart1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); |
|
procedure ChartDrawReticule(Sender: TComponent; IndexSerie, Index, Xi, Yi: Integer; Xg, Yg: Double); |
|
procedure ChartMouseDown(Sender: TOBject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure ChartMouseUp(Sender: TOBject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure CheckListBoxChanged; |
|
procedure CheckListBoxLegendClick(Sender: TObject); |
|
procedure CheckListBoxLegendDrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState); |
|
procedure CheckListBoxLegendKeyPress(Sender: TObject; var Key: Char); |
|
procedure CreateMenuItem(Pos: LongInt; ct: Curve_type; ParentMenu: TMenuItem; OnClick: TNotifyEvent); |
|
Creates single menu item. | |
|
procedure CreateUserCurveMenus; |
|
Creates all menu items corresponding to user defined curves. | |
|
procedure CurvePositionsClick(Sender: TObject); |
|
procedure DeleteUserCurve(ct: Curve_type); |
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
|
procedure FormCreate(Sender: TObject); |
|
procedure FormDestroy(Sender: TObject); |
|
procedure GridDataEditingDone(Sender: TObject); |
|
procedure GridDataSelectEditor(Sender: TObject; aCol, aRow: Integer; var Editor: TWinControl); |
|
procedure LoadDataFile(FileName: string); |
|
procedure LoadTable; |
|
Loading curve parameters from XML file. | |
|
procedure MenuModelClick(Sender: TObject); |
|
procedure MenuN2ThetaClick(Sender: TObject); |
|
procedure MenuSetWavelengthClick(Sender: TObject); |
|
procedure MenuSinThetaLambdaClick(Sender: TObject); |
|
procedure MenuThetaClick(Sender: TObject); |
|
procedure PanelTopClick(Sender: TObject); |
|
procedure ReadSettings; |
|
Tries read the user settings object. In the case of failure creates new object. | |
|
procedure ReadUserCurves; |
|
procedure AddDummyCurve; procedure DeleteDummyCurve; | |
|
procedure SaveTable; |
|
Saving curve parameters into XML file. | |
|
procedure ScrollBarXChange(Sender: TObject); |
|
procedure ScrollBarYChange(Sender: TObject); |
|
procedure ShowHint(const Hint: string); |
|
procedure ShowRFactor; |
|
procedure ShowTime; |
|
procedure TabSheetBackgroundResize(Sender: TObject); |
|
procedure TabSheetBackgroundShow(Sender: TObject); |
|
procedure TabSheetDatasheetShow(Sender: TObject); |
|
procedure TabSheetIntervalsShow(Sender: TObject); |
|
procedure TabSheetParametersShow(Sender: TObject); |
|
procedure TabSheetSpecPositionsShow(Sender: TObject); |
|
procedure TAChart1Zoom(Sender: TComponent); |
|
procedure TimerAsyncTimer(Sender: TObject); |
|
procedure TimerBalloonHideTimer(Sender: TObject); |
|
procedure TimerBalloonShowTimer(Sender: TObject); |
|
procedure TimerCheckStateTimer(Sender: TObject); |
|
procedure WriteSettings; |
|
procedure WriteUserCurve(CurveType: Curve_type); |
|
procedure AsyncOperationFinished(Sender: TObject); |
|
Callback for calculating object. | |
|
procedure CreateCurveTypeMenus; |
|
procedure DoEditHint; |
|
procedure OnChartClick; |
|
The event OnClick of Chart arises between MouseUp and MouseDown. That is why OnClick is not used. | |
|
procedure OnDeleteUserCurveClick(Sender: TObject); |
|
procedure OnException(Sender: TObject; E: Exception); |
|
procedure OnFindComponentClass(Reader: TReader; const ClassName: string; var ComponentClass: TComponentClass); |
|
procedure OnUserCurveClick(Sender: TObject); |
|
procedure SetAsyncState(State: TAsyncState); |
|
procedure SetHandleEditHint(EditHint: Boolean); |
|
procedure SetOpenState(State: TOpenState); |
|
Sets states of controls according to state of file. | |
|
procedure SetResState(State: TResState); |
|
procedure SetSelectionMode(ASelectionMode: TSelMode); |
|
procedure SetViewState(State: TViewState); |
|
Sets states of controls responsible for changing chart display mode. | |
|
procedure SubtractBackground(Auto: Boolean); |
|
Wrapper. | |
|
procedure UpdateBarsPos; |
Properties
|
property HandleEditHint: Boolean read FHandleEditHint
write SetHandleEditHint; |
Generated by PasDoc 0.15.0.