paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 07:30:22 +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

6
lcl/include/customlabel.inc
View File

@ -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;

7
lcl/include/wincontrol.inc
View File

@ -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;