---------------------------------------------------------------------------
| 215 | } |
| 216 | //--------------------------------------------------------------------------- |
| 217 | void __fastcall TSetupForm::SmtpSelClick(TObject *Sender) |
| 218 | { |
| 219 | int profile = ((TSpeedButton *)Sender)->Tag; |
| 220 | String server; |
| 221 | int port; |
| 222 | int ssl; |
| 223 | switch( profile ) |
| 224 | { |
| 225 | case SMTP_MAIL_RU: |
| 226 | server = "smtp.mail.ru"; |
| 227 | port = 465; |
| 228 | ssl = 1; |
| 229 | break; |
| 230 | case SMTP_YANDEX_RU: |
| 231 | server = "smtp.yandex.ru"; |
| 232 | port = 465; |
| 233 | ssl = 1; |
| 234 | break; |
| 235 | case SMTP_ICLOUD: |
| 236 | server = "smtp.mail.me.com"; |
| 237 | port = 587; |
| 238 | ssl = 2; |
| 239 | break; |
| 240 | case SMTP_GOOGLE: |
| 241 | server = "smtp.gmail.com"; |
| 242 | port = 465; |
| 243 | ssl = 1; |
| 244 | break; |
| 245 | } |
| 246 | serverEdit->Text = server; |
| 247 | portEdit->Text = port; |
| 248 | sslComboBox->ItemIndex = ssl; |
| 249 | } |
| 250 | //--------------------------------------------------------------------------- |
| 251 | void __fastcall TSetupForm::pmInsertClick(TObject *Sender) |
| 252 | { |
nothing calls this directly
no outgoing calls
no test coverage detected