add directory name to window title
This commit is contained in:
parent
614febabf6
commit
59b4d83153
1 changed files with 4 additions and 0 deletions
|
@ -628,6 +628,10 @@ void TConfigForm::ApplyTranslation(TIniFile *ini)
|
||||||
MaximizeWindowKeyLbl->Caption = GetKeyText(VK_MENU) + L" +";
|
MaximizeWindowKeyLbl->Caption = GetKeyText(VK_MENU) + L" +";
|
||||||
UnlockCursor1KeyLbl->Caption = GetKeyText(VK_CONTROL) + L" +";
|
UnlockCursor1KeyLbl->Caption = GetKeyText(VK_CONTROL) + L" +";
|
||||||
UnlockCursor2KeyLbl->Caption = "R " + GetKeyText(VK_MENU) + L" +";
|
UnlockCursor2KeyLbl->Caption = "R " + GetKeyText(VK_MENU) + L" +";
|
||||||
|
|
||||||
|
ConfigForm->Caption +=
|
||||||
|
" (" + TPath::GetFileName(
|
||||||
|
TPath::GetDirectoryName(Application->ExeName)) + ")";
|
||||||
}
|
}
|
||||||
|
|
||||||
void __fastcall TConfigForm::DisplayBtnClick(TObject *Sender)
|
void __fastcall TConfigForm::DisplayBtnClick(TObject *Sender)
|
||||||
|
|
Loading…
Reference in a new issue