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

MG: added include comments

Browse Source 
git-svn-id: trunk@948 -
This commit is contained in:
lazarus 2002-02-09 01:47:28 +00:00
parent d6c0fa05f3
commit 82d2e451d8
10 changed files with 59 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/controls.pp
View File

@ -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

7
lcl/include/checkbox.inc
View File

@ -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

7
lcl/include/customgroupbox.inc
View File

@ -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

7
lcl/include/customlabel.inc
View File

@ -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

6
lcl/include/edit.inc
View File

@ -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

5
lcl/include/memo.inc
View File

@ -1,5 +1,8 @@
// included by stdctrls.pp
(******************************************************************************
Memo.inc
******************************************************************************)
// file cleanup to by HJO
// included by stdctrls.pp

7
lcl/include/memostrings.inc
View File

@ -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

7
lcl/include/radiobutton.inc
View File

@ -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

5
lcl/include/scrollbar.inc
View File

@ -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

4
lcl/include/togglebox.inc
View File

@ -1,3 +1,5 @@
// included by stdctrls.pp
{------------------------------------------------------------------------------}
constructor TToggleBox.Create(AOwner : TComponent);
@ -11,3 +13,5 @@ end;
{------------------------------------------------------------------------------}
// included by stdctrls.pp