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

let canfocus imply that setfocus can be called

Browse Source 
git-svn-id: trunk@6478 -
This commit is contained in:
micha 2005-01-04 11:26:26 +00:00
parent d62f50ff28
commit a6cc7c88ea
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customform.inc
View File

@ -1094,7 +1094,8 @@ Begin
if not if not
((AWinControl = nil) ((AWinControl = nil)
or (AWinControl <> Self) and (GetParentForm(AWinControl) = Self) or (AWinControl <> Self) and (GetParentForm(AWinControl) = Self)
and ((csLoading in ComponentState) or AWinControl.CanFocus)) and ((csLoading in ComponentState) or not (Visible and Enabled)
or AWinControl.CanFocus))
then then
RaiseGDBException(SCannotFocus); RaiseGDBException(SCannotFocus);
// EInvalidOperation.Create(SCannotFocus); // EInvalidOperation.Create(SCannotFocus);
@ -1827,6 +1828,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.170 2005/01/04 11:26:26 micha
let canfocus imply that setfocus can be called
Revision 1.169 2004/12/27 00:06:44 mattias Revision 1.169 2004/12/27 00:06:44 mattias
added DestroyHandle after ShowModal to save resources added DestroyHandle after ShowModal to save resources

9
lcl/include/wincontrol.inc
View File

@ -736,11 +736,11 @@ begin
if Form <> nil then if Form <> nil then
begin begin
Control := Self; Control := Self;
while Control <> Form do repeat
begin
if not (Control.FVisible and Control.Enabled) then Exit; if not (Control.FVisible and Control.Enabled) then Exit;
if Control = Form then break;
Control := Control.Parent; Control := Control.Parent;
end; until false;
Result := True; Result := True;
end; end;
end; end;
@ -4232,6 +4232,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.295 2005/01/04 11:26:26 micha
let canfocus imply that setfocus can be called
Revision 1.294 2005/01/03 22:44:31 mattias Revision 1.294 2005/01/03 22:44:31 mattias
implemented TControl.AnchorSide implemented TControl.AnchorSide