开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
fcTreeView_ItemsEditor.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：22k
源码类别：

Delphi控件源码

开发平台：

Delphi

fcTreeView_ItemsEditor.pas：源码内容
  1. unit fcTreeView_ItemsEditor;
  3. interface
  5. {$i fcIfDef.pas}
  7. uses
  8.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  9.   StdCtrls, ComCtrls, fcTreeView, ExtCtrls, checklst, fcCommon,   {$ifdef fcdelphi6up}
  10.   designintf,
  11.   {$else}
  12.   dsgnintf,
  13.   {$endif}
  14.   Buttons;
  16. type
  17.   TfcTreeViewItemsEditor = class(TForm)
  18.     GroupBox1: TGroupBox;
  19.     Label1: TLabel;
  20.     TextEdit: TEdit;
  21.     GroupBox2: TGroupBox;
  22.     Label2: TLabel;
  23.     Label3: TLabel;
  24.     Label4: TLabel;
  25.     ImageIndexEdit: TEdit;
  26.     SelectedIndexEdit: TEdit;
  27.     StateIndexEdit: TEdit;
  28.     ShowCheckBox: TCheckBox;
  29.     CheckListBox: TCheckListBox;
  30.     TreeView: TfcTreeView;
  31.     StringData1Edit: TEdit;
  32.     Label5: TLabel;
  33.     SaveDialog1: TSaveDialog;
  34.     OpenDialog1: TOpenDialog;
  35.     Label6: TLabel;
  36.     StringData2Edit: TEdit;
  37.     Panel1: TPanel;
  38.     Button1: TButton;
  39.     Button2: TButton;
  40.     Button4: TButton;
  41.     Panel2: TPanel;
  42.     NewItemButton: TSpeedButton;
  43.     NewSubitemButton: TSpeedButton;
  44.     DeleteButton: TSpeedButton;
  45.     MoveUpButton: TSpeedButton;
  46.     MoveDownButton: TSpeedButton;
  47.     LoadButton: TSpeedButton;
  48.     SpeedButton1: TSpeedButton;
  49.     CheckboxRadioGroup: TGroupBox;
  50.     CheckboxButton: TRadioButton;
  51.     RadioButton: TRadioButton;
  52.     GrayedCheckbox: TCheckBox;
  53.     procedure NewItemButtonClick(Sender: TObject);
  54.     procedure NewSubitemButtonClick(Sender: TObject);
  55.     procedure DeleteButtonClick(Sender: TObject);
  56.     procedure FormShow(Sender: TObject);
  57.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  58.     procedure Button3Click(Sender: TObject);
  59.     procedure TextEditChange(Sender: TObject);
  60.     procedure ShowCheckBoxClick(Sender: TObject);
  61.     procedure StateIndexEditExit(Sender: TObject);
  62.     procedure SelectedIndexEditExit(Sender: TObject);
  63.     procedure ImageIndexEditExit(Sender: TObject);
  64.     procedure CheckListBoxClickCheck(Sender: TObject);
  65.     procedure CheckListBoxDrawItem(Control: TWinControl; Index: Integer;
  66.       Rect: TRect; State: TOwnerDrawState);
  67.     procedure CheckListBoxClick(Sender: TObject);
  68.     procedure TreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
  69.     procedure MoveButtonClick(Sender: TObject);
  70.     procedure TreeViewMouseDown(TreeView: TfcCustomTreeView; Node: TfcTreeNode; Button: TMouseButton;
  71.       Shift: TShiftState; X, Y: Integer);
  72.     procedure TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  73.       State: TDragState; var Accept: Boolean);
  74.     procedure StateIndexEditKeyDown(Sender: TObject; var Key: Word;
  75.       Shift: TShiftState);
  76.     procedure StringData1EditExit(Sender: TObject);
  77.     procedure LoadButtonClick(Sender: TObject);
  78.     procedure SpeedButton1Click(Sender: TObject);
  79.     procedure StringData2EditExit(Sender: TObject);
  80.     procedure FormResize(Sender: TObject);
  81.     procedure CheckboxButtonClick(Sender: TObject);
  82.     procedure RadioButtonClick(Sender: TObject);
  83.     procedure GrayedCheckboxClick(Sender: TObject);
  84.     procedure TreeViewToggleCheckbox(TreeView: TfcCustomTreeView;
  85.       Node: TfcTreeNode);
  86.     procedure TreeViewChanging(TreeView: TfcCustomTreeView;
  87.       Node: TfcTreeNode; var AllowChange: Boolean);
  88.     procedure TreeViewChange(TreeView: TfcCustomTreeView;
  89.       Node: TfcTreeNode);
  90.     procedure TreeViewCalcNodeAttributes(TreeView: TfcCustomTreeView;
  91.       Node: TfcTreeNode; State: TfcItemStates);
  92.     procedure Button4Click(Sender: TObject);
  93.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  94.       Shift: TShiftState);
  95.   private
  96.     SuspendCheckboxList: Boolean;
  97.     InRefreshControls: boolean;
  98.     DataModified: boolean;
  99.     OrigTreeView: TfcCustomTreeView;
  100. //    DragFlag: Boolean;
  101.     procedure RefreshControls;
  102.     procedure UpdateNode(UpdateAll: boolean);
  103.     procedure RefreshChecklistBox(Node: TfcTreeNode);
  104.     procedure FillChecklistBox;
  105.     procedure SetCheckboxEnabled(val: boolean);
  106.     { Private declarations }
  107.   public
  108.     { Public declarations }
  109.   end;
  111.   {$ifdef fcDelphi6Up}
  112.   TFormDesigner = IDesigner;
  113.   {$else}
  114.   TFormDesigner = IFormDesigner;
  115.   {$endif}
  117.   procedure ExecuteTreeNodesEditor(ADesigner: TFormDesigner; ATreeView: TfcTreeView);
  119. var
  120.   fcTreeViewItemsEditor: TfcTreeViewItemsEditor;
  122. implementation
  124. {$R *.DFM}
  126. type TEditorTreeView = class(TfcTreeView);
  128. procedure ExecuteTreeNodesEditor(ADesigner: TFormDesigner; ATreeView: TfcTreeView);
  129. begin
  130.   with TfcTreeViewItemsEditor.Create(Application) do
  131.   begin
  132.     TEditorTreeView(TreeView).NodeClass := TEditorTreeView(ATreeView).NodeClass;
  133.     OrigTreeView:= ATreeView;
  134.     TreeView.Items.Assign(ATreeView.Items);
  135.     TreeView.MultiSelectAttributes.Assign(ATreeView.MultiSelectAttributes);
  137.     TreeView.Font.Assign(ATreeView.Font);
  138.     TreeView.Font.Color:= clWindowText; { 3/9/00 - Use window text for design - time }
  140.     if ATreeView.Images <> nil then
  141.       TreeView.Images:= ATreeView.Images;
  142.     if ATreeView.StateImages <> nil then
  143.       TreeView.StateImages := ATreeView.StateImages;
  144.     TreeView.Options:= ATreeView.Options - [tvoAutoURL, tvoHideSelection];
  145.     TreeView.Indent:= ATreeView.Indent;
  146.     if ShowModal = mrOK then
  147.     begin
  148.       ATreeView.Items.Assign(TreeView.Items);
  149.       if ADesigner <> nil then ADesigner.Modified else ShowMessage('nil');
  150.     end;
  151.     Free;
  152.   end;
  153. end;
  155. procedure TfcTreeViewItemsEditor.NewItemButtonClick(Sender: TObject);
  156. var ParentOfSelected: TfcTreeNode;
  157.     Node: TfcTreeNode;
  158. begin
  159. //   UpdateNode(False);
  162.    if TreeView.Selected=Nil then ParentOfSelected:= Nil
  163.    else ParentOfSelected:= TreeView.Selected.parent;
  165.    TreeView.selected := TreeView.Items.AddChild(ParentOfSelected, '');
  167.    if parentOfSelected=nil then
  168.       Node := TfcTreeNode(TreeView.Items.GetFirstNode)
  169.    else
  170.       Node := TfcTreeNode(parentOfSelected.GetFirstChild);
  172.    if (Node<>Nil) and (Node.CheckboxType=tvctRadioGroup) then
  173.    begin
  174.       TfcTreeNode(TreeView.selected).CheckboxType:= tvctRadioGroup;
  175.       TfcTreeNode(TreeView.selected).StateIndex:= 1;
  176.    end;
  178.    RefreshControls;
  179.    UpdateNode(False);
  180.    TextEdit.setFocus;
  182. end;
  184. procedure TfcTreeViewItemsEditor.NewSubitemButtonClick(Sender: TObject);
  185. begin
  186. //   UpdateNode;
  188.    if TreeView.selected<>Nil then
  189.    begin
  190.       TreeView.selected:= TreeView.Items.AddChild(TreeView.Selected, '');
  191.       UpdateNode(False);
  192.       TextEdit.setFocus;
  193.    end;
  194. end;
  196. procedure TfcTreeViewItemsEditor.DeleteButtonClick(Sender: TObject);
  197. begin
  198.   if TreeView.selected <> nil then
  199.   begin
  200.     TreeView.Items.Delete(TreeView.Selected);
  201.     RefreshControls;
  202.   end
  203. end;
  205. type TTempTree = class(TfcTreeView);
  207. procedure TfcTreeViewItemsEditor.FillChecklistBox;
  208. var BooleanProps: TStringList;
  209.     i: Integer;
  210.     Node: TfcTreeNode;
  211. begin
  212.   Node := TTempTree(TreeView).NodeClass.Create(TreeView.Items);
  214.   ChecklistBox.Items.Clear;
  215.   BooleanProps := TStringList.Create;
  216.   try
  217.     fcGetBooleanProps(Node, BooleanProps);
  218.     if BooleanProps.count>0 then
  219.     begin
  220.        CheckListbox.enabled:= True;
  221.        TabStop:= True;
  222.     end;
  223.     for i := 0 to BooleanProps.Count - 1 do
  224.       ChecklistBox.Items.Add(BooleanProps[i]);
  225.   finally
  226.     BooleanProps.Free;
  227.     Node.Free;
  228.   end;
  229. end;
  231. procedure TfcTreeViewItemsEditor.RefreshChecklistBox(Node: TfcTreeNode);
  232. var i: Integer;
  233. begin
  234.   SuspendCheckboxList := True;
  235.   for i := 0 to CheckListBox.Items.Count - 1 do
  236.     ChecklistBox.Checked[ChecklistBox.Items.Count - 1] :=
  237.       Boolean(fcGetOrdProp(Node, ChecklistBox.Items[i]));
  238.   SuspendCheckboxList := False;
  239. end;
  241. procedure TfcTreeViewItemsEditor.RefreshControls;
  242. var haveSelection: boolean;
  243. begin
  244.    haveSelection:= TreeView.selected<>Nil;
  245.    InRefreshControls:= True;
  247.    DeleteButton.enabled:= haveSelection;
  248.    NewSubItemButton.enabled:= haveSelection;
  249.    TextEdit.enabled:= haveSelection;
  250.    ImageIndexEdit.enabled:= haveSelection;
  251.    StringData1Edit.enabled:= haveSelection;
  252.    StringData2Edit.enabled:= haveSelection;
  253.    SelectedIndexEdit.enabled:= haveSelection;
  254.    StateIndexEdit.enabled:= haveSelection;
  255.    ShowCheckbox.enabled:= haveSelection;
  256.    CheckListBox.Enabled := haveSelection;
  257.    if ShowCheckBox.enabled then
  258.    begin
  259.        ShowCheckbox.enabled:= haveSelection and
  260.           not TreeView.MultiSelectCheckboxNeeded(TreeView.Selected);
  261.        if not ShowCheckbox.enabled then begin
  262.           ShowCheckbox.checked:= false;
  263.        end
  264.    end;
  266.    if TreeView.selected <> nil then
  267.    begin
  268.       RefreshChecklistBox(TreeView.Selected);
  269.       TextEdit.text:= TreeView.Selected.Text;
  270.       ImageIndexEdit.text:= inttostr(TreeView.Selected.ImageIndex);
  271.       StringData1Edit.text:= TreeView.Selected.StringData;
  272.       StringData2Edit.text:= TreeView.Selected.StringData2;
  273.       SelectedIndexEdit.text:= inttostr(TreeView.Selected.SelectedIndex);
  274.       StateIndexEdit.text:= inttostr(TreeView.Selected.StateIndex);
  275.       ShowCheckbox.checked:= (TreeView.Selected as TfcTreeNode).CheckboxType<>tvctNone;
  277.       If ShowCheckbox.checked then begin
  278.          StateIndexEdit.enabled:= False;
  279.          if (TreeView.Selected as TfcTreeNode).CheckboxType=tvctRadioGroup then
  280.          begin
  281.             CheckboxButton.checked:= False;
  282.             RadioButton.checked:= True;
  283.          end
  284.          else begin
  285.             CheckboxButton.checked:= True;
  286.             RadioButton.checked:= False;
  287.          end;
  288.          GrayedCheckbox.checked:= TreeView.Selected.Grayed;
  289.       end
  290.       else begin
  291.          CheckboxButton.checked:= True;
  292.          RadioButton.checked:= False;
  293.       end;
  294.       SetCheckboxEnabled(ShowCheckbox.checked);
  295.    end;
  296.    InRefreshControls:= False;
  298. end;
  300. procedure TfcTreeViewItemsEditor.SetCheckboxEnabled(val: boolean);
  301. begin
  302.     CheckboxButton.enabled:= val;
  303.     RadioButton.enabled:= val;
  304.     GrayedCheckbox.enabled:= val;
  305. end;
  307. procedure TfcTreeViewItemsEditor.UpdateNode(UpdateAll: boolean);
  309.     procedure SetSiblingsToRadio(Node: TfcTreeNode; RadioGroupFlag: boolean);
  310.     begin
  311.        Node:=  TreeView.GetFirstSibling(Node);
  312. {       parentNode:= TwwTreeNode(TreeView.selected.parent);
  313.        if parentNode=nil then
  314.           Node := TreeView.Items.GetFirstNode as TwwTreeNode
  315.        else
  316.           Node := TwwTreeNode(parentNode.GetFirstChild);
  317. }
  318.        while Node <> nil do
  319.        begin
  320.           if RadioGroupFlag then begin
  321.              Node.CheckboxType:= tvctRadioGroup;
  322.              Node.StateIndex:=strtoint(StateIndexEdit.text);
  323.           end
  324.           else if Node.CheckboxType=tvctRadioGroup then begin
  325.              Node.CheckboxType:= tvctNone;
  326.              Node.StateIndex:=-1;
  327.           end;
  328.           Node := TfcTreeNode(Node.GetNextSibling);
  329.        end;
  330.        TreeView.Invalidate;
  331.     end;
  333. begin
  334.     if TreeView.selected<>nil then begin
  335.        DataModified:= True;
  336.        TreeView.Selected.Text := TextEdit.text;
  337.        if ImageIndexEdit.text<>'' then
  338.           TreeView.Selected.ImageIndex:= strtoint(ImageIndexEdit.text);
  339.        if StringData1Edit.text<>'' then
  340.           TreeView.Selected.StringData:= StringData1Edit.text;
  341.        if StringData2Edit.text<>'' then
  342.           TreeView.Selected.StringData2:= StringData2Edit.text;
  343.        if SelectedIndexEdit.text<>'' then
  344.           TreeView.Selected.SelectedIndex:= strtoint(SelectedIndexEdit.text);
  345.        if StateIndexEdit.text<>'' then
  346.           TreeView.Selected.StateIndex:= strtoint(stateindexedit.text);
  348.        if not UpdateAll then exit;
  350.        if ShowCheckbox.checked then
  351.        begin
  352.           if RadioButton.checked then { Radio group }
  353.              SetSiblingsToRadio(TfcTreeNode(TreeView.selected), True)
  354.           else begin
  355.              SetSiblingsToRadio(TfcTreeNode(TreeView.selected), False);
  356.              if CheckboxButton.checked then
  357.                 (TreeView.selected as TfcTreeNode).CheckboxType:= tvctCheckbox
  358.              else
  359.                 (TreeView.selected as TfcTreeNode).CheckboxType:= tvctRadioGroup;
  360.              (TreeView.selected as TfcTreeNode).StateIndex:=strtoint(StateIndexEdit.text);
  361.           end;
  363.           TreeView.selected.grayed:=GrayedCheckbox.checked;
  365.        end
  366.        else begin
  367.           if RadioButton.checked then { Radio group }
  368.              SetSiblingsToRadio(TfcTreeNode(TreeView.selected), False)
  369.           else (TreeView.selected as TfcTreeNode).CheckboxType:= tvctNone;
  370.        end
  372.     end;
  373. end;
  375. procedure TfcTreeViewItemsEditor.FormShow(Sender: TObject);
  376. begin
  377.    FillChecklistBox;  { 4/22/99 - Put before refresh controls }
  378.    RefreshControls;
  379.    TreeView.Options:= TreeView.Options - [tvo3StateCheckbox];
  380. //   TreeView.ReadOnly:= True;
  381. end;
  383. procedure TfcTreeViewItemsEditor.FormClose(Sender: TObject;
  384.   var Action: TCloseAction);
  385. var answer: integer;
  386. begin
  387.    if ModalResult = mrOK then UpdateNode(True)
  388.    else if (ModalResult = mrCancel) and DataModified then begin
  389.       answer:= MessageDlg('Changes have been made!  Do you wish to save them?',
  390.            mtConfirmation, [mbYes, mbNo, mbCancel], 0);
  391.       if (answer = mrYes) then ModalResult:= mrOK
  392.       else if (answer = mrNo) then ModalResult:= mrCancel
  393.       else Action:= caNone;
  394.    end
  395. end;
  397. procedure TfcTreeViewItemsEditor.Button3Click(Sender: TObject);
  398. begin
  399.    UpdateNode(True);
  400. end;
  402. procedure TfcTreeViewItemsEditor.TextEditChange(Sender: TObject);
  403. begin
  404.    if TextEdit.modified then
  405.    begin
  406.       TreeView.Selected.Text:= TextEdit.Text;
  407.       DataModified:= True;
  408.    end
  409. //   if (Sender as TEdit).Focused then UpdateNode;
  410. //   if TreeView.Selected<>Nil then
  411. //      TreeView.Selected.Text:= (Sender as TEdit).text;
  412. end;
  414. procedure TfcTreeViewItemsEditor.ShowCheckBoxClick(Sender: TObject);
  415. begin
  416.    if InRefreshControls then exit;
  417.    if ShowCheckbox.checked then
  418.    begin
  419.       StateIndexEdit.text:= '1';
  420.       StateIndexEdit.enabled:= False;
  421.       SetCheckboxEnabled(true);
  422.    end
  423.    else begin
  424.       StateIndexEdit.text:= '-1';
  425.       StateIndexEdit.enabled:= True;
  426.       SetCheckboxEnabled(false);
  427.    end;
  428.    UpdateNode(True);
  429. end;
  431. procedure TfcTreeViewItemsEditor.StateIndexEditExit(Sender: TObject);
  432. begin
  433.    if StateIndexEdit.modified then
  434.    begin
  435.       TreeView.Selected.StateIndex:= strtoint(StateIndexEdit.Text);
  436.       TreeView.InvalidateNode(TreeView.Selected);
  437.       DataModified:= True;
  438.    end
  439. end;
  441. procedure TfcTreeViewItemsEditor.SelectedIndexEditExit(Sender: TObject);
  442. begin
  443.    if SelectedIndexEdit.modified then
  444.    begin
  445.       TreeView.Selected.SelectedIndex:= strtoint(SelectedIndexEdit.Text);
  446.       DataModified:= True;
  447.    end
  448. end;
  450. procedure TfcTreeViewItemsEditor.ImageIndexEditExit(Sender: TObject);
  451. begin
  452.    if ImageIndexEdit.modified then
  453.    begin
  454.       TreeView.Selected.ImageIndex:= strtoint(ImageIndexEdit.Text);
  455.       TreeView.InvalidateNode(TreeView.Selected);
  456.       DataModified:= True;
  457.    end
  458. end;
  460. procedure TfcTreeViewItemsEditor.CheckListBoxClickCheck(Sender: TObject);
  461. begin
  462.   if SuspendCheckboxList then Exit;
  463.   if TreeView.Selected <> nil then
  464.     fcSetOrdProp(TreeView.Selected, CheckListBox.Items[CheckListBox.ItemIndex],
  465.       ord(CheckListBox.Checked[CheckListBox.ItemIndex]));
  466. end;
  468. procedure TfcTreeViewItemsEditor.CheckListBoxDrawItem(Control: TWinControl;
  469.   Index: Integer; Rect: TRect; State: TOwnerDrawState);
  470.   function ExtrapolateText: string;
  471.   var i: Integer;
  472.   begin
  473.     result := ChecklistBox.Items[Index];
  474.     i := 2;
  475.     while i <= Length(result) do
  476.     begin
  477.       if result[i] in ['A'..'Z'] then
  478.       begin
  479.         Insert(' ', result, i);
  480.         inc(i);
  481.       end;
  482.       inc(i);
  483.     end;
  484.   end;
  485. begin
  486.   Inc(Rect.Left, 2);
  487.   SetBkMode(ChecklistBox.Canvas.Handle, TRANSPARENT);
  488.   SetBkColor(ChecklistBox.Canvas.Handle, 0);
  489.   SetTextColor(ChecklistBox.Canvas.Handle, ColorToRGB(Font.Color));
  490.   DrawText(ChecklistBox.Canvas.Handle, PChar(ExtrapolateText),
  491.     Length(ExtrapolateText), Rect, DT_VCENTER or DT_SINGLELINE);
  492. end;
  494. procedure TfcTreeViewItemsEditor.CheckListBoxClick(Sender: TObject);
  495. begin
  496. //  CheckListBox.Checked[CheckListBox.ItemIndex] := not CheckListBox.Checked[CheckListBox.ItemIndex];
  497. end;
  499. procedure TfcTreeViewItemsEditor.TreeViewDragDrop(Sender, Source: TObject;
  500.   X, Y: Integer);
  501. var HitTest : TfcHitTests;
  502.     KeyState: TKeyboardState;
  503. begin
  504.   with (Sender as TfcTreeView) do begin
  505.     HitTest := GetHitTestInfoAt(X,Y);
  506.     if (Selected <> nil) and
  507.        ([fchtOnItem, fchtOnButton, fchtOnIndent, fchtOnLabel, fchtOnRight] * HitTest <> []) then
  508.     begin
  509.        if ([fchtOnItem, fchtOnButton, fchtOnIndent, fchtOnLabel, fchtOnRight] * HitTest <> []) then
  510.        begin
  511.           Items.BeginUpdate;
  512.           DataModified:= True;
  513.           GetKeyboardState(KeyState);
  515.           if KeyState[vk_Shift]>=128 then
  516.              Selected.MoveTo(GetNodeAt(X,Y), fcnaAddChild)
  517.           else begin
  518.              if (GetNodeAt(X,Y)=nil) then
  519.                 Selected.MoveTo(GetNodeAt(X,Y), fcnaInsertAfter)
  520.              else
  521.                 Selected.MoveTo(GetNodeAt(X,Y), fcnaInsert);
  522.           end;
  523.           Items.EndUpdate;
  524.        end
  525.     end
  526.     else if fchtNowhere in HitTest then
  527.     begin
  528.        Selected.MoveTo(DropTarget, fcnaAdd)
  529.     end;
  531.     DropTarget := nil;
  532.     Screen.Cursor := crDefault;
  533.   end
  534. end;
  536. procedure TfcTreeViewItemsEditor.MoveButtonClick(Sender: TObject);
  537. var NextSibling: TfcTreeNode;
  538.     Mode: TfcNodeAttachMode;
  539. begin
  540.   Mode := fcnaInsert;
  541.   if (TreeView.Selected = nil) then Exit;
  542.   if (Sender as TSpeedButton).Tag < 0 then
  543.   begin
  544.     NextSibling := TreeView.Selected.GetNextSibling;
  545.     if NextSibling = nil then Exit;
  546.     NextSibling := NextSibling.GetNextSibling;
  547.     if NextSibling = nil then
  548.     begin
  549.       NextSibling := TreeView.Selected;
  550.       Mode := fcnaAdd;
  551.     end;
  552.   end else NextSibling := TreeView.Selected.GetPrevSibling;
  553.   if NextSibling = nil then Exit;
  554.   TreeView.Items.BeginUpdate;
  555.   TreeView.Selected.MoveTo(NextSibling, Mode);
  556.   TreeView.Items.EndUpdate;
  557.   DataModified := True;
  558. end;
  560. procedure TfcTreeViewItemsEditor.TreeViewMouseDown(TreeView: TfcCustomTreeView;
  561.   Node: TfcTreeNode; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  562. begin
  563.   if fchtOnLabel in TreeView.GetHitTestInfoAt(X,Y) then
  564.      TreeView.BeginDrag(False);
  565. end;
  567. procedure TfcTreeViewItemsEditor.TreeViewDragOver(Sender, Source: TObject;
  568.   X, Y: Integer; State: TDragState; var Accept: Boolean);
  569. begin
  570.   Accept:= True;
  571. end;
  573. procedure TfcTreeViewItemsEditor.StateIndexEditKeyDown(Sender: TObject;
  574.   var Key: Word; Shift: TShiftState);
  575. begin
  576.   if key=vk_return then begin
  577.     if ActiveControl = TextEdit then
  578.     begin
  579.        NewItemButton.Click;
  580.     end
  581.     else if (ActiveControl = ImageIndexEdit) or
  582.             (ActiveControl = StringData1Edit) or
  583.             (ActiveControl = StringData2Edit) or
  584.             (ActiveControl = SelectedIndexEdit) or
  585.             (ActiveControl = StateIndexEdit) then
  586.     begin
  587.        TEdit(ActiveControl).OnExit(ActiveControl);
  588.        TEdit(ActiveControl).SelectAll;
  589.     end
  590.   end
  593. end;
  595. procedure TfcTreeViewItemsEditor.StringData1EditExit(Sender: TObject);
  596. begin
  597.    if (Sender as TEdit).modified then
  598.    begin
  599.       TreeView.Selected.StringData:= (Sender as TEdit).Text;
  600.       DataModified:= True;
  601.    end
  602. end;
  604. procedure TfcTreeViewItemsEditor.LoadButtonClick(Sender: TObject);
  605. begin
  606.   if OpenDialog1.Execute then
  607.   begin
  608.      TreeView.LoadFromFile(OpenDialog1.FileName);
  609.   end;
  610. end;
  612. procedure TfcTreeViewItemsEditor.SpeedButton1Click(Sender: TObject);
  613. begin
  614.   if SaveDialog1.Execute then
  615.   begin
  616.     if FileExists(SaveDialog1.FileName) then
  617.       if MessageDlg(Format('OK to overwrite %s', [SaveDialog1.FileName]),
  618.         mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit;
  619.     TreeView.SaveToFile(SaveDialog1.FileName);
  620.   end;
  622. end;
  624. procedure TfcTreeViewItemsEditor.StringData2EditExit(Sender: TObject);
  625. begin
  626.    if (Sender as TEdit).modified then
  627.    begin
  628.       TreeView.Selected.StringData2:= (Sender as TEdit).Text;
  629.       DataModified:= True;
  630.    end
  631. end;
  633. procedure TfcTreeViewItemsEditor.FormResize(Sender: TObject);
  634. begin
  635.   if Width<500 then Width:= 500;
  636.   if Height<325 then Height:= 325;
  637. end;
  639. procedure TfcTreeViewItemsEditor.CheckboxButtonClick(Sender: TObject);
  640. begin
  641.    RadioButton.checked:= False;
  642.    if InRefreshControls then exit;
  643.    UpdateNode(True);
  644. end;
  646. procedure TfcTreeViewItemsEditor.RadioButtonClick(Sender: TObject);
  647. begin
  648.    CheckboxButton.checked:= False;
  649.    if InRefreshControls then exit;
  650.    UpdateNode(True);
  651. end;
  653. procedure TfcTreeViewItemsEditor.GrayedCheckboxClick(Sender: TObject);
  654. begin
  655.    if InRefreshControls then exit;
  656.    UpdateNode(True);
  657. end;
  659. procedure TfcTreeViewItemsEditor.TreeViewToggleCheckbox(
  660.   TreeView: TfcCustomTreeView; Node: TfcTreeNode);
  661. begin
  662.    RefreshControls;
  663. end;
  665. procedure TfcTreeViewItemsEditor.TreeViewChanging(
  666.   TreeView: TfcCustomTreeView; Node: TfcTreeNode;
  667.   var AllowChange: Boolean);
  668. begin
  669.    try
  670.       if ImageIndexEdit.modified or StateIndexEdit.modified or
  671.          SelectedIndexEdit.modified or StringData1Edit.modified or
  672.          StringData2Edit.modified then
  673.          UpdateNode(False);
  674.    except
  675.       AllowChange:= False;
  676.       raise;
  677.    end;
  678. end;
  680. procedure TfcTreeViewItemsEditor.TreeViewChange(
  681.   TreeView: TfcCustomTreeView; Node: TfcTreeNode);
  682. begin
  683.    RefreshControls;
  684. end;
  686. procedure TfcTreeViewItemsEditor.TreeViewCalcNodeAttributes(
  687.   TreeView: TfcCustomTreeView; Node: TfcTreeNode; State: TfcItemStates);
  688. begin
  689.   if (Node.StringData<>'') and (tvoAutoURL in OrigTreeView.Options) then
  690.   begin
  691.       if not (fcisSelected in State) or not TreeView.Focused then
  692.          Treeview.Canvas.Font.Color:= clBlue;
  693.       Treeview.Canvas.Font.Style:=
  694.               Canvas.Font.Style + [fsUnderline];
  695.   end
  696. end;
  698. procedure TfcTreeViewItemsEditor.Button4Click(Sender: TObject);
  699. begin
  700.   fcHelp(Handle, 'TfcTreeView Nodes Editor');
  701. end;
  703. procedure TfcTreeViewItemsEditor.FormKeyDown(Sender: TObject;
  704.   var Key: Word; Shift: TShiftState);
  705. begin
  706.   if Key = VK_F1 then Button4Click(Button4);
  707. end;
  709. end.