Remove obsolete code

This commit is contained in:
Ansgar Becker
2013-11-01 15:18:32 +00:00
parent 5e9d3d828f
commit c330f78514

View File

@ -125,7 +125,6 @@ type
function EndEdit: Boolean; override;
function PrepareEdit(Tree: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex): Boolean; override;
procedure SetBounds(R: TRect); override;
procedure PanelResize(Sender: TObject);
end;
// Inplace editor with button
@ -916,7 +915,6 @@ begin
FPanel.Parent := FParentForm;
FPanel.ParentBackground := False;
FPanel.Height := 150;
FPanel.OnResize := PanelResize;
FPanel.OnExit := DoEndEdit;
FCheckList := TCheckListBox.Create(FPanel);
@ -1017,11 +1015,6 @@ begin
end;
procedure TSetEditorLink.PanelResize(Sender: TObject);
begin
SetBounds(FPanel.ClientRect);
end;
{ TInplaceEditorLink }