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

LCL: formatting

Browse Source 
git-svn-id: trunk@41865 -
This commit is contained in:
mattias 2013-06-24 12:07:15 +00:00
parent 7d34128f78
commit c9f04de233
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lcl/include/control.inc
View File

@ -883,7 +883,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
function TControl.IsHelpContextStored: boolean; function TControl.IsHelpContextStored: boolean;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TControl.IsHelpContextStored: boolean; function TControl.IsHelpContextStored: Boolean;
begin begin
Result := (ActionLink = nil) or not ActionLink.IsHelpLinked; Result := (ActionLink = nil) or not ActionLink.IsHelpLinked;
end; end;
@ -1003,7 +1003,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TControl.LMCaptureChanged TControl.LMCaptureChanged
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.LMCaptureChanged(Var Message: TLMessage); procedure TControl.LMCaptureChanged(var Message: TLMessage);
begin begin
//DebugLn('[LMCaptureChanged for '+Name+':'+Classname+']'); //DebugLn('[LMCaptureChanged for '+Name+':'+Classname+']');
CaptureChanged; CaptureChanged;
@ -1020,7 +1020,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TControl.CMHITTEST TControl.CMHITTEST
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.CMHITTEST(var Message : TCMHitTest); procedure TControl.CMHitTest(var Message: TCMHittest);
begin begin
Message.Result := 1; Message.Result := 1;
end; end;
@ -1637,7 +1637,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TControl Method SetColor "Sets the default color and tells the widget set" TControl Method SetColor "Sets the default color and tells the widget set"
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.SetColor(value : TColor); procedure TControl.SetColor(Value: TColor);
begin begin
if FColor <> Value then if FColor <> Value then
begin begin
@ -2335,7 +2335,7 @@ end;
Mouse event handler Mouse event handler
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMLButtonDblClk(var Message: TLMLButtonDblClk); procedure TControl.WMLButtonDBLCLK(var Message: TLMLButtonDblClk);
begin begin
//TODO: SendCancelMode(self); //TODO: SendCancelMode(self);
if (csCaptureMouse in ControlStyle) and (mbLeft in CaptureMouseButtons) then if (csCaptureMouse in ControlStyle) and (mbLeft in CaptureMouseButtons) then
@ -2358,7 +2358,7 @@ end;
Mouse event handler Mouse event handler
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMRButtonDblClk(var Message: TLMRButtonDblClk); procedure TControl.WMRButtonDBLCLK(var Message: TLMRButtonDblClk);
begin begin
if (csCaptureMouse in ControlStyle) and (mbRight in CaptureMouseButtons) then if (csCaptureMouse in ControlStyle) and (mbRight in CaptureMouseButtons) then
begin begin
@ -2377,7 +2377,7 @@ end;
Mouse event handler Mouse event handler
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMMButtonDblClk(var Message: TLMMButtonDblClk); procedure TControl.WMMButtonDBLCLK(var Message: TLMMButtonDblClk);
begin begin
if (csCaptureMouse in ControlStyle) and (mbMiddle in CaptureMouseButtons) then if (csCaptureMouse in ControlStyle) and (mbMiddle in CaptureMouseButtons) then
begin begin
@ -2416,7 +2416,7 @@ end;
Mouse event handler Mouse event handler
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMLButtonTripleClk(var Message: TLMLButtonTripleClk); procedure TControl.WMLButtonTripleCLK(var Message: TLMLButtonTripleClk);
begin begin
//TODO: SendCancelMode(self); //TODO: SendCancelMode(self);
if (csCaptureMouse in ControlStyle) and (mbLeft in CaptureMouseButtons) then if (csCaptureMouse in ControlStyle) and (mbLeft in CaptureMouseButtons) then
@ -2437,7 +2437,7 @@ end;
Mouse event handler Mouse event handler
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMRButtonTripleClk(var Message: TLMRButtonTripleClk); procedure TControl.WMRButtonTripleCLK(var Message: TLMRButtonTripleClk);
begin begin
if (csCaptureMouse in ControlStyle) and (mbRight in CaptureMouseButtons) then if (csCaptureMouse in ControlStyle) and (mbRight in CaptureMouseButtons) then
begin begin
@ -2456,7 +2456,7 @@ end;
Mouse event handler Mouse event handler
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMMButtonTripleClk(var Message: TLMMButtonTripleClk); procedure TControl.WMMButtonTripleCLK(var Message: TLMMButtonTripleClk);
begin begin
if (csCaptureMouse in ControlStyle) and (mbMiddle in CaptureMouseButtons) then if (csCaptureMouse in ControlStyle) and (mbMiddle in CaptureMouseButtons) then
begin begin
@ -2495,7 +2495,7 @@ end;
Mouse event handler Mouse event handler
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMLButtonQuadClk(var Message: TLMLButtonQuadClk); procedure TControl.WMLButtonQuadCLK(var Message: TLMLButtonQuadClk);
begin begin
//TODO: SendCancelMode(self); //TODO: SendCancelMode(self);
if (csCaptureMouse in ControlStyle) and (mbLeft in CaptureMouseButtons) then if (csCaptureMouse in ControlStyle) and (mbLeft in CaptureMouseButtons) then
@ -2516,7 +2516,7 @@ end;
Mouse event handler Mouse event handler
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMRButtonQuadClk(var Message: TLMRButtonQuadClk); procedure TControl.WMRButtonQuadCLK(var Message: TLMRButtonQuadClk);
begin begin
if (csCaptureMouse in ControlStyle) and (mbRight in CaptureMouseButtons) then if (csCaptureMouse in ControlStyle) and (mbRight in CaptureMouseButtons) then
begin begin
@ -2535,7 +2535,7 @@ end;
Mouse event handler Mouse event handler
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMMButtonQuadClk(var Message: TLMMButtonQuadClk); procedure TControl.WMMButtonQuadCLK(var Message: TLMMButtonQuadClk);
begin begin
if (csCaptureMouse in ControlStyle) and (mbMiddle in CaptureMouseButtons) then if (csCaptureMouse in ControlStyle) and (mbMiddle in CaptureMouseButtons) then
begin begin
@ -2761,7 +2761,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;
@ -3284,12 +3284,12 @@ begin
Result := TControlActionLink; Result := TControlActionLink;
end; end;
function TControl.IsClientHeightStored: Boolean; function TControl.IsClientHeightStored: boolean;
begin begin
Result:=false; Result:=false;
end; end;
function TControl.IsClientWidthStored: Boolean; function TControl.IsClientWidthStored: boolean;
begin begin
Result:=false; Result:=false;
end; end;
@ -3649,7 +3649,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TControl SetBounds TControl SetBounds
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.SetBounds(ALeft, ATop, AWidth, AHeight: integer); procedure TControl.SetBounds(aLeft, aTop, aWidth, aHeight: integer);
begin begin
ChangeBounds(ALeft, ATop, AWidth, AHeight, false); ChangeBounds(ALeft, ATop, AWidth, AHeight, false);
end; end;
@ -4281,7 +4281,7 @@ end;
TControl.SetZOrder TControl.SetZOrder
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.SetZOrder(Topmost: Boolean); procedure TControl.SetZOrder(TopMost: Boolean);
const const
POSITION: array[Boolean] of Integer = (0, MaxInt); POSITION: array[Boolean] of Integer = (0, MaxInt);
begin begin
@ -4912,7 +4912,7 @@ end;
Get the devicecontext of the parent Wincontrol for this Control. Get the devicecontext of the parent Wincontrol for this Control.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TControl.GetDeviceContext(var WindowHandle: HWnd): HDC; function TControl.GetDeviceContext(var WindowHandle: HWND): HDC;
begin begin
if Parent = nil then if Parent = nil then
raise EInvalidOperation.CreateFmt(rsControlHasNoParentWindow, [Name]); raise EInvalidOperation.CreateFmt(rsControlHasNoParentWindow, [Name]);
@ -5560,7 +5560,7 @@ end;
assumes: FParent <> nil assumes: FParent <> nil
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.CMParentBidiModeChanged(var Message: TLMessage); procedure TControl.CMParentBiDiModeChanged(var Message: TLMessage);
begin begin
if csLoading in ComponentState then exit; if csLoading in ComponentState then exit;