[Synedit-checkins] SynEdit/Source SynEdit.pas,1.382,1.383

[Flávio E. <et...@us...>]

Update of /cvsroot/synedit/SynEdit/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6728/Source

Modified Files:
	SynEdit.pas 
Log Message:
Revert TSynEdit.CanFocus to default behaviour.

Index: SynEdit.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v
retrieving revision 1.382
retrieving revision 1.383
diff -u -d -r1.382 -r1.383
--- SynEdit.pas	6 Aug 2004 02:33:51 -0000	1.382
+++ SynEdit.pas	6 Aug 2004 02:39:45 -0000	1.383
@@ -781,9 +781,6 @@
 {$IFDEF SYN_COMPILER_4_UP}
     function UpdateAction(Action: TBasicAction): boolean; override;
 {$ENDIF}
-{$IFDEF SYN_COMPILER_5_UP}
-    function CanFocus: Boolean; override;
-{$ENDIF}
     procedure SetFocus; override;
 
     procedure AddKeyUpHandler (aHandler : TKeyEvent);
@@ -8222,20 +8219,6 @@
     Result := FALSE;
 end;
 
-{$IFDEF SYN_COMPILER_5_UP}
-function TCustomSynEdit.CanFocus: Boolean;
-var
-  Form: TCustomForm;
-begin
-  Result := inherited CanFocus;
-  if Result and not (csDesigning in ComponentState) then
-  begin
-    Form := GetParentForm(Self);
-    Result := Assigned(Form) and Form.Enabled and Form.Visible;
-  end;
-end;
-{$ENDIF}
-
 procedure TCustomSynEdit.SetFocus;
 begin
   if (fFocusList.Count > 0) then