Example #1
0
void __fastcall TQSOEditDlg::FormKeyUp( TObject */*Sender*/, WORD &Key,
                                        TShiftState Shift )
{
    if ( ( Shift.Contains( ssCtrl ) || Shift.Contains( ssShift ) ) && Key >= VK_F1 && Key <= VK_F12 )
    {
        if ( Shift.Contains( ssCtrl ) && Shift.Contains( ssShift ) )
        {
            // keyer record keys
            TSendDM::sendKeyerRecord( Key - VK_F1 + 1 );
        }
        else
        {
            // Keyer play keys
            TSendDM::sendKeyerPlay( Key - VK_F1 + 1 );
        }
    }
    else if ( Shift.Empty() )
    {
        if ( ( Key == VK_F1 || Key == VK_F2 || Key == VK_F3 || Key == VK_F4 || Key == VK_F5 || Key == VK_F6) )
        {
            GJVQSOEditFrame->setActiveControl( Key );
        }
    }

}
Example #2
0
//---------------------------------------------------------------------------
void __fastcall TEditorForm::FormKeyDown(TObject * /*Sender*/, WORD & Key, TShiftState Shift)
{
  if (((Key == VK_ESCAPE) || (Key == VK_F10)) && Shift.Empty())
  {
    Key = 0;
    Close();
  }
}
Example #3
0
//---------------------------------------------------------------------------
void __fastcall TEditMaskDialog::FormKeyDown(
  TObject * /*Sender*/, WORD & Key, TShiftState Shift)
{
  if ((Key == VK_ESCAPE) && Shift.Empty())
  {
    ModalResult = mrCancel;
    Key = 0;
  }
  else if ((Key == VK_RETURN) && Shift.Contains(ssCtrl))
  {
    ModalResult = DefaultResult(this);
    Key = 0;
  }
}
Example #4
0
void __fastcall TMain::FormKeyDown(TObject * Sender, WORD & Key,
	TShiftState Shift) {
	if (!Memo->Enabled)
		return;

	if (Shift.Empty())
		switch (Key) {
		case VK_F1:
			tbtnAbout->Click();
			break;
		case VK_F3:
			tbtnSave->Click();
			break;
		case VK_F5:
			tbtnUpdate->Click();
			break;
		case VK_F8:
			tbtnMail->Click();
			break;
		}
}
Example #5
0
            }
        }
        mysql_free_result(result);
    }