david
111d889bc6
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@32 05c56307-c608-d34a-929d-697000501d7a
391 lines
12 KiB
ObjectPascal
391 lines
12 KiB
ObjectPascal
{*******************************************************************}
|
||
{ }
|
||
{ Developer Express Visual Component Library }
|
||
{ Express OrgChart }
|
||
{ }
|
||
{ Copyright (c) 1998-2009 Developer Express Inc. }
|
||
{ ALL RIGHTS RESERVED }
|
||
{ }
|
||
{ The entire contents of this file is protected by U.S. and }
|
||
{ International Copyright Laws. Unauthorized reproduction, }
|
||
{ reverse-engineering, and distribution of all or any portion of }
|
||
{ the code contained in this file is strictly prohibited and may }
|
||
{ result in severe civil and criminal penalties and will be }
|
||
{ prosecuted to the maximum extent possible under the law. }
|
||
{ }
|
||
{ RESTRICTIONS }
|
||
{ }
|
||
{ THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES }
|
||
{ (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE }
|
||
{ SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS }
|
||
{ LICENSED TO DISTRIBUTE THE EXPRESSORGCHART AND ALL ACCOMPANYING }
|
||
{ VCL CONTROLS AS PART OF AN EXECUTABLE PROGRAM ONLY. }
|
||
{ }
|
||
{ THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED }
|
||
{ FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE }
|
||
{ COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE }
|
||
{ AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT }
|
||
{ AND PERMISSION FROM DEVELOPER EXPRESS INC. }
|
||
{ }
|
||
{ CONSULT THE end USER LICENSE AGREEMENT FOR INFORMATION ON }
|
||
{ ADDITIONAL RESTRICTIONS. }
|
||
{ }
|
||
{*******************************************************************}
|
||
|
||
unit dxorgced;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||
StdCtrls, Buttons, ExtCtrls, dxorgchr;
|
||
|
||
type
|
||
TfrmEChartEditor = class(TForm)
|
||
TreeBox: TGroupBox;
|
||
PropBox: TGroupBox;
|
||
Panel1: TPanel;
|
||
Panel2: TPanel;
|
||
WidthEdit: TEdit;
|
||
HeightEdit: TEdit;
|
||
ColorEdit: TComboBox;
|
||
AlignEdit: TComboBox;
|
||
ShapeEdit: TComboBox;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
Label4: TLabel;
|
||
Label5: TLabel;
|
||
Panel3: TPanel;
|
||
MultiButton: TSpeedButton;
|
||
Label6: TLabel;
|
||
Label7: TLabel;
|
||
IIEdit: TEdit;
|
||
IAEdit: TComboBox;
|
||
Tree: TdxOrgChart;
|
||
Panel4: TPanel;
|
||
CancelButton: TButton;
|
||
OKButton: TButton;
|
||
Panel5: TPanel;
|
||
InsButton: TSpeedButton;
|
||
CInsButton: TSpeedButton;
|
||
DelButton: TSpeedButton;
|
||
ZoomButton: TSpeedButton;
|
||
RotateButton: TSpeedButton;
|
||
Label8: TLabel;
|
||
TTEdit: TEdit;
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure SetColors(const S: String);
|
||
procedure SetNodeInfo(Node: TdxOcNode);
|
||
procedure Label1Click(Sender: TObject);
|
||
procedure InsButtonClick(Sender: TObject);
|
||
procedure CInsButtonClick(Sender: TObject);
|
||
procedure DelButtonClick(Sender: TObject);
|
||
procedure ZoomButtonClick(Sender: TObject);
|
||
procedure TreeChange(Sender: TObject; Node: TdxOcNode);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure WidthEditExit(Sender: TObject);
|
||
procedure HeightEditExit(Sender: TObject);
|
||
procedure ColorEditExit(Sender: TObject);
|
||
procedure AlignEditExit(Sender: TObject);
|
||
procedure ShapeEditExit(Sender: TObject);
|
||
procedure SetButtonClick(Sender: TObject);
|
||
procedure MultiButtonClick(Sender: TObject);
|
||
procedure FixButtonClick(Sender: TObject);
|
||
procedure WidthEditKeyDown(Sender: TObject; var Key: Word;
|
||
Shift: TShiftState);
|
||
procedure ColorEditKeyDown(Sender: TObject; var Key: Word;
|
||
Shift: TShiftState);
|
||
procedure IIEditExit(Sender: TObject);
|
||
procedure IAEditExit(Sender: TObject);
|
||
procedure RotateButtonClick(Sender: TObject);
|
||
procedure ColorEditClick(Sender: TObject);
|
||
procedure AlignEditClick(Sender: TObject);
|
||
procedure ShapeEditClick(Sender: TObject);
|
||
procedure TTEditExit(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
function ShowOrgChartEditor(ATree: TdxOrgChart): Boolean;
|
||
|
||
var
|
||
NodeInfo: TdxOcNodeInfo;
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
function ShowOrgChartEditor(ATree: TdxOrgChart): Boolean;
|
||
var
|
||
AForm: TfrmEChartEditor;
|
||
P: TPoint;
|
||
DX,DY: Integer;
|
||
begin
|
||
Result := False;
|
||
AForm := TfrmEChartEditor.Create(nil);
|
||
P.X := 0; P.Y := 0;
|
||
P := ATree.ClientToScreen(P);
|
||
P.X := P.X + 32;
|
||
P.Y := P.Y + 40;
|
||
DX := P.X + AForm.Width - Screen.Width;
|
||
DY := P.Y + AForm.Height - Screen.Height;
|
||
if DX > 0 then Dec(P.X,DX);
|
||
if DY > 0 then Dec(P.Y,DY);
|
||
if P.X < 0 then P.X := 0;
|
||
if P.Y < 0 then P.Y := 0;
|
||
AForm.Left := P.X; AForm.Top := P.Y;
|
||
with AForm.Tree do begin
|
||
SetLeftTop(0,0);
|
||
DefaultNodeWidth := ATree.DefaultNodeWidth;
|
||
DefaultNodeHeight := ATree.DefaultNodeHeight;
|
||
DefaultImageAlign := ATree.DefaultImageAlign;
|
||
LineWidth := ATree.LineWidth;
|
||
IndentX := ATree.IndentX;
|
||
IndentY := ATree.IndentY;
|
||
Images := ATree.Images;
|
||
EditMode := ATree.EditMode;
|
||
Font := ATree.Font;
|
||
Options := Options + ATree.Options;
|
||
Rotated := ATree.Rotated;
|
||
Zoom := ATree.Zoom;
|
||
AForm.ZoomButton.Down := Zoom;
|
||
AForm.RotateButton.Down := Rotated;
|
||
AssignData(ATree);
|
||
FullExpand;
|
||
end;
|
||
AForm.TreeChange(AForm.Tree,AForm.Tree.Selected);
|
||
AForm.ShowModal;
|
||
if AForm.ModalResult=mrOK then begin
|
||
ATree.AssignData(AForm.Tree);
|
||
ATree.Zoom := AForm.Tree.Zoom;
|
||
ATree.Rotated := AForm.Tree.Rotated;
|
||
ATree.FullExpand;
|
||
Result := True;
|
||
end;
|
||
AForm.Free;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.SetColors(const S: String);
|
||
begin
|
||
ColorEdit.Items.Add(S);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.FormCreate(Sender: TObject);
|
||
begin
|
||
GetColorValues(SetColors);
|
||
Caption := 'TdxOrgChart Items Editor';
|
||
TreeBox.Caption := 'Items';
|
||
PropBox.Caption := 'Item Properties';
|
||
CancelButton.Caption := 'Cancel';
|
||
InsButton.Hint := 'Insert new item';
|
||
CInsButton.Hint := 'Insert new subitem';
|
||
DelButton.Hint := 'Delete item';
|
||
ZoomButton.Hint := 'Zoom on/off';
|
||
RotateButton.Hint := '90<39> rotate on/off';
|
||
MultiButton.Hint := 'Set properties for all children of selected item';
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.Label1Click(Sender: TObject);
|
||
begin
|
||
TLabel(Sender).FocusControl.SetFocus;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.InsButtonClick(Sender: TObject);
|
||
var
|
||
N: TdxOcNode;
|
||
begin
|
||
N := Tree.Selected;
|
||
if (N=nil) or (N.GetNextSibling=nil) then N := Tree.Add(N,nil)
|
||
else N := Tree.Insert(N.GetNextSibling,nil);
|
||
if N<>nil then begin
|
||
Tree.Selected := N;
|
||
N.MakeVisible;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.CInsButtonClick(Sender: TObject);
|
||
var
|
||
N: TdxOcNode;
|
||
begin
|
||
N := Tree.Selected;
|
||
if N=nil then Exit;
|
||
N := Tree.AddChild(N,nil);
|
||
if N<>nil then begin
|
||
Tree.Selected := N;
|
||
N.MakeVisible;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.DelButtonClick(Sender: TObject);
|
||
begin
|
||
if Tree.Selected<>nil then Tree.Delete(Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.ZoomButtonClick(Sender: TObject);
|
||
begin
|
||
Tree.Zoom := ZoomButton.Down;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.TreeChange(Sender: TObject; Node: TdxOcNode);
|
||
begin
|
||
if Node=nil then begin
|
||
PropBox.Enabled := False;
|
||
PropBox.Font.Style := [];
|
||
end
|
||
else begin
|
||
PropBox.Enabled := True;
|
||
TTEdit.Text := Node.Text;
|
||
Node.GetNodeInfo(NodeInfo);
|
||
with NodeInfo do begin
|
||
WidthEdit.Text := IntToStr(Width);
|
||
HeightEdit.Text := IntToStr(Height);
|
||
ColorEdit.Text := ColorToString(Color);
|
||
AlignEdit.ItemIndex := Ord(Align);
|
||
ShapeEdit.ItemIndex := Ord(Shape);
|
||
IIEdit.Text := IntToStr(Index);
|
||
IAEdit.ItemIndex := Ord(IAlign);
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Tree.OnChange := nil;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.SetNodeInfo(Node: TdxOcNode);
|
||
begin
|
||
if Node=nil then Exit;
|
||
with NodeInfo do begin
|
||
Node.Width := Width;
|
||
Node.Height := Height;
|
||
Node.Color := Color;
|
||
Node.ChildAlign := Align;
|
||
Node.Shape := Shape;
|
||
Node.ImageIndex := Index;
|
||
Node.ImageAlign := IAlign;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.WidthEditExit(Sender: TObject);
|
||
begin
|
||
NodeInfo.Width := StrToInt(WidthEdit.Text);
|
||
SetNodeInfo(Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.HeightEditExit(Sender: TObject);
|
||
begin
|
||
NodeInfo.Height := StrToInt(HeightEdit.Text);
|
||
SetNodeInfo(Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.ColorEditExit(Sender: TObject);
|
||
var
|
||
C: LongInt;
|
||
begin
|
||
if not IdentToColor(ColorEdit.Text,C) then C := StrToInt('$'+ColorEdit.Text);
|
||
NodeInfo.Color := TColor(C);
|
||
SetNodeInfo(Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.AlignEditExit(Sender: TObject);
|
||
begin
|
||
NodeInfo.Align := TdxOcNodeAlign(AlignEdit.ItemIndex);
|
||
SetNodeInfo(Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.ShapeEditExit(Sender: TObject);
|
||
begin
|
||
NodeInfo.Shape := TdxOcShape(ShapeEdit.ItemIndex);
|
||
SetNodeInfo(Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.SetButtonClick(Sender: TObject);
|
||
begin
|
||
Tree.SetFocus;
|
||
SetNodeInfo(Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.MultiButtonClick(Sender: TObject);
|
||
var
|
||
I: Integer;
|
||
|
||
procedure SetNodeInfo_(Node: TdxOcNode);
|
||
var
|
||
i : Integer;
|
||
begin
|
||
SetNodeInfo(Node);
|
||
for i:=0 to Node.Count-1 do SetNodeInfo_(Node[i]);
|
||
end;
|
||
|
||
begin
|
||
Tree.SetFocus;
|
||
for I:=0 to Tree.Selected.Count-1 do SetNodeInfo_(Tree.Selected[I]);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.FixButtonClick(Sender: TObject);
|
||
begin
|
||
TreeChange(Tree,Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.WidthEditKeyDown(Sender: TObject; var Key: Word;
|
||
Shift: TShiftState);
|
||
begin
|
||
if Key=VK_RETURN then begin
|
||
TEdit(Sender).SelectAll;
|
||
TEdit(Sender).OnExit(Sender);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.ColorEditKeyDown(Sender: TObject; var Key: Word;
|
||
Shift: TShiftState);
|
||
begin
|
||
if (not ColorEdit.DroppedDown) and (Key=VK_RETURN) then begin
|
||
ColorEdit.SelectAll;
|
||
ColorEditExit(Sender);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.IIEditExit(Sender: TObject);
|
||
begin
|
||
NodeInfo.Index := StrToInt(IIEdit.Text);
|
||
SetNodeInfo(Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.IAEditExit(Sender: TObject);
|
||
begin
|
||
NodeInfo.IAlign := TdxOcImageAlign(IAEdit.ItemIndex);
|
||
SetNodeInfo(Tree.Selected);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.RotateButtonClick(Sender: TObject);
|
||
begin
|
||
Tree.Rotated := RotateButton.Down;
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.ColorEditClick(Sender: TObject);
|
||
begin
|
||
with ColorEdit do if Text=Items[ItemIndex] then ColorEditExit(Self);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.AlignEditClick(Sender: TObject);
|
||
begin
|
||
AlignEditExit(Sender);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.ShapeEditClick(Sender: TObject);
|
||
begin
|
||
ShapeEditExit(Sender);
|
||
end;
|
||
|
||
procedure TfrmEChartEditor.TTEditExit(Sender: TObject);
|
||
begin
|
||
if Tree.Selected <> nil then
|
||
Tree.Selected.Text := TTEdit.Text;
|
||
end;
|
||
|
||
end.
|