Description | Hierarchy | Fields | Methods | Properties |
type TfrmSutraTimes = class(TfrmCustomGoPhast)
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. )
procedure comboScheduleTypeChange(Sender: TObject); |
|
procedure FormCreate(Sender: TObject); override; |
|
procedure FormDestroy(Sender: TObject); override; |
|
procedure sbAddUnitClick(Sender: TObject); |
|
procedure sbDeleteUnitClick(Sender: TObject); |
|
procedure btnOKClick(Sender: TObject); |
|
procedure vstScedulesGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer); |
|
procedure vstScedulesGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string); |
|
procedure vstScedulesNodeClick(Sender: TBaseVirtualTree; const HitInfo: THitInfo); |
|
procedure lbledNameChange(Sender: TObject); |
|
procedure sbUpClick(Sender: TObject); |
|
procedure sbDownClick(Sender: TObject); |
|
procedure sePressureCyclesChange(Sender: TObject); |
|
procedure seTransportCyclesChange(Sender: TObject); |
|
procedure rdeInitialTimeChange(Sender: TObject); |
|
procedure frameTimesGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); |
|
procedure rgMannerOfTimeSpecificationClick(Sender: TObject); |
|
procedure SetSelectedSchedule(const Value: TSutraTimeScheduleItem); |
|
procedure GetItem; |
|
procedure SetItem; |
|
procedure GetData; |
|
procedure SetData; |
|
procedure ExchangeScheduleNodes(Selected: PVirtualNode; AnotherNode: PVirtualNode); |
|
procedure EnableUpDownButtons(const Value: TSutraTimeScheduleItem); |
|
procedure UpdateTimeStepsSchedule; |
property SelectedSchedule: TSutraTimeScheduleItem read FSelectedSchedule
write SetSelectedSchedule; |
vstScedules: TVirtualStringTree; |
|
grp1: TGroupBox; |
|
lblScheduleType: TLabel; |
|
comboScheduleType: TComboBox; |
|
jvpglstTemporal: TJvPageList; |
|
jvspTimeCycle: TJvStandardPage; |
|
grp3: TGroupBox; |
|
lblNTMAX: TLabel; |
|
lblTimei: TLabel; |
|
lblTimel: TLabel; |
|
rdeTimei: TRbwDataEntry; |
|
rdeTimel: TRbwDataEntry; |
|
grp4: TGroupBox; |
|
lblNTCYC: TLabel; |
|
lblTcmult: TLabel; |
|
lblDTMAX: TLabel; |
|
lblTCMIN: TLabel; |
|
rdeTcmult: TRbwDataEntry; |
|
rdeDTMAX: TRbwDataEntry; |
|
rdeTCMIN: TRbwDataEntry; |
|
jvspTimeList: TJvStandardPage; |
|
grp5: TGroupBox; |
|
rgMannerOfTimeSpecification: TRadioGroup; |
|
lbledName: TLabeledEdit; |
|
frameTimes: TframeGrid; |
|
jvspStepCyle: TJvStandardPage; |
|
jvspStepList: TJvStandardPage; |
|
grp2: TGroupBox; |
|
frameSteps: TframeGrid; |
|
rdeTimec: TRbwDataEntry; |
|
lblTimec: TLabel; |
|
grp6: TGroupBox; |
|
lblMaxSteps: TLabel; |
|
lblInitialStep: TLabel; |
|
lblLimitingStep: TLabel; |
|
lblTimeStepIncrement: TLabel; |
|
pnl1: TPanel; |
|
sbAddUnit: TSpeedButton; |
|
sbDeleteUnit: TSpeedButton; |
|
pnlBottom: TPanel; |
|
btnHelp: TBitBtn; |
|
btnOK: TBitBtn; |
|
btnCancel: TBitBtn; |
|
rdeScaleFactor: TRbwDataEntry; |
|
lblScaleFactor: TLabel; |
|
seNtmax: TJvSpinEdit; |
|
seMaxSteps: TJvSpinEdit; |
|
seInitialStep: TJvSpinEdit; |
|
seLimitingStep: TJvSpinEdit; |
|
seTimeStepIncrement: TJvSpinEdit; |
|
seNTCYC: TJvSpinEdit; |
|
sbUp: TSpeedButton; |
|
sbDown: TSpeedButton; |
|
pcMain: TPageControl; |
|
tabSchedules: TTabSheet; |
|
tabOptions: TTabSheet; |
|
rdeInitialTime: TRbwDataEntry; |
|
lblInitialtime: TLabel; |
|
sePressureCycles: TJvSpinEdit; |
|
lblPressureCycles: TLabel; |
|
seTransportCycles: TJvSpinEdit; |
|
lblTransportCycles: TLabel; |
|
FSutraTimeOptions: TSutraTimeOptions; |
|
FSelectedSchedule: TSutraTimeScheduleItem; |
|
FGettingData: Boolean; |
|
FUpdatingSchedule: Boolean; |
|
FGettingItem: Boolean; |
|
procedure comboScheduleTypeChange(Sender: TObject); |
|
procedure FormCreate(Sender: TObject); override; |
|
procedure FormDestroy(Sender: TObject); override; |
|
procedure sbAddUnitClick(Sender: TObject); |
|
procedure sbDeleteUnitClick(Sender: TObject); |
|
procedure btnOKClick(Sender: TObject); |
|
procedure vstScedulesGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer); |
|
procedure vstScedulesGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string); |
|
procedure vstScedulesNodeClick(Sender: TBaseVirtualTree; const HitInfo: THitInfo); |
|
procedure lbledNameChange(Sender: TObject); |
|
procedure sbUpClick(Sender: TObject); |
|
procedure sbDownClick(Sender: TObject); |
|
procedure sePressureCyclesChange(Sender: TObject); |
|
procedure seTransportCyclesChange(Sender: TObject); |
|
procedure rdeInitialTimeChange(Sender: TObject); |
|
procedure frameTimesGridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); |
|
procedure rgMannerOfTimeSpecificationClick(Sender: TObject); |
|
procedure SetSelectedSchedule(const Value: TSutraTimeScheduleItem); |
|
procedure GetItem; |
|
procedure SetItem; |
|
procedure GetData; |
|
procedure SetData; |
|
procedure ExchangeScheduleNodes(Selected: PVirtualNode; AnotherNode: PVirtualNode); |
|
procedure EnableUpDownButtons(const Value: TSutraTimeScheduleItem); |
|
procedure UpdateTimeStepsSchedule; |
|
property SelectedSchedule: TSutraTimeScheduleItem read FSelectedSchedule
write SetSelectedSchedule; |
|
Private declarations |