From d7dd2de4ce341e08fca4e65156aaa00e12e5c5e6 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 20 Jun 2009 08:36:07 +0000
Subject: [PATCH] lcl: formatting

git-svn-id: trunk@20676 -
---
 lcl/include/customlabel.inc | 6 +++---
 lcl/include/wincontrol.inc  | 7 ++-----
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/lcl/include/customlabel.inc b/lcl/include/customlabel.inc
index 9ef4af7d1d..9fb86710d7 100644
--- a/lcl/include/customlabel.inc
+++ b/lcl/include/customlabel.inc
@@ -277,16 +277,16 @@ end;
 
 function TCustomLabel.DialogChar(var Message: TLMKey): boolean;
 begin
-  Result := false;
+  Result := False;
   if not FShowAccelChar then exit;
   if FFocusControl = nil then exit;
 
   if IsAccel(Message.CharCode, GetLabelText) and FFocusControl.CanFocus then
   begin
-    Result := true;
+    Result := True;
     FFocusControl.SetFocus;
   end else
-    Result:=inherited DialogChar(Message);
+    Result := inherited DialogChar(Message);
 end;
 
 procedure TCustomLabel.Loaded;
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index c781d08446..5dde03bc2a 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -5301,11 +5301,11 @@ var
   I: integer;
 begin
   // broadcast to children
-  Result := false;
+  Result := False;
   for I := 0 to ControlCount - 1 do
   begin
     Result := Controls[I].DialogChar(Message);
-    if Result then exit;
+    if Result then Exit;
   end;
 end;
 
@@ -5419,10 +5419,7 @@ begin
   begin
     Result := ParentForm.DialogChar(Message);
     if Result then 
-    begin
       Message.CharCode := VK_UNKNOWN;
-      exit;
-    end;
   end;
 end;