paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 12:20:25 +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 TControl.DoEndDrag
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Procedure TControl.DoEndDrag(Target: TObject; X,Y: Integer); procedure TControl.DoEndDrag(Target: TObject; X,Y: Integer);
Begin begin
{$IFDEF VerboseDrag} {$IFDEF VerboseDrag}
DebugLn('TControl.DoEndDrag ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y)); DebugLn('TControl.DoEndDrag ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
{$ENDIF} {$ENDIF}
@ -1039,7 +1039,7 @@ function TControl.GetClientOrigin: TPoint;
+Name+':'+ClassName); +Name+':'+ClassName);
end; end;
Begin begin
//Assert(False, Format('Trace:[TControl.GetClientOrigin] %s', [Classname])); //Assert(False, Format('Trace:[TControl.GetClientOrigin] %s', [Classname]));
if Parent = nil then if Parent = nil then
RaiseParentNil; RaiseParentNil;
@ -1139,7 +1139,7 @@ var
AWinTarget: TWinControl; AWinTarget: TWinControl;
Accepts: Boolean; Accepts: Boolean;
P: TPoint; P: TPoint;
Begin begin
Result := 0; Result := 0;
{$IFDEF VerboseDrag} {$IFDEF VerboseDrag}
DebugLn('TControl.DoDragMsg ',Name,':',ClassName,' DragMsg.DragMessage=',IntToStr(ord(ADragMessage))); DebugLn('TControl.DoDragMsg ',Name,':',ClassName,' DragMsg.DragMessage=',IntToStr(ord(ADragMessage)));
@ -1181,7 +1181,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TControl.DragOver 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); var Accept:Boolean);
begin begin
{$IFDEF VerboseDrag} {$IFDEF VerboseDrag}
@ -1197,7 +1197,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TControl.DragDrop TControl.DragDrop
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Procedure TControl.DragDrop(Source: TObject; X,Y : Integer); procedure TControl.DragDrop(Source: TObject; X,Y : Integer);
begin begin
{$IFDEF VerboseDrag} {$IFDEF VerboseDrag}
DebugLn('TControl.DragDrop ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y)); DebugLn('TControl.DragDrop ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
@ -2331,7 +2331,7 @@ end;
TControl SetAutoSize TControl SetAutoSize
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.SetAutoSize(value : Boolean); procedure TControl.SetAutoSize(value : Boolean);
Begin begin
If AutoSize <> Value then begin If AutoSize <> Value then begin
FAutoSize := Value; FAutoSize := Value;
//debugln('TControl.SetAutoSize ',DbgSName(Self)); //debugln('TControl.SetAutoSize ',DbgSName(Self));
@ -2512,7 +2512,7 @@ end;
TControl SetBoundsRect TControl SetBoundsRect
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.SetBoundsRect(const ARect : TRect); procedure TControl.SetBoundsRect(const ARect : TRect);
Begin begin
{$IFDEF CHECK_POSITION} {$IFDEF CHECK_POSITION}
if CheckPosition(Self) then if CheckPosition(Self) then
DebugLn('[TControl.SetBoundsRect] ',Name,':',ClassName); DebugLn('[TControl.SetBoundsRect] ',Name,':',ClassName);
@ -2791,7 +2791,7 @@ end;
TControl IsCaptionStored TControl IsCaptionStored
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TControl.IsCaptionStored: Boolean; function TControl.IsCaptionStored: Boolean;
Begin begin
Result := (ActionLink = nil) or not ActionLink.IsCaptionLinked; Result := (ActionLink = nil) or not ActionLink.IsCaptionLinked;
end; end;
@ -3530,7 +3530,7 @@ end;
TControl SetParentShowHint TControl SetParentShowHint
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.SetParentShowHint(Value : Boolean); procedure TControl.SetParentShowHint(Value : Boolean);
Begin begin
if FParentShowHint <> Value then if FParentShowHint <> Value then
begin begin
FParentShowHint := Value; FParentShowHint := Value;