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

lcl: formatting

Browse Source 
git-svn-id: trunk@20676 -
This commit is contained in:
paul 2009-06-20 08:36:07 +00:00
parent f5cdfcac6a
commit d7dd2de4ce
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customlabel.inc
View File

@ -277,13 +277,13 @@ end;
function TCustomLabel.DialogChar(var Message: TLMKey): boolean; function TCustomLabel.DialogChar(var Message: TLMKey): boolean;
begin begin
Result := false; Result := False;
if not FShowAccelChar then exit; if not FShowAccelChar then exit;
if FFocusControl = nil then exit; if FFocusControl = nil then exit;
if IsAccel(Message.CharCode, GetLabelText) and FFocusControl.CanFocus then if IsAccel(Message.CharCode, GetLabelText) and FFocusControl.CanFocus then
begin begin
Result := true; Result := True;
FFocusControl.SetFocus; FFocusControl.SetFocus;
end else end else
Result := inherited DialogChar(Message); Result := inherited DialogChar(Message);

7
lcl/include/wincontrol.inc
View File

@ -5301,11 +5301,11 @@ var
I: integer; I: integer;
begin begin
// broadcast to children // broadcast to children
Result := false; Result := False;
for I := 0 to ControlCount - 1 do for I := 0 to ControlCount - 1 do
begin begin
Result := Controls[I].DialogChar(Message); Result := Controls[I].DialogChar(Message);
if Result then exit; if Result then Exit;
end; end;
end; end;
@ -5419,10 +5419,7 @@ begin
begin begin
Result := ParentForm.DialogChar(Message); Result := ParentForm.DialogChar(Message);
if Result then if Result then
begin
Message.CharCode := VK_UNKNOWN; Message.CharCode := VK_UNKNOWN;
exit;
end;
end; end;
end; end;