//--------------------------------------------------------------------------- #ifndef VCLCommonH #define VCLCommonH //--------------------------------------------------------------------------- #include "Common.h" #include "Configuration.h" #include "Exceptions.h" #include #include //--------------------------------------------------------------------------- const TColor LinkColor = clBlue; extern const UnicodeString ContextSeparator; //--------------------------------------------------------------------------- void __fastcall FixListColumnWidth(TListView * TListView, int Index); void __fastcall AutoSizeListColumnsWidth(TListView * ListView, int ColumnToShrinkIndex = -1); void __fastcall EnableControl(TControl* Control, bool Enable); void __fastcall ReadOnlyControl(TControl * Control, bool ReadOnly = true); void __fastcall ReadOnlyAndEnabledControl(TControl * Control, bool ReadOnly, bool Enabled); int CalculateCheckBoxWidth(TControl * Control, const UnicodeString & Caption); void AutoSizeCheckBox(TCheckBox * CheckBox); void __fastcall InitializeSystemSettings(); void __fastcall FinalizeSystemSettings(); void __fastcall LocalSystemSettings(TForm * Control); void __fastcall UseSystemSettingsPre(TForm * Control); void __fastcall UseSystemSettingsPost(TForm * Control); void __fastcall UseSystemSettings(TForm * Control); void __fastcall ResetSystemSettings(TForm * Control); void __fastcall LinkLabel(TStaticText * StaticText, UnicodeString Url = L"", TNotifyEvent OnEnter = NULL); void __fastcall LinkActionLabel(TStaticText * StaticText); void __fastcall LinkAppLabel(TStaticText * StaticText); void __fastcall HintLabel(TStaticText * StaticText, UnicodeString Hint = L""); void __fastcall HotTrackLabel(TLabel * Label); void __fastcall SetLabelHintPopup(TLabel * Label, const UnicodeString & Hint); bool __fastcall HasLabelHintPopup(TControl * Control, const UnicodeString & HintStr); void __fastcall FixComboBoxResizeBug(TCustomComboBox * ComboBox); void __fastcall ShowAsModal(TForm * Form, void *& Storage, bool BringToFront = true, bool TriggerModalStarted = false); void __fastcall HideAsModal(TForm * Form, void *& Storage); bool __fastcall ReleaseAsModal(TForm * Form, void *& Storage); bool __fastcall IsMainFormLike(TCustomForm * Form); bool __fastcall SelectDirectory(UnicodeString & Path, const UnicodeString Prompt, bool PreserveFileName); void SelectDirectoryForEdit(THistoryComboBox * Edit); enum TListViewCheckAll { caCheck, caUncheck, caToggle }; bool __fastcall ListViewAnyChecked(TListView * ListView, bool Checked = true); void __fastcall ListViewCheckAll(TListView * ListView, TListViewCheckAll CheckAll); void __fastcall ComboAutoSwitchInitialize(TComboBox * ComboBox); void __fastcall ComboAutoSwitchLoad(TComboBox * ComboBox, TAutoSwitch Value); TAutoSwitch __fastcall ComboAutoSwitchSave(TComboBox * ComboBox); void __fastcall CheckBoxAutoSwitchLoad(TCheckBox * CheckBox, TAutoSwitch Value); TAutoSwitch __fastcall CheckBoxAutoSwitchSave(TCheckBox * CheckBox); void __fastcall InstallPathWordBreakProc(TWinControl * Control); void __fastcall SetVerticalControlsOrder(TControl ** ControlsOrder, int Count); void __fastcall SetHorizontalControlsOrder(TControl ** ControlsOrder, int Count); void __fastcall MakeNextInTabOrder(TWinControl * Control, TWinControl * After); void __fastcall CutFormToDesktop(TForm * Form); void __fastcall UpdateFormPosition(TCustomForm * Form, TPosition Position); void __fastcall ResizeForm(TCustomForm * Form, int Width, int Height); TComponent * __fastcall GetFormOwner(); TForm * __fastcall GetMainForm(); void __fastcall SetCorrectFormParent(TForm * Form); void __fastcall InvokeHelp(TWinControl * Control); void __fastcall FixFormIcons(TForm * Form); Forms::TMonitor * __fastcall FormMonitor(TCustomForm * Form); int __fastcall GetLastMonitor(); void __fastcall SetLastMonitor(int MonitorNum); TForm * __fastcall _SafeFormCreate(TMetaClass * FormClass, TComponent * Owner); template FormType * __fastcall SafeFormCreate(TComponent * Owner = NULL) { return dynamic_cast(_SafeFormCreate(__classid(FormType), Owner)); } TModalResult __fastcall DefaultResult(TCustomForm * Form, TButton * DefaultButton = NULL); void __fastcall DefaultButton(TButton * Button, bool Default); void __fastcall MemoKeyDown(TObject * Sender, WORD & Key, TShiftState Shift); void __fastcall UseDesktopFont(TControl * Control); void __fastcall UpdateDesktopFont(); UnicodeString __fastcall FormatFormCaption( TCustomForm * Form, const UnicodeString & Caption, const UnicodeString & SessionName = UnicodeString()); UnicodeString __fastcall FormatMainFormCaption( const UnicodeString & Caption, const UnicodeString & SessionName = UnicodeString()); TShiftState __fastcall AllKeyShiftStates(); void __fastcall RealignControl(TControl * Control); void __fastcall HookFormActivation(TCustomForm * Form); void __fastcall UnhookFormActivation(TCustomForm * Form); void __fastcall ShowFormNoActivate(TForm * Form); TPanel * __fastcall CreateBlankPanel(TComponent * Owner); typedef void __fastcall (*TRescaleEvent)(TComponent * Sender, TObject * Token); void __fastcall SetRescaleFunction( TComponent * Component, TRescaleEvent OnRescale, TObject * Token = NULL, bool OwnsToken = false); TWindowState GetWindowStateBeforeMimimize(TForm * Form); void __fastcall CountClicksForWindowPrint(TForm * Form); bool IsButtonBeingClicked(TButtonControl * Button); bool IsCancelButtonBeingClicked(TControl * Control); TCanvas * CreateControlCanvas(TControl * Control); void AutoSizeButton(TButton * Button); namespace Tb2item { class TTBCustomItem; } void GiveTBItemPriority(Tb2item::TTBCustomItem * Item); void DeleteChildren(TWinControl * Control); void AutoSizeLabel(TLabel * Label); void AutoSizeLabel(TStaticText * Label); //--------------------------------------------------------------------------- #endif // VCLCommonH