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

fix for bug #0013344

Browse Source 
git-svn-id: trunk@19021 -
This commit is contained in:
dmitry 2009-03-18 09:54:52 +00:00
parent 02c50e3d3e
commit e734a9ddb8
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/carbon/carbonwscontrols.pp
View File

@ -305,6 +305,11 @@ var
Valid: Boolean; Valid: Boolean;
begin begin
Result := inherited; Result := inherited;
if not AWinControl.HandleAllocated then
begin
Result:=AWinControl.CanFocus;
Exit;
end;
if not CheckHandle(AWincontrol, Self, 'CanFocus') then Exit; if not CheckHandle(AWincontrol, Self, 'CanFocus') then Exit;
Bit := CFPreferencesGetAppIntegerValue(CFSTR('AppleKeyboardUIMode'), Bit := CFPreferencesGetAppIntegerValue(CFSTR('AppleKeyboardUIMode'),