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.RemoveHandlerRemoveForm(OnRemoveForm: TScreenFormEvent);
303 procedure TScreen.AddHandlerActiveControlChanged(
309 procedure TScreen.RemoveHandlerActiveControlChanged(
315 procedure TScreen.AddHandlerActiveFormChanged(
321 procedure TScreen.RemoveHandlerActiveFormChanged(
327 procedure TScreen.AddHandlerFormVisibleChanged(
333 procedure TScreen.RemoveHandlerFormVisibleChanged(
344 function TScreen.DisableForms(SkipForm: TCustomForm; DisabledList: TList = nil): TList;
379 procedure TScreen.EnableForms(var AFormList: TList);
412 function TScreen.UpdatedMonitor(AHandle: HMONITOR; ADefault: TMonitorDefaultTo;
428 function TScreen.MonitorFromPoint(const Point: TPoint;
446     Result := UpdatedMonitor(MonitorHandle, MonitorDefault, 'TScreen.MonitorFromPoint');
449 function TScreen.MonitorFromRect(const Rect: TRect;
497     Result := UpdatedMonitor(MonitorHandle, MonitorDefault, 'TScreen.MonitorFromRect');
500 function TScreen.MonitorFromWindow(const Handle: THandle;
517     Result := UpdatedMonitor(MonitorHandle, MonitorDefault, 'TScreen.MonitorFromWindow');
537   function TScreen.GetFonts : TStrings;
539 function TScreen.GetFonts : TStrings;
550   procedure TScreen.DeleteCursor(Index: Integer);
552 procedure TScreen.DeleteCursor(AIndex: Integer);
562   procedure TScreen.DestroyCursors;
564 procedure TScreen.DestroyCursors;
581 procedure TScreen.DestroyMonitors;
587   function TScreen.GetCursors(Index: Integer): HCURSOR;
589 function TScreen.GetCursors(AIndex: Integer): HCURSOR;
620   function TScreen.GetCustomFormCount: Integer;
622 function TScreen.GetCustomFormCount: Integer;
627 function TScreen.GetCustomFormZOrderCount: Integer;
633   function TScreen.GetCustomForms(Index: Integer): TCustomForm;
635 function TScreen.GetCustomForms(Index: Integer): TCustomForm;
641   function TScreen.GetCustomFormsZOrdered(Index: Integer): TCustomForm;
643 function TScreen.GetCustomFormsZOrdered(Index: Integer): TCustomForm;
648 function TScreen.GetDataModuleCount: Integer;
653 function TScreen.GetDataModules(AIndex: Integer): TDataModule;
658 function TScreen.GetDesktopHeight: Integer;
663 function TScreen.GetDesktopWidth: Integer;
668 function TScreen.GetDesktopLeft: Integer;
673 function TScreen.GetDesktopRect: TRect;
684 function TScreen.GetDesktopTop: Integer;
689 function TScreen.GetWorkAreaLeft: Integer;
694 function TScreen.GetWorkAreaRect: TRect;
699 function TScreen.GetWorkAreaTop: Integer;
704 function TScreen.GetWorkAreaHeight: Integer;
709 function TScreen.GetWorkAreaWidth: Integer;
717   Function: TScreen.AddForm
721   Do not use this procedure. This procedure is used by TScreen internally.
723 procedure TScreen.AddForm(AForm: TCustomForm);
736   Function: TScreen.GetFormCount
742 function TScreen.GetFormCount: Integer;
748   Function: TScreen.GetForms
754 function TScreen.GetForms(IIndex: Integer): TForm;
760   Method:  TScreen.GetWidth
766 function TScreen.GetWidth : Integer;
772   Method:  TScreen.GetHeight
778 function TScreen.GetHeight : Integer;
783 function TScreen.GetMonitor(Index: Integer): TMonitor;
790 function TScreen.GetMonitorCount: Integer;
797 function TScreen.GetPrimaryMonitor: TMonitor;
807 function TScreen.GetSystemFont: TFont;
819 function TScreen.GetHintFont: TFont;
833 function TScreen.GetIconFont: TFont;
845 function TScreen.GetMenuFont: TFont;
859   Function: TScreen.RemoveForm
864 procedure TScreen.RemoveForm(AForm: TCustomForm);
877 function TScreen.SetFocusedForm(AForm: TCustomForm): Boolean;
906   procedure TScreen.SetCursor(const AValue: TCursor);
908 procedure TScreen.SetCursor(const AValue: TCursor);
918   procedure TScreen.SetCursors(Index: Integer; const AValue: HCURSOR);
920 procedure TScreen.SetCursors(AIndex: Integer; const AValue: HCURSOR);
938 procedure TScreen.SetHintFont(const AValue: TFont);
945 procedure TScreen.SetIconFont(const AValue: TFont);
952 procedure TScreen.SetMenuFont(const AValue: TFont);
959 procedure TScreen.SetSystemFont(const AValue: TFont);
967   procedure TScreen.UpdateLastActive;
969 procedure TScreen.UpdateLastActive;
1004 procedure TScreen.UpdateMonitors;
1010 procedure TScreen.RestoreLastActive;
1038   procedure TScreen.AddHandler(HandlerType: TScreenNotification;
1041 procedure TScreen.AddHandler(HandlerType: TScreenNotification;
1045     RaiseGDBException('TScreen.AddHandler');
1051 procedure TScreen.RemoveHandler(HandlerType: TScreenNotification; const Handler: TMethod);
1056 procedure TScreen.DoAddDataModule(DataModule: TDataModule);
1061 procedure TScreen.DoRemoveDataModule(DataModule: TDataModule);
1066 procedure TScreen.NotifyScreenFormHandler(HandlerType: TScreenNotification;