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

lcl: fixed typos

Browse Source 
git-svn-id: trunk@55479 -
This commit is contained in:
mattias 2017-07-10 12:20:03 +00:00
parent 321d7c4b34
commit bd57210a2f
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -554,7 +554,7 @@ var
type type
{ TDockManager is an abstract class for managing a dock site's docked { TDockManager is an abstract class for managing a dock site's docked
controls. See TDockTree below for the more info. controls. See TDockTree below for more info.
} }
TDockManager = class(TPersistent) TDockManager = class(TPersistent)
public public

2
lcl/include/customform.inc
View File

@ -2154,7 +2154,7 @@ begin
begin begin
if CloseQuery then if CloseQuery then
begin begin
// IsMainForm flag set if we are closeing MainForm or its parent // IsMainForm flag set if we are closing MainForm or its parent
IsMainForm := (Application.MainForm = Self) or (Self.IsParentOf(Application.MainForm)); IsMainForm := (Application.MainForm = Self) or (Self.IsParentOf(Application.MainForm));
// Prepare default close action // Prepare default close action
if FormStyle = fsMDIChild then if FormStyle = fsMDIChild then