paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: make TScreen.UpdateMonitors public as suggested in (issue #0022499)

Browse Source 
git-svn-id: trunk@41676 -
This commit is contained in:
paul 2013-06-11 06:57:18 +00:00
parent ac294c5104
commit 35fbbe9c73
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -992,7 +992,6 @@ type
procedure SetMenuFont(const AValue: TFont);
procedure SetSystemFont(const AValue: TFont);
procedure UpdateLastActive;
procedure UpdateMonitors;
procedure RestoreLastActive;
procedure AddHandler(HandlerType: TScreenNotification;
const Handler: TMethod; AsFirst: Boolean);
@ -1027,6 +1026,7 @@ type
function FindForm(const FormName: string): TCustomForm;
function FindNonDesignerDataModule(const DataModuleName: string): TDataModule;
function FindDataModule(const DataModuleName: string): TDataModule;
procedure UpdateMonitors;
procedure UpdateScreen;
// handler
procedure RemoveAllHandlersOfObject(AnObject: TObject); override;