paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 20:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TCustomForm.GetMonitor consider poDefaultPosOnly

Browse Source
This commit is contained in:
mattias 2022-05-16 12:14:10 +02:00
parent cf9253d7a7
commit db88c83b22
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/include/customform.inc
View File

@ -2406,7 +2406,7 @@ begin
begin begin
// first time showing, check Position and DefaultMonitor // first time showing, check Position and DefaultMonitor
case Position of case Position of
poDefault: poDefault, poDefaultPosOnly:
Result := Screen.MonitorFromWindow(Handle, mdNull); Result := Screen.MonitorFromWindow(Handle, mdNull);
poDesigned, poDefaultSizeOnly: poDesigned, poDefaultSizeOnly:
Result := Screen.MonitorFromPoint(point(Left,Top)); Result := Screen.MonitorFromPoint(point(Left,Top));