Class TfrmSutraTimes

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TfrmSutraTimes = class(TfrmCustomGoPhast)

Description

no description available, TfrmCustomGoPhast description follows

TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

TfrmCustomGoPhast handles setting the color and font. TfrmCustomGoPhast also tries to keep from appearing at a location where it can't be seen. )

Hierarchy

Overview

Fields

Implicit vstScedules: TVirtualStringTree;
Implicit grp1: TGroupBox;
Implicit lblScheduleType: TLabel;
Implicit comboScheduleType: TComboBox;
Implicit jvpglstTemporal: TJvPageList;
Implicit jvspTimeCycle: TJvStandardPage;
Implicit grp3: TGroupBox;
Implicit lblNTMAX: TLabel;
Implicit lblTimei: TLabel;
Implicit lblTimel: TLabel;
Implicit rdeTimei: TRbwDataEntry;
Implicit rdeTimel: TRbwDataEntry;
Implicit grp4: TGroupBox;
Implicit lblNTCYC: TLabel;
Implicit lblTcmult: TLabel;
Implicit lblDTMAX: TLabel;
Implicit lblTCMIN: TLabel;
Implicit rdeTcmult: TRbwDataEntry;
Implicit rdeDTMAX: TRbwDataEntry;
Implicit rdeTCMIN: TRbwDataEntry;
Implicit jvspTimeList: TJvStandardPage;
Implicit grp5: TGroupBox;
Implicit rgMannerOfTimeSpecification: TRadioGroup;
Implicit lbledName: TLabeledEdit;
Implicit frameTimes: TframeGrid;
Implicit jvspStepCyle: TJvStandardPage;
Implicit jvspStepList: TJvStandardPage;
Implicit grp2: TGroupBox;
Implicit frameSteps: TframeGrid;
Implicit rdeTimec: TRbwDataEntry;
Implicit lblTimec: TLabel;
Implicit grp6: TGroupBox;
Implicit lblMaxSteps: TLabel;
Implicit lblInitialStep: TLabel;
Implicit lblLimitingStep: TLabel;
Implicit lblTimeStepIncrement: TLabel;
Implicit pnl1: TPanel;
Implicit sbAddUnit: TSpeedButton;
Implicit sbDeleteUnit: TSpeedButton;
Implicit pnlBottom: TPanel;
Implicit btnHelp: TBitBtn;
Implicit btnOK: TBitBtn;
Implicit btnCancel: TBitBtn;
Implicit rdeScaleFactor: TRbwDataEntry;
Implicit lblScaleFactor: TLabel;
Implicit seNtmax: TJvSpinEdit;
Implicit seMaxSteps: TJvSpinEdit;
Implicit seInitialStep: TJvSpinEdit;
Implicit seLimitingStep: TJvSpinEdit;
Implicit seTimeStepIncrement: TJvSpinEdit;
Implicit seNTCYC: TJvSpinEdit;
Implicit sbUp: TSpeedButton;
Implicit sbDown: TSpeedButton;
Implicit pcMain: TPageControl;
Implicit tabSchedules: TTabSheet;
Implicit tabOptions: TTabSheet;
Implicit rdeInitialTime: TRbwDataEntry;
Implicit lblInitialtime: TLabel;
Implicit sePressureCycles: TJvSpinEdit;
Implicit lblPressureCycles: TLabel;
Implicit seTransportCycles: TJvSpinEdit;
Implicit lblTransportCycles: TLabel;
Private FSutraTimeOptions: TSutraTimeOptions;
Private FSelectedSchedule: TSutraTimeScheduleItem;
Private FGettingData: Boolean;
Private FUpdatingSchedule: Boolean;
Private FGettingItem: Boolean;

Methods

Implicit procedure comboScheduleTypeChange(Sender: TObject);
Implicit procedure FormCreate(Sender: TObject); override;
Implicit procedure FormDestroy(Sender: TObject); override;
Implicit procedure sbAddUnitClick(Sender: TObject);
Implicit procedure sbDeleteUnitClick(Sender: TObject);
Implicit procedure btnOKClick(Sender: TObject);
Implicit procedure vstScedulesGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
Implicit procedure vstScedulesGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
Implicit procedure vstScedulesNodeClick(Sender: TBaseVirtualTree; const HitInfo: THitInfo);
Implicit procedure lbledNameChange(Sender: TObject);
Implicit procedure sbUpClick(Sender: TObject);
Implicit procedure sbDownClick(Sender: TObject);
Implicit procedure sePressureCyclesChange(Sender: TObject);
Implicit procedure seTransportCyclesChange(Sender: TObject);
Implicit procedure rdeInitialTimeChange(Sender: TObject);
Implicit procedure frameTimesGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
Implicit procedure rgMannerOfTimeSpecificationClick(Sender: TObject);
Private procedure SetSelectedSchedule(const Value: TSutraTimeScheduleItem);
Private procedure GetItem;
Private procedure SetItem;
Private procedure GetData;
Private procedure SetData;
Private procedure ExchangeScheduleNodes(Selected: PVirtualNode; AnotherNode: PVirtualNode);
Private procedure EnableUpDownButtons(const Value: TSutraTimeScheduleItem);
Private procedure UpdateTimeStepsSchedule;

Properties

Public property SelectedSchedule: TSutraTimeScheduleItem read FSelectedSchedule write SetSelectedSchedule;

Description

Fields

Implicit vstScedules: TVirtualStringTree;
 
Implicit grp1: TGroupBox;
 
Implicit lblScheduleType: TLabel;
 
Implicit comboScheduleType: TComboBox;
 
Implicit jvpglstTemporal: TJvPageList;
 
Implicit jvspTimeCycle: TJvStandardPage;
 
Implicit grp3: TGroupBox;
 
Implicit lblNTMAX: TLabel;
 
Implicit lblTimei: TLabel;
 
Implicit lblTimel: TLabel;
 
Implicit rdeTimei: TRbwDataEntry;
 
Implicit rdeTimel: TRbwDataEntry;
 
Implicit grp4: TGroupBox;
 
Implicit lblNTCYC: TLabel;
 
Implicit lblTcmult: TLabel;
 
Implicit lblDTMAX: TLabel;
 
Implicit lblTCMIN: TLabel;
 
Implicit rdeTcmult: TRbwDataEntry;
 
Implicit rdeDTMAX: TRbwDataEntry;
 
Implicit rdeTCMIN: TRbwDataEntry;
 
Implicit jvspTimeList: TJvStandardPage;
 
Implicit grp5: TGroupBox;
 
Implicit rgMannerOfTimeSpecification: TRadioGroup;
 
Implicit lbledName: TLabeledEdit;
 
Implicit frameTimes: TframeGrid;
 
Implicit jvspStepCyle: TJvStandardPage;
 
Implicit jvspStepList: TJvStandardPage;
 
Implicit grp2: TGroupBox;
 
Implicit frameSteps: TframeGrid;
 
Implicit rdeTimec: TRbwDataEntry;
 
Implicit lblTimec: TLabel;
 
Implicit grp6: TGroupBox;
 
Implicit lblMaxSteps: TLabel;
 
Implicit lblInitialStep: TLabel;
 
Implicit lblLimitingStep: TLabel;
 
Implicit lblTimeStepIncrement: TLabel;
 
Implicit pnl1: TPanel;
 
Implicit sbAddUnit: TSpeedButton;
 
Implicit sbDeleteUnit: TSpeedButton;
 
Implicit pnlBottom: TPanel;
 
Implicit btnHelp: TBitBtn;
 
Implicit btnOK: TBitBtn;
 
Implicit btnCancel: TBitBtn;
 
Implicit rdeScaleFactor: TRbwDataEntry;
 
Implicit lblScaleFactor: TLabel;
 
Implicit seNtmax: TJvSpinEdit;
 
Implicit seMaxSteps: TJvSpinEdit;
 
Implicit seInitialStep: TJvSpinEdit;
 
Implicit seLimitingStep: TJvSpinEdit;
 
Implicit seTimeStepIncrement: TJvSpinEdit;
 
Implicit seNTCYC: TJvSpinEdit;
 
Implicit sbUp: TSpeedButton;
 
Implicit sbDown: TSpeedButton;
 
Implicit pcMain: TPageControl;
 
Implicit tabSchedules: TTabSheet;
 
Implicit tabOptions: TTabSheet;
 
Implicit rdeInitialTime: TRbwDataEntry;
 
Implicit lblInitialtime: TLabel;
 
Implicit sePressureCycles: TJvSpinEdit;
 
Implicit lblPressureCycles: TLabel;
 
Implicit seTransportCycles: TJvSpinEdit;
 
Implicit lblTransportCycles: TLabel;
 
Private FSutraTimeOptions: TSutraTimeOptions;
 
Private FSelectedSchedule: TSutraTimeScheduleItem;
 
Private FGettingData: Boolean;
 
Private FUpdatingSchedule: Boolean;
 
Private FGettingItem: Boolean;
 

Methods

Implicit procedure comboScheduleTypeChange(Sender: TObject);
 
Implicit procedure FormCreate(Sender: TObject); override;
 
Implicit procedure FormDestroy(Sender: TObject); override;
 
Implicit procedure sbAddUnitClick(Sender: TObject);
 
Implicit procedure sbDeleteUnitClick(Sender: TObject);
 
Implicit procedure btnOKClick(Sender: TObject);
 
Implicit procedure vstScedulesGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
 
Implicit procedure vstScedulesGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
 
Implicit procedure vstScedulesNodeClick(Sender: TBaseVirtualTree; const HitInfo: THitInfo);
 
Implicit procedure lbledNameChange(Sender: TObject);
 
Implicit procedure sbUpClick(Sender: TObject);
 
Implicit procedure sbDownClick(Sender: TObject);
 
Implicit procedure sePressureCyclesChange(Sender: TObject);
 
Implicit procedure seTransportCyclesChange(Sender: TObject);
 
Implicit procedure rdeInitialTimeChange(Sender: TObject);
 
Implicit procedure frameTimesGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
 
Implicit procedure rgMannerOfTimeSpecificationClick(Sender: TObject);
 
Private procedure SetSelectedSchedule(const Value: TSutraTimeScheduleItem);
 
Private procedure GetItem;
 
Private procedure SetItem;
 
Private procedure GetData;
 
Private procedure SetData;
 
Private procedure ExchangeScheduleNodes(Selected: PVirtualNode; AnotherNode: PVirtualNode);
 
Private procedure EnableUpDownButtons(const Value: TSutraTimeScheduleItem);
 
Private procedure UpdateTimeStepsSchedule;
 

Properties

Public property SelectedSchedule: TSutraTimeScheduleItem read FSelectedSchedule write SetSelectedSchedule;

Private declarations


Generated by PasDoc 0.12.1 on 2013-05-13 15:41:41