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

lcl: decapitalize Procedure and End keywords in the controls.inc file

Browse Source 
git-svn-id: trunk@21882 -
This commit is contained in:
paul 2009-09-26 14:06:02 +00:00
parent f914d86b95
commit 6291a3af5a
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/include/control.inc
View File

@ -1004,8 +1004,8 @@ end;
{------------------------------------------------------------------------------
TControl.DoEndDrag
------------------------------------------------------------------------------}
Procedure TControl.DoEndDrag(Target: TObject; X,Y: Integer);
Begin
procedure TControl.DoEndDrag(Target: TObject; X,Y: Integer);
begin
{$IFDEF VerboseDrag}
DebugLn('TControl.DoEndDrag ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
{$ENDIF}
@ -1039,7 +1039,7 @@ function TControl.GetClientOrigin: TPoint;
+Name+':'+ClassName);
end;
Begin
begin
//Assert(False, Format('Trace:[TControl.GetClientOrigin] %s', [Classname]));
if Parent = nil then
RaiseParentNil;
@ -1139,7 +1139,7 @@ var
AWinTarget: TWinControl;
Accepts: Boolean;
P: TPoint;
Begin
begin
Result := 0;
{$IFDEF VerboseDrag}
DebugLn('TControl.DoDragMsg ',Name,':',ClassName,' DragMsg.DragMessage=',IntToStr(ord(ADragMessage)));
@ -1181,7 +1181,7 @@ end;
{------------------------------------------------------------------------------
TControl.DragOver
------------------------------------------------------------------------------}
Procedure TControl.DragOver(Source: TObject; X,Y : Integer; State: TDragState;
procedure TControl.DragOver(Source: TObject; X,Y : Integer; State: TDragState;
var Accept:Boolean);
begin
{$IFDEF VerboseDrag}
@ -1197,7 +1197,7 @@ end;
{------------------------------------------------------------------------------
TControl.DragDrop
------------------------------------------------------------------------------}
Procedure TControl.DragDrop(Source: TObject; X,Y : Integer);
procedure TControl.DragDrop(Source: TObject; X,Y : Integer);
begin
{$IFDEF VerboseDrag}
DebugLn('TControl.DragDrop ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
@ -2331,7 +2331,7 @@ end;
TControl SetAutoSize
------------------------------------------------------------------------------}
procedure TControl.SetAutoSize(value : Boolean);
Begin
begin
If AutoSize <> Value then begin
FAutoSize := Value;
//debugln('TControl.SetAutoSize ',DbgSName(Self));
@ -2512,7 +2512,7 @@ end;
TControl SetBoundsRect
------------------------------------------------------------------------------}
procedure TControl.SetBoundsRect(const ARect : TRect);
Begin
begin
{$IFDEF CHECK_POSITION}
if CheckPosition(Self) then
DebugLn('[TControl.SetBoundsRect] ',Name,':',ClassName);
@ -2791,7 +2791,7 @@ end;
TControl IsCaptionStored
------------------------------------------------------------------------------}
function TControl.IsCaptionStored: Boolean;
Begin
begin
Result := (ActionLink = nil) or not ActionLink.IsCaptionLinked;
end;
@ -3530,7 +3530,7 @@ end;
TControl SetParentShowHint
------------------------------------------------------------------------------}
procedure TControl.SetParentShowHint(Value : Boolean);
Begin
begin
if FParentShowHint <> Value then
begin
FParentShowHint := Value;