// --------------------------------------------------------------------------- void __fastcall TfrmMain::ApplicationEventsHint(TObject *Sender) { sbrEstado->Panels->Items[1]->Text = GetLongHint(Application->Hint); if (strcmp(AnsiString(Sender->ClassName()).c_str(), "TDesigner2D")) { sbrEstado->Panels->Items[2]->Text = ""; sbrEstado->Panels->Items[3]->Text = ""; } }
//--------------------------------------------------------------------------- void __fastcall TEditorForm::ApplicationHint(TObject * /*Sender*/) { assert(Application); UnicodeString AHint = GetLongHint(Application->Hint); FShowStatusBarHint = Active && !AHint.IsEmpty(); if (FShowStatusBarHint) { FStatusBarHint = AHint; } else { FStatusBarHint = L""; } UpdateControls(); }
//--------------------------------------------------------------------------- void __fastcall TRADIOSetDlg::DisplayHint(TObject *Sender) { LH->Caption = GetLongHint(Application->Hint); }
//--------------------------------------------------------------------------- void __fastcall TMouseoverHintForm::StatusBar1Hint(TObject *Sender) { Label1->Text = GetLongHint(Application->Hint); }