---------------------------------------------------------------------------
| 1264 | } |
| 1265 | //--------------------------------------------------------------------------- |
| 1266 | void AlarmShow(String s) |
| 1267 | { |
| 1268 | if( ! ShowAlarmForm ) |
| 1269 | ShowAlarmForm = new TShowAlarmForm(MainForm); |
| 1270 | |
| 1271 | if( ShowAlarmForm->ListBox->Font->Name != MainForm->LogSG->Font->Name || |
| 1272 | ShowAlarmForm->ListBox->Font->Size != MainForm->LogSG->Font->Size ) |
| 1273 | ShowAlarmForm->ListBox->Font = MainForm->LogSG->Font; |
| 1274 | |
| 1275 | if( s.Length() > 0 ) |
| 1276 | { |
| 1277 | ShowAlarmForm->ListBox->Items->Add(s); |
| 1278 | int c = ShowAlarmForm->ListBox->Items->Count; |
| 1279 | ShowAlarmForm->ListBox->ItemIndex = c - 1; |
| 1280 | if( c > MaxGridLinesReceive ) |
| 1281 | ShowAlarmForm->ListBox->Items->Delete(0); |
| 1282 | } |
| 1283 | |
| 1284 | if( ShowAlarmForm->WindowState==wsMinimized ) |
| 1285 | ShowAlarmForm->WindowState = wsNormal; |
| 1286 | else if( MainForm->WindowState==wsMinimized ) |
| 1287 | MainForm->WindowState = wsNormal; |
| 1288 | else |
| 1289 | ShowAlarmForm->Show(); |
| 1290 | |
| 1291 | ShowAlarmForm->FormStyle = fsNormal; |
| 1292 | ShowAlarmForm->FormStyle = fsStayOnTop; |
| 1293 | } |
| 1294 | //--------------------------------------------------------------------------- |
| 1295 | void __fastcall TMainForm::aShowAlarmsExecute(TObject *Sender) |
| 1296 | { |
no test coverage detected