lcl/include/screen.inc

4                                   TScreen
27   Screen: TScreen absolute dwData;
55   Method: TScreen.Create
61 constructor TScreen.Create(AOwner : TComponent);
81   Method: TScreen.Destroy
87 destructor TScreen.Destroy;
112   function TScreen.CustomFormIndex(AForm: TCustomForm): integer;
114 function TScreen.CustomFormIndex(AForm: TCustomForm): integer;
122   function TScreen.FormIndex(AForm: TForm): integer;
124 function TScreen.FormIndex(AForm: TForm): integer;
132   function TScreen.CustomFormZIndex(AForm: TCustomForm): integer;
134 function TScreen.CustomFormZIndex(AForm: TCustomForm): integer;
140 procedure TScreen.MoveFormToFocusFront(ACustomForm: TCustomForm);
146     RaiseGDBException('TScreen.MoveFormToFocusFront');
163 procedure TScreen.MoveFormToZFront(ACustomForm: TCustomForm);
169     RaiseGDBException('TScreen.MoveFormToZFront');
179 function TScreen.GetCurrentModalForm: TCustomForm;
190 function TScreen.GetCurrentModalFormZIndex: Integer;
198 function TScreen.CustomFormBelongsToActiveGroup(AForm: TCustomForm): Boolean;
215 function TScreen.FindNonDesignerForm(const FormName: string): TCustomForm;
229 function TScreen.FindForm(const FormName: string): TCustomForm;
239 function TScreen.FindNonDesignerDataModule(const DataModuleName: string
254 function TScreen.FindDataModule(const DataModuleName: string): TDataModule;
267 procedure TScreen.UpdateScreen;
272 procedure TScreen.RemoveAllHandlersOfObject(AnObject: TObject);
281 procedure TScreen.AddHandlerFormAdded(OnFormAdded: TScreenFormEvent;
287 procedure TScreen.RemoveHandlerFormAdded(OnFormAdded: TScreenFormEvent);
292 procedure TScreen.AddHandlerRemoveForm(OnRemoveForm: TScreenFormEvent;
298 procedure TScreen.BeginTempCursor(const aCursor: TCursor);
309 procedure TScreen.BeginWaitCursor;
314 procedure TScreen.RemoveHandlerRemoveForm(OnRemoveForm: TScreenFormEvent);
319 procedure TScreen.AddHandlerActiveControlChanged(
325 procedure TScreen.RemoveHandlerActiveControlChanged(
331 procedure TScreen.AddHandlerActiveFormChanged(
337 procedure TScreen.RemoveHandlerActiveFormChanged(
343 procedure TScreen.AddHandlerFormVisibleChanged(
349 procedure TScreen.RemoveHandlerFormVisibleChanged(
360 function TScreen.DisableForms(SkipForm: TCustomForm; DisabledList: TList = nil): TList;
395 procedure TScreen.EnableForms(var AFormList: TList);
428 procedure TScreen.EndTempCursor(const aCursor: TCursor);
455 procedure TScreen.EndWaitCursor;
460 function TScreen.UpdatedMonitor(AHandle: HMONITOR; ADefault: TMonitorDefaultTo;
476 function TScreen.MonitorFromPoint(const Point: TPoint;
494     Result := UpdatedMonitor(MonitorHandle, MonitorDefault, 'TScreen.MonitorFromPoint');
497 function TScreen.MonitorFromRect(const Rect: TRect;
548     Result := UpdatedMonitor(MonitorHandle, MonitorDefault, 'TScreen.MonitorFromRect');
551 function TScreen.MonitorFromWindow(const Handle: THandle;
568     Result := UpdatedMonitor(MonitorHandle, MonitorDefault, 'TScreen.MonitorFromWindow');
588   function TScreen.GetFonts : TStrings;
590 function TScreen.GetFonts : TStrings;
601   procedure TScreen.DeleteCursor(Index: Integer);
603 procedure TScreen.DeleteCursor(AIndex: Integer);
613   procedure TScreen.DestroyCursors;
615 procedure TScreen.DestroyCursors;
632 procedure TScreen.DestroyMonitors;
638   function TScreen.GetCursors(Index: Integer): HCURSOR;
640 function TScreen.GetCursors(AIndex: Integer): HCURSOR;
671   function TScreen.GetCustomFormCount: Integer;
673 function TScreen.GetCustomFormCount: Integer;
678 function TScreen.GetCustomFormZOrderCount: Integer;
684   function TScreen.GetCustomForms(Index: Integer): TCustomForm;
686 function TScreen.GetCustomForms(Index: Integer): TCustomForm;
692   function TScreen.GetCustomFormsZOrdered(Index: Integer): TCustomForm;
694 function TScreen.GetCustomFormsZOrdered(Index: Integer): TCustomForm;
699 function TScreen.GetDataModuleCount: Integer;
704 function TScreen.GetDataModules(AIndex: Integer): TDataModule;
709 function TScreen.GetDesktopHeight: Integer;
714 function TScreen.GetDesktopWidth: Integer;
719 function TScreen.GetDesktopLeft: Integer;
724 function TScreen.GetDesktopRect: TRect;
735 function TScreen.GetDesktopTop: Integer;
740 function TScreen.GetWorkAreaLeft: Integer;
745 function TScreen.GetWorkAreaRect: TRect;
750 function TScreen.GetWorkAreaTop: Integer;
755 function TScreen.GetWorkAreaHeight: Integer;
760 function TScreen.GetWorkAreaWidth: Integer;
768   Function: TScreen.AddForm
772   Do not use this procedure. This procedure is used by TScreen internally.
774 procedure TScreen.AddForm(AForm: TCustomForm);
787   Function: TScreen.GetFormCount
793 function TScreen.GetFormCount: Integer;
799   Function: TScreen.GetForms
805 function TScreen.GetForms(IIndex: Integer): TForm;
811   Method:  TScreen.GetWidth
817 function TScreen.GetWidth : Integer;
823   Method:  TScreen.GetHeight
829 function TScreen.GetHeight : Integer;
834 function TScreen.GetMonitor(Index: Integer): TMonitor;
841 function TScreen.GetMonitorCount: Integer;
848 function TScreen.GetPrimaryMonitor: TMonitor;
858 function TScreen.GetRealCursor: TCursor;
866 function TScreen.GetSystemFont: TFont;
878 function TScreen.GetHintFont: TFont;
892 function TScreen.GetIconFont: TFont;
904 function TScreen.GetMenuFont: TFont;
918   Function: TScreen.RemoveForm
923 procedure TScreen.RemoveForm(AForm: TCustomForm);
936 function TScreen.SetFocusedForm(AForm: TCustomForm): Boolean;
965   procedure TScreen.SetCursor(const AValue: TCursor);
967 procedure TScreen.SetCursor(const AValue: TCursor);
981   procedure TScreen.SetCursors(Index: Integer; const AValue: HCURSOR);
983 procedure TScreen.SetCursors(AIndex: Integer; const AValue: HCURSOR);
1001 procedure TScreen.SetHintFont(const AValue: TFont);
1008 procedure TScreen.SetIconFont(const AValue: TFont);
1015 procedure TScreen.SetMenuFont(const AValue: TFont);
1022 procedure TScreen.SetSystemFont(const AValue: TFont);
1030   procedure TScreen.UpdateLastActive;
1032 procedure TScreen.UpdateLastActive;
1067 procedure TScreen.UpdateMonitors;
1073 procedure TScreen.RestoreLastActive;
1101   procedure TScreen.AddHandler(HandlerType: TScreenNotification;
1104 procedure TScreen.AddHandler(HandlerType: TScreenNotification;
1108     RaiseGDBException('TScreen.AddHandler');
1114 procedure TScreen.RemoveHandler(HandlerType: TScreenNotification; const Handler: TMethod);
1119 procedure TScreen.DoAddDataModule(DataModule: TDataModule);
1124 procedure TScreen.DoRemoveDataModule(DataModule: TDataModule);
1129 procedure TScreen.NotifyScreenFormHandler(HandlerType: TScreenNotification;