---------------------------------------------------------------------------
| 1173 | } |
| 1174 | //--------------------------------------------------------------------------- |
| 1175 | void __fastcall TMainForm::FillProfilePopupMenu(void) |
| 1176 | { |
| 1177 | for(int i=0; i<HP->Count; i++) |
| 1178 | { |
| 1179 | TMessHighlightList * mhl = (TMessHighlightList *)HP->Items[i]; |
| 1180 | |
| 1181 | TMenuItem * NewItem = new TMenuItem(HighlightingProfilesPM); |
| 1182 | NewItem->Caption = mhl->ProfileName; |
| 1183 | NewItem->Tag = i; |
| 1184 | NewItem->OnClick = ChangeProfileClick; |
| 1185 | NewItem->RadioItem = true; |
| 1186 | if( i == HP->CurrentProfile ) |
| 1187 | NewItem->Checked = true; |
| 1188 | |
| 1189 | HighlightingProfilesPM->Items->Add(NewItem); |
| 1190 | } |
| 1191 | } |
| 1192 | //--------------------------------------------------------------------------- |
| 1193 | void __fastcall TMainForm::ChangeProfileClick(TObject *Sender) |
| 1194 | { |