//--------------------------------------------------------------------------- #include #pragma hdrstop #include "LdOp_Frm.h" #include "MainForm.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TLoadOptions_Frm *LoadOptions_Frm; //--------------------------------------------------------------------------- __fastcall TLoadOptions_Frm::TLoadOptions_Frm(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TLoadOptions_Frm::FormShow(TObject *Sender) { /* following statement needed to restore correct */ /* value if user changes options and presses ESC */ LoadOptions_Frm->ActiveControl = (TWinControl *)(RadioGroup_MetaHeader->Controls[MainFrm->FLoadOptions_MetaHeader]); RadioGroup_MetaHeader->ItemIndex = MainFrm->FLoadOptions_MetaHeader; RadioGroup_TransferSyntax->ItemIndex = MainFrm->FLoadOptions_TransferSyn; RadioGroup_VR->ItemIndex = MainFrm->FLoadOptions_VR; } void __fastcall TLoadOptions_Frm::OKBtnClick(TObject *Sender) { MainFrm->FLoadOptions_MetaHeader = RadioGroup_MetaHeader->ItemIndex; MainFrm->FLoadOptions_TransferSyn = RadioGroup_TransferSyntax->ItemIndex; MainFrm->FLoadOptions_VR = RadioGroup_VR->ItemIndex; }