david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
119 lines
3.6 KiB
ObjectPascal
119 lines
3.6 KiB
ObjectPascal
unit DragDropDemoDictionary;
|
|
|
|
{$I ..\cxVer.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils{$IFDEF DELPHI6}, Variants{$ENDIF}, Classes,
|
|
Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, DragDropDemoData,
|
|
cxGraphics, cxCustomData, cxStyles, cxTL, cxControls, cxInplaceContainer,
|
|
cxTLData, cxDBTL, cxMaskEdit, cxCurrencyEdit, cxMemo, cxCheckBox;
|
|
|
|
type
|
|
TDragDropDemoDictionaryForm = class(TForm)
|
|
pcDictionary: TPageControl;
|
|
tsDepartments: TTabSheet;
|
|
tsPersons: TTabSheet;
|
|
tlDeptDict: TcxDBTreeList;
|
|
tlEmplDict: TcxDBTreeList;
|
|
lsc: TLabel;
|
|
Label1: TLabel;
|
|
tlDeptDictPARENTID: TcxDBTreeListColumn;
|
|
tlDeptDictNAME: TcxDBTreeListColumn;
|
|
tlDeptDictBUDGET: TcxDBTreeListColumn;
|
|
tlDeptDictPHONE: TcxDBTreeListColumn;
|
|
tlDeptDictFAX: TcxDBTreeListColumn;
|
|
tlDeptDictEMAIL: TcxDBTreeListColumn;
|
|
tlDeptDictVACANCY: TcxDBTreeListColumn;
|
|
tlEmplDictName: TcxDBTreeListColumn;
|
|
tlEmplDictCountry: TcxDBTreeListColumn;
|
|
tlEmplDictPostalCode: TcxDBTreeListColumn;
|
|
tlEmplDictCity: TcxDBTreeListColumn;
|
|
tlEmplDictAddress: TcxDBTreeListColumn;
|
|
tlEmplDictPhone: TcxDBTreeListColumn;
|
|
tlEmplDictFax: TcxDBTreeListColumn;
|
|
tlEmplDictEMAIL: TcxDBTreeListColumn;
|
|
tlEmplDictHOMEPAGE: TcxDBTreeListColumn;
|
|
tlEmplDictDepartmentID: TcxDBTreeListColumn;
|
|
procedure tlDictDragOver(Sender, Source: TObject; X, Y: Integer;
|
|
State: TDragState; var Accept: Boolean);
|
|
procedure tlDictMoveTo(Sender: TObject;
|
|
AttachNode: TcxTreeListNode; AttachMode: TcxTreeListNodeAttachMode;
|
|
Nodes: TList; var IsCopy, Done: Boolean);
|
|
public
|
|
procedure SetDeptSelectionParentValue(AParentValue: Variant);
|
|
procedure SetEmplSelectionDeptID(ADepartmentID: Variant);
|
|
end;
|
|
|
|
procedure SetSelectedNodesValue(ATreeList: TcxDBTreeList; AItemIndex: Integer;
|
|
AValue: Variant);
|
|
|
|
var
|
|
DragDropDemoDictionaryForm: TDragDropDemoDictionaryForm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
function cxCompareNodes(AItem1, AItem2: Pointer): Integer;
|
|
begin
|
|
with TcxTreeListDataNode(AItem1) do
|
|
Result := TcxTreeListDataNode(AItem2).KeyValue - KeyValue;
|
|
end;
|
|
|
|
procedure SetSelectedNodesValue(ATreeList: TcxDBTreeList; AItemIndex: Integer; AValue: Variant);
|
|
var
|
|
I: Integer;
|
|
AList: TList;
|
|
begin
|
|
with ATreeList do
|
|
begin
|
|
AList := TList.Create;
|
|
BeginUpdate;
|
|
try
|
|
ATreeList.GetSelections(AList);
|
|
AList.Sort(cxCompareNodes);
|
|
for I := 0 to AList.Count - 1 do
|
|
if TcxTreeListNode(AList[I]).Values[AItemIndex] <> AValue then
|
|
begin
|
|
|
|
TcxTreeListNode(AList[I]).Focused := True;
|
|
DataController.Edit;
|
|
TcxTreeListNode(AList[I]).Values[AItemIndex] := AValue;
|
|
DataController.Post;
|
|
end;
|
|
finally
|
|
AList.Free;
|
|
EndUpdate;
|
|
end;
|
|
end
|
|
end;
|
|
|
|
procedure TDragDropDemoDictionaryForm.SetDeptSelectionParentValue(
|
|
AParentValue: Variant);
|
|
begin
|
|
SetSelectedNodesValue(tlDeptDict, tlDeptDictPARENTID.ItemIndex, AParentValue);
|
|
end;
|
|
|
|
procedure TDragDropDemoDictionaryForm.SetEmplSelectionDeptID(
|
|
ADepartmentID: Variant);
|
|
begin
|
|
SetSelectedNodesValue(tlEmplDict, tlEmplDictDepartmentID.ItemIndex, ADepartmentID);
|
|
end;
|
|
|
|
procedure TDragDropDemoDictionaryForm.tlDictDragOver(Sender,
|
|
Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
|
|
begin
|
|
Accept := False;
|
|
end;
|
|
|
|
procedure TDragDropDemoDictionaryForm.tlDictMoveTo(Sender: TObject;
|
|
AttachNode: TcxTreeListNode; AttachMode: TcxTreeListNodeAttachMode;
|
|
Nodes: TList; var IsCopy, Done: Boolean);
|
|
begin
|
|
Done := True;
|
|
end;
|
|
|
|
end.
|
|
|