From 82d2e451d88714becb3cca2d4db8b66ad41cea19 Mon Sep 17 00:00:00 2001 From: lazarus Date: Sat, 9 Feb 2002 01:47:28 +0000 Subject: [PATCH] MG: added include comments git-svn-id: trunk@948 - --- lcl/controls.pp | 6 +++++- lcl/include/checkbox.inc | 7 +++++++ lcl/include/customgroupbox.inc | 7 +++++++ lcl/include/customlabel.inc | 7 +++++++ lcl/include/edit.inc | 6 ++++++ lcl/include/memo.inc | 5 ++++- lcl/include/memostrings.inc | 7 +++++++ lcl/include/radiobutton.inc | 7 +++++++ lcl/include/scrollbar.inc | 5 +++++ lcl/include/togglebox.inc | 4 ++++ 10 files changed, 59 insertions(+), 2 deletions(-) diff --git a/lcl/controls.pp b/lcl/controls.pp index 1700520143..8723600a1d 100644 --- a/lcl/controls.pp +++ b/lcl/controls.pp @@ -750,7 +750,8 @@ type function DoKeyDown(var Message: TLMKey): Boolean; function DoKeyPress(var Message: TLMKey): Boolean; function DoKeyUp(var Message: TLMKey): Boolean; - function GetClientORigin: TPoint; override; + function GetClientOrigin: TPoint; override; + function GetClientRect: TRect; override; function GetDeviceContext(var WindowHandle: HWnd): HDC; override; Function IsControlMouseMsg(var Message : TLMMOuse): Boolean; property BorderWidth : TBorderWidth read FBorderWidth write SetBorderWidth default 0; @@ -1219,6 +1220,9 @@ end. { ============================================================================= $Log$ + Revision 1.39 2002/04/18 08:09:03 lazarus + MG: added include comments + Revision 1.38 2002/04/04 12:25:01 lazarus MG: changed except statements to more verbosity diff --git a/lcl/include/checkbox.inc b/lcl/include/checkbox.inc index d13d45b9e1..4f4a2016cb 100644 --- a/lcl/include/checkbox.inc +++ b/lcl/include/checkbox.inc @@ -1,3 +1,5 @@ +// included by stdctrls.pp + {------------------------------------------------------------------------------} constructor TCheckbox.Create(AOwner : TComponent); @@ -9,8 +11,13 @@ begin end; end; +// included by stdctrls.pp + { $Log$ + Revision 1.2 2002/04/18 08:09:03 lazarus + MG: added include comments + Revision 1.1 2000/07/13 10:28:24 michael + Initial import diff --git a/lcl/include/customgroupbox.inc b/lcl/include/customgroupbox.inc index 779eed225f..fcc74acd65 100644 --- a/lcl/include/customgroupbox.inc +++ b/lcl/include/customgroupbox.inc @@ -1,3 +1,5 @@ +// included by stdctrls.pp + {------------------------------------------------------------------------------} { function TCustomGroupBox.Create } {------------------------------------------------------------------------------} @@ -8,8 +10,13 @@ begin ControlStyle := ControlStyle + [csAcceptsControls]; end; +// included by stdctrls.pp + { $Log$ + Revision 1.2 2002/04/18 08:09:03 lazarus + MG: added include comments + Revision 1.1 2000/07/13 10:28:25 michael + Initial import diff --git a/lcl/include/customlabel.inc b/lcl/include/customlabel.inc index 8044a8be22..0129ad5b9e 100644 --- a/lcl/include/customlabel.inc +++ b/lcl/include/customlabel.inc @@ -1,3 +1,5 @@ +// included by stdctrls.pp + {****************************************************************************** TCustomLabel ******************************************************************************} @@ -81,9 +83,14 @@ begin SetBounds(0, 0, 65, 17); end; +// included by stdctrls.pp + { ============================================================================= $Log$ + Revision 1.2 2002/04/18 08:09:03 lazarus + MG: added include comments + Revision 1.1 2000/07/13 10:28:25 michael + Initial import diff --git a/lcl/include/edit.inc b/lcl/include/edit.inc index e5383e66cb..f0e2f98775 100644 --- a/lcl/include/edit.inc +++ b/lcl/include/edit.inc @@ -1,12 +1,18 @@ +// included by stdctrls.pp + (****************************************************************************** TEdit base found in stdctrls.pp ******************************************************************************) +// included by stdctrls.pp { ============================================================================= $Log$ + Revision 1.2 2002/04/18 08:09:03 lazarus + MG: added include comments + Revision 1.1 2000/07/13 10:28:25 michael + Initial import diff --git a/lcl/include/memo.inc b/lcl/include/memo.inc index b0bdfbb25f..55b4978bca 100644 --- a/lcl/include/memo.inc +++ b/lcl/include/memo.inc @@ -1,5 +1,8 @@ +// included by stdctrls.pp + (****************************************************************************** Memo.inc ******************************************************************************) -// file cleanup to by HJO +// included by stdctrls.pp + diff --git a/lcl/include/memostrings.inc b/lcl/include/memostrings.inc index 3436822e36..17b77adb0b 100644 --- a/lcl/include/memostrings.inc +++ b/lcl/include/memostrings.inc @@ -1,3 +1,5 @@ +// included by stdctrls.pp + (****************************************************************************** TMemoStrings ******************************************************************************) @@ -111,9 +113,14 @@ begin end; end; +// included by stdctrls.pp + { ============================================================================= $Log$ + Revision 1.3 2002/04/18 08:09:03 lazarus + MG: added include comments + Revision 1.2 2001/06/14 14:57:58 lazarus MG: small bugfixes and less notes diff --git a/lcl/include/radiobutton.inc b/lcl/include/radiobutton.inc index 256920f81a..b85766c3d0 100644 --- a/lcl/include/radiobutton.inc +++ b/lcl/include/radiobutton.inc @@ -1,3 +1,5 @@ +// included by stdctrls.pp + {****************************************************************************** TRadioButton ******************************************************************************} @@ -103,6 +105,8 @@ begin GetGroup := FGroup; end; +// included by stdctrls.pp + (* procedure TRadioButton.ReCreate; //var @@ -136,6 +140,9 @@ end; { $Log$ + Revision 1.2 2002/04/18 08:09:03 lazarus + MG: added include comments + Revision 1.1 2000/07/13 10:28:27 michael + Initial import diff --git a/lcl/include/scrollbar.inc b/lcl/include/scrollbar.inc index 572d8b4c7c..0ec1653746 100644 --- a/lcl/include/scrollbar.inc +++ b/lcl/include/scrollbar.inc @@ -1,3 +1,5 @@ +// included by stdctrls.pp + {------------------------------------------------------------------------------} { function TScrollBar.Create } {------------------------------------------------------------------------------} @@ -193,3 +195,6 @@ procedure TScrollBar.WMEraseBkgnd(var Message: TLMEraseBkgnd); begin DefaultHandler(Message); end; + +// included by stdctrls.pp + diff --git a/lcl/include/togglebox.inc b/lcl/include/togglebox.inc index 348f23d8dd..ff8b7c0830 100644 --- a/lcl/include/togglebox.inc +++ b/lcl/include/togglebox.inc @@ -1,3 +1,5 @@ +// included by stdctrls.pp + {------------------------------------------------------------------------------} constructor TToggleBox.Create(AOwner : TComponent); @@ -11,3 +13,5 @@ end; {------------------------------------------------------------------------------} +// included by stdctrls.pp +