From 684aa545035b5f13198ce6836a0b324459469558 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 26 Sep 2012 22:18:29 +0100 Subject: fixes spelling mistake in code comment. --- src/corelib/fpg_base.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 3c9e69d9..32e9eaaa 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -74,7 +74,7 @@ type // If you have to convert this to an Integer, mrNone = 0 etc. TfpgModalResult = (mrNone, mrOK, mrCancel, mrYes, mrNo, mrAbort, mrRetry, - mrIgnore, mrAll, mrNoToAll, mrYesToAll); + mrIgnore, mrAll, mrNoToAll, mrYesToAll, mrHelp); TfpgDropAction = (daIgnore, daCopy, daMove, daLink, daAsk); TfpgDropActions = set of TfpgDropAction; @@ -1381,7 +1381,7 @@ end; procedure TfpgWindowBase.AfterConstruction; begin inherited AfterConstruction; - { Here is a neater way by using RTTI to set default property values all + { There is a neater way by using RTTI to set default property values all automatically. No need to duplicate the efforts and manually set the property default values in the constructor. This code is now the same for each TfpgWindowBase descendant (which includes GUI widgets) } -- cgit v1.2.3-70-g09d2