//--------------------------------------------------------------------------- void __fastcall TConfDlg::Refresh1Click(TObject *Sender) { int index=HostBox->ItemIndex; if(index<0) return; Servers->Refresh(HostBox->Items->Strings[index].c_str()); FormActivate(0); }
void __fastcall TfrmPropVisor::cboAutoOpcionesChange(TObject *Sender) { switch( cboAutoOpciones->ItemIndex ) { case 0: //Trigonometrica dsgPrevia->ShowAxeX = true; dsgPrevia->ShowAxeY = true; dsgPrevia->DirectionAxeX = drLeftToRight; dsgPrevia->DirectionAxeY = drBottomToTop; dsgPrevia->AxeX->Color = clBlack; dsgPrevia->AxeY->Color = clBlack; dsgPrevia->FontAxeX->Color = clBlack; dsgPrevia->FontAxeY->Color = clBlack; //cboEstiloX dsgPrevia->AxeX->Width = 1; dsgPrevia->AxeY->Width = 1; dsgPrevia->ShowPointer = true; dsgPrevia->BackGround->Color = clWhite; dsgPrevia->ShowLabelsAxeX = true; dsgPrevia->ShowLabelsAxeY = true; dsgPrevia->LabelsStepX = 3.14159; dsgPrevia->LabelsStepY = 1; dsgPrevia->AdditionalStringAxeX = " [rad]"; dsgPrevia->LabelsToTheTopOfAxeX = true; dsgPrevia->LabelsToTheRigthOfAxeY = true; dsgPrevia->FontLabelX->Color = clBlack; dsgPrevia->FontLabelY->Color = clBlack; dsgPrevia->ShowMarksAxeX = true; dsgPrevia->ShowMarksAxeY = true; dsgPrevia->MarksStepX = 3.14159/2; dsgPrevia->MarksStepY = 0.5; dsgPrevia->MarksLengthAxeX = 8; dsgPrevia->MarksLengthAxeY = 8; dsgPrevia->ShowGridX = true; dsgPrevia->ShowGridY = true; dsgPrevia->GridStepX = 3.14159; dsgPrevia->GridStepY = 1; //cboStyleGridX dsgPrevia->GridX->Width = 1; dsgPrevia->GridY->Width = 1; dsgPrevia->GridX->Color = clSilver; dsgPrevia->GridY->Color = clSilver; FormActivate(Sender); break; case 1: //Discreta dsgPrevia->ShowAxeX = true; dsgPrevia->ShowAxeY = true; dsgPrevia->DirectionAxeX = drLeftToRight; dsgPrevia->DirectionAxeY = drBottomToTop; dsgPrevia->AxeX->Color = clBlack; dsgPrevia->AxeY->Color = clBlack; dsgPrevia->FontAxeX->Color = clBlack; dsgPrevia->FontAxeY->Color = clBlack; //cboEstiloX dsgPrevia->AxeX->Width = 1; dsgPrevia->AxeY->Width = 1; dsgPrevia->ShowPointer = true; dsgPrevia->BackGround->Color = clSilver; dsgPrevia->ShowLabelsAxeX = true; dsgPrevia->ShowLabelsAxeY = true; dsgPrevia->AdditionalStringAxeX = ""; dsgPrevia->LabelsStepX = 1; dsgPrevia->LabelsStepY = 1; dsgPrevia->LabelsToTheTopOfAxeX = true; dsgPrevia->LabelsToTheRigthOfAxeY = true; dsgPrevia->FontLabelX->Color = clBlack; dsgPrevia->FontLabelY->Color = clBlack; dsgPrevia->ShowMarksAxeX = true; dsgPrevia->ShowMarksAxeY = true; dsgPrevia->MarksStepX = 1; dsgPrevia->MarksStepY = 1; dsgPrevia->MarksLengthAxeX = 8; dsgPrevia->MarksLengthAxeY = 8; dsgPrevia->ShowGridX = false; dsgPrevia->ShowGridY = false; dsgPrevia->GridStepX = 1; dsgPrevia->GridStepY = 1; //cboStyleGridX dsgPrevia->GridX->Width = 1; dsgPrevia->GridY->Width = 1; dsgPrevia->GridX->Color = clSilver; dsgPrevia->GridY->Color = clSilver; FormActivate(Sender); break; case 2: //Profesional dsgPrevia->ShowAxeX = true; dsgPrevia->ShowAxeY = true; dsgPrevia->DirectionAxeX = drLeftToRight; dsgPrevia->DirectionAxeY = drBottomToTop; dsgPrevia->AxeX->Color = clLime; dsgPrevia->AxeY->Color = clLime; dsgPrevia->FontAxeX->Color = clLime; dsgPrevia->FontAxeY->Color = clLime; //cboEstiloX dsgPrevia->AxeX->Width = 1; dsgPrevia->AxeY->Width = 1; dsgPrevia->ShowPointer = true; dsgPrevia->BackGround->Color = clBlack; dsgPrevia->ShowLabelsAxeX = true; dsgPrevia->ShowLabelsAxeY = true; dsgPrevia->LabelsStepX = 1; dsgPrevia->LabelsStepY = 1; dsgPrevia->AdditionalStringAxeX = ""; dsgPrevia->LabelsToTheTopOfAxeX = false; dsgPrevia->LabelsToTheRigthOfAxeY = false; dsgPrevia->FontLabelX->Color = clSilver; dsgPrevia->FontLabelY->Color = clSilver; dsgPrevia->ShowMarksAxeX = true; dsgPrevia->ShowMarksAxeY = true; dsgPrevia->MarksStepX = 0.5; dsgPrevia->MarksStepY = 0.5; dsgPrevia->MarksLengthAxeX = 5; dsgPrevia->MarksLengthAxeY = 5; dsgPrevia->ShowGridX = true; dsgPrevia->ShowGridY = true; dsgPrevia->GridStepX = 2; dsgPrevia->GridStepY = 2; //cboStyleGridX dsgPrevia->GridX->Width = 1; dsgPrevia->GridY->Width = 1; dsgPrevia->GridX->Color = clSilver; dsgPrevia->GridY->Color = clSilver; FormActivate(Sender); break; case 3: //Moderna dsgPrevia->ShowAxeX = true; dsgPrevia->ShowAxeY = true; dsgPrevia->DirectionAxeX = drLeftToRight; dsgPrevia->DirectionAxeY = drBottomToTop; dsgPrevia->AxeX->Color = clNavy; dsgPrevia->AxeY->Color = clNavy; dsgPrevia->FontAxeX->Color = clNavy; dsgPrevia->FontAxeY->Color = clNavy; //cboEstiloX dsgPrevia->AxeX->Width = 1; dsgPrevia->AxeY->Width = 1; dsgPrevia->ShowPointer = true; dsgPrevia->BackGround->Color = TColor(0xCB8B64); dsgPrevia->ShowLabelsAxeX = true; dsgPrevia->ShowLabelsAxeY = true; dsgPrevia->LabelsStepX = 0.5; dsgPrevia->LabelsStepY = 0.5; dsgPrevia->AdditionalStringAxeX = ""; dsgPrevia->LabelsToTheTopOfAxeX = false; dsgPrevia->LabelsToTheRigthOfAxeY = false; dsgPrevia->FontLabelX->Color = clBlack; dsgPrevia->FontLabelY->Color = clBlack; dsgPrevia->ShowMarksAxeX = true; dsgPrevia->ShowMarksAxeY = true; dsgPrevia->MarksStepX = 1.0/3.0; dsgPrevia->MarksStepY = 1.0/3.0; dsgPrevia->MarksLengthAxeX = 8; dsgPrevia->MarksLengthAxeY = 8; dsgPrevia->ShowGridX = true; dsgPrevia->ShowGridY = true; dsgPrevia->GridStepX = 0.25; dsgPrevia->GridStepY = 0.25; //cboStyleGridX dsgPrevia->GridX->Width = 1; dsgPrevia->GridY->Width = 1; dsgPrevia->GridX->Color = TColor(0xD9AC91); dsgPrevia->GridY->Color = TColor(0xD9AC91); FormActivate(Sender); break; case 4: //Impactante dsgPrevia->ShowAxeX = true; dsgPrevia->ShowAxeY = true; dsgPrevia->DirectionAxeX = drLeftToRight; dsgPrevia->DirectionAxeY = drBottomToTop; dsgPrevia->AxeX->Color = clRed; dsgPrevia->AxeY->Color = clBlue; dsgPrevia->FontAxeX->Color = clRed; dsgPrevia->FontAxeY->Color = clBlue; //cboEstiloX dsgPrevia->AxeX->Width = 1; dsgPrevia->AxeY->Width = 1; dsgPrevia->ShowPointer = true; dsgPrevia->BackGround->Color = clBlack; dsgPrevia->ShowLabelsAxeX = true; dsgPrevia->ShowLabelsAxeY = true; dsgPrevia->LabelsStepX = 0.5; dsgPrevia->LabelsStepY = 0.5; dsgPrevia->AdditionalStringAxeX = ""; dsgPrevia->LabelsToTheTopOfAxeX = false; dsgPrevia->LabelsToTheRigthOfAxeY = false; dsgPrevia->FontLabelX->Color = clRed; dsgPrevia->FontLabelY->Color = clBlue; dsgPrevia->ShowMarksAxeX = true; dsgPrevia->ShowMarksAxeY = true; dsgPrevia->MarksStepX = 0.25; dsgPrevia->MarksStepY = 0.25; dsgPrevia->MarksLengthAxeX = 8; dsgPrevia->MarksLengthAxeY = 8; dsgPrevia->ShowGridX = true; dsgPrevia->ShowGridY = true; dsgPrevia->GridStepX = 0.5; dsgPrevia->GridStepY = 0.5; //cboStyleGridX dsgPrevia->GridX->Width = 1; dsgPrevia->GridY->Width = 1; dsgPrevia->GridX->Color = clYellow; dsgPrevia->GridY->Color = clYellow; FormActivate(Sender); break; case 5: //ImpresiĆ³n dsgPrevia->ShowAxeX = true; dsgPrevia->ShowAxeY = true; dsgPrevia->DirectionAxeX = drLeftToRight; dsgPrevia->DirectionAxeY = drBottomToTop; dsgPrevia->AxeX->Color = clBlack; dsgPrevia->AxeY->Color = clBlack; dsgPrevia->FontAxeX->Color = clBlack; dsgPrevia->FontAxeY->Color = clBlack; //cboEstiloX dsgPrevia->AxeX->Width = 1; dsgPrevia->AxeY->Width = 1; dsgPrevia->ShowPointer = true; dsgPrevia->BackGround->Color = clWhite; dsgPrevia->ShowLabelsAxeX = true; dsgPrevia->ShowLabelsAxeY = true; dsgPrevia->LabelsStepX = 1; dsgPrevia->LabelsStepY = 1; dsgPrevia->AdditionalStringAxeX = ""; dsgPrevia->LabelsToTheTopOfAxeX = false; dsgPrevia->LabelsToTheRigthOfAxeY = false; dsgPrevia->FontLabelX->Color = clBlack; dsgPrevia->FontLabelY->Color = clBlack; dsgPrevia->ShowMarksAxeX = true; dsgPrevia->ShowMarksAxeY = true; dsgPrevia->MarksStepX = 0.5; dsgPrevia->MarksStepY = 0.5; dsgPrevia->MarksLengthAxeX = 8; dsgPrevia->MarksLengthAxeY = 8; dsgPrevia->ShowGridX = false; dsgPrevia->ShowGridY = false; dsgPrevia->GridStepX = 1; dsgPrevia->GridStepY = 1; //cboStyleGridX dsgPrevia->GridX->Width = 1; dsgPrevia->GridY->Width = 1; dsgPrevia->GridX->Color = clSilver; dsgPrevia->GridY->Color = clSilver; FormActivate(Sender); break; case 6: //cargar if( dlgOpenDSG->Execute() ){ dsgPrevia->LoadFromFile(dlgOpenDSG->FileName); frmMain->Config.DirectorioDsg = ExtractFilePath(dlgOpenDSG->FileName); FormActivate(Sender); } break; } }