pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Remove CanFocus. Use he inherited from TWincontrol instead

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@981 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-10-09 18:08:14 +00:00
parent 37b177bf77
commit 5d096cb147
1 changed files with 0 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/virtualtreeview-new/VirtualTrees.pas
View File

@@ -2964,7 +2964,6 @@ type
function CancelEditNode: Boolean;
procedure CancelOperation;
function CanEdit(Node: PVirtualNode; Column: TColumnIndex): Boolean; virtual;
function CanFocus: Boolean; {$ifdef COMPILER_5_UP} override;{$endif}
procedure Clear; virtual;
procedure ClearChecked;
procedure ClearSelection;
@@ -25142,23 +25141,6 @@ end;
//----------------------------------------------------------------------------------------------------------------------
function TBaseVirtualTree.CanFocus: Boolean;
var
Form: TCustomForm;
begin
Result := inherited CanFocus;
if Result and not (csDesigning in ComponentState) then
begin
Form := GetParentForm(Self);
Result := (Form = nil) or (Form.Enabled and Form.Visible);
end;
end;
//----------------------------------------------------------------------------------------------------------------------
procedure TBaseVirtualTree.Clear;
begin