DevExpress 강좌 Archives - 5 중 2 번째 페이지

cxTreeList에서 노드를 검색한후에 하위(Child)의 내용을 검사한다.

procedure TForm1.Button1Click(Sender: TObject); 
 var
  I: Integer;
  노드, 노드2 : TcxTreeListNode;
begin
  for I := 0 to cxTreeList1.AbsoluteCount - 1 do
  begin
    if cxTreeList1.AbsoluteItems[i].Values[0] = '작업1' then
    begin
      노드 := cxTreeList1.AbsoluteItems[i];
      Break;
    end;

  end;

  노드2 := 노드.getFirstChild;
  while 노드2 <> nil do
  begin
    if  노드2.Values[0] = '2' then
      Break;
    노드2 := 노드.GetNextChild( 노드2 );
  end;


  if 노드2 <> nil then
    노드.AddChild;

end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

procedure TForm1.Button1Click(Sender: TObject);

var

I: Integer;

노드, 노드2 : TcxTreeListNode;

begin

for I := 0 to cxTreeList1.AbsoluteCount - 1 do

begin

if cxTreeList1.AbsoluteItems[i].Values[0] = '작업1' then

begin

노드 := cxTreeList1.AbsoluteItems[i];

Break;

end;

노드2 := 노드.getFirstChild;

while 노드2 <> nil do

begin

if 노드2.Values[0] = '2' then

Break;

노드2 := 노드.GetNextChild( 노드2 );

end;

if 노드2 <> nil then

노드.AddChild;

end;

cxComboBox의 내용을 Code로 조회할때 사용하는 법

cxComboBox의 내용을 조회할때 값외에 코드나 기타 사항을 저장하기 위해 작업하는 내용입니다. 보여지는 값과 가져와야할 코드의 값을 따로 가져와야 할경우 유용하게 사용할듯 합니다.

type
  포인트레코드 = ^레코드;
  레코드 = record
    Code : String;
    name : String;
    data : Integer;
  end;

procedure TForm1.버튼넣기Click(Sender: TObject);
var
  p : 포인트레코드;
  I: Integer;
begin

  cxCheckComboBox1.Properties.Items.Clear;

  for I := 0 to 10 do
  begin
    New( p );
    p^.Code := IntToStr(i);
    p^.name := '김말동 - ' + IntToStr(i);
    p^.data := i;

    with cxCheckComboBox1.Properties.Items.Add do
    begin
      Description := p^.name;
      Tag := Integer( p );
    end;

  end;


end;

procedure TForm1.버튼_찾기Click(Sender: TObject);
var
  p : 포인트레코드;
  I: Integer;
begin

  ListBox1.Items.Clear;
  for I := 0 to cxCheckComboBox1.Properties.Items.Count - 1 do
  begin
    if cxCheckComboBox1.States[i] = cbsChecked then
    begin
      p := Pointer( cxCheckComboBox1.Properties.Items[i].Tag );
      ListBox1.Items.Add( P^.name );
    end;
  end;

end;

procedure TForm1.버튼_지우기Click(Sender: TObject);
var
  p : 포인트레코드;
  I: Integer;
begin

  for I := 10 downto 0 do
  begin
    p := Pointer( cxCheckComboBox1.Properties.Items[i].Tag );
    Dispose( p );
  end;

  cxCheckComboBox1.Properties.Items.Clear;

end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

type

포인트레코드 = ^레코드;

레코드 = record

Code : String;

name : String;

data : Integer;

end;

procedure TForm1.버튼넣기Click(Sender: TObject);

var

p : 포인트레코드;

I: Integer;

begin

cxCheckComboBox1.Properties.Items.Clear;

for I := 0 to 10 do

begin

New( p );

p^.Code := IntToStr(i);

p^.name := '김말동 - ' + IntToStr(i);

p^.data := i;

with cxCheckComboBox1.Properties.Items.Add do

begin

Description := p^.name;

Tag := Integer( p );

end;

procedure TForm1.버튼_찾기Click(Sender: TObject);

var

p : 포인트레코드;

I: Integer;

begin

ListBox1.Items.Clear;

for I := 0 to cxCheckComboBox1.Properties.Items.Count - 1 do

begin

if cxCheckComboBox1.States[i] = cbsChecked then

begin

p := Pointer( cxCheckComboBox1.Properties.Items[i].Tag );

ListBox1.Items.Add( P^.name );

end;

procedure TForm1.버튼_지우기Click(Sender: TObject);

var

p : 포인트레코드;

I: Integer;

begin

for I := 10 downto 0 do

begin

p := Pointer( cxCheckComboBox1.Properties.Items[i].Tag );

Dispose( p );

end;

cxCheckComboBox1.Properties.Items.Clear;

end;

cxTreeList의 내용을 복사하기

cxTreeList의 내용을 복사하기 DBTreelist이든 일반이던 모든 내용을 복사 합니다.

var
  i,j : Integer;
  N : TcxTreeListNode;
begin
  for I := 0 to aaaa.AbsoluteCount - 1 do
  begin
    if aaaa.AbsoluteItems[ i ].Parent = aaaa.AbsoluteItems[ i ].Root then
    begin
      with bbbb.AddNode( nil, nil, nil, tlamAddChild ) do
      begin
        values[0] := aaaa.AbsoluteItems[ i ].Values[0];
        values[1] := aaaa.AbsoluteItems[ i ].Values[1];
        values[2] := aaaa.AbsoluteItems[ i ].Values[3];
      end;

    end
    else
    begin
          N := nil;
          for j := 0 to bbbb.AbsoluteCount - 1 do
            if bbbb.AbsoluteItems[j].Values[0] = aaaa.AbsoluteItems[ i ].Values[1] then
            begin
              N := bbbb.AbsoluteItems[j];
              Break;
            end;

      with bbbb.AddNode( nil, N, nil, tlamAddChild ) do
      begin
        values[0] := aaaa.AbsoluteItems[ i ].Values[0];
        values[1] := aaaa.AbsoluteItems[ i ].Values[1];
        values[2] := aaaa.AbsoluteItems[ i ].Values[3];
      end;

    end;

    end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

var

i,j : Integer;

N : TcxTreeListNode;

begin

for I := 0 to aaaa.AbsoluteCount - 1 do

begin

if aaaa.AbsoluteItems[ i ].Parent = aaaa.AbsoluteItems[ i ].Root then

begin

with bbbb.AddNode( nil, nil, nil, tlamAddChild ) do

begin

values[0] := aaaa.AbsoluteItems[ i ].Values[0];

values[1] := aaaa.AbsoluteItems[ i ].Values[1];

values[2] := aaaa.AbsoluteItems[ i ].Values[3];

end;

end

else

begin

N := nil;

for j := 0 to bbbb.AbsoluteCount - 1 do

if bbbb.AbsoluteItems[j].Values[0] = aaaa.AbsoluteItems[ i ].Values[1] then

begin

N := bbbb.AbsoluteItems[j];

Break;

end;

with bbbb.AddNode( nil, N, nil, tlamAddChild ) do

begin

values[0] := aaaa.AbsoluteItems[ i ].Values[0];

values[1] := aaaa.AbsoluteItems[ i ].Values[1];

values[2] := aaaa.AbsoluteItems[ i ].Values[3];

end;

퀀텀그리드(cxGrid) 드래그 드롭하기…

procedure TForm2.cxGrid2TableView1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  Source_Site: TcxGridSite;
  Sender_Site: TcxGridSite;
  idx,
  복사할위치,
  복사당할위치 : Integer;
  복사당할_레코드 : TcxCustomGridRecord;
begin
  if ( Source is TcxDragControlObject ) then
  begin
    Source_Site := TcxGridSite( TcxDragControlObject(Source).Control );
    Sender_Site := TcxGridSite(Sender); // TcxGridSite( TcxDragControlObject(Sender).Control );

    if Source_Site.GridView is TcxGridTableView then
    begin
      // TcxGridTableView ( 그리드_사이트.GridView ).ViewInfo.GetHitTest( Point( x,y ) ) )

//     복사할위치 := TcxGridTableView ( TcxGridSite( TcxDragControlObject(Source).Control ).GridView ).Controller.SelectedRecords[0];
      if TcxGridTableView ( Sender_Site.GridView ).ViewInfo.GetHitTest( Point( x,y ) ) is TcxGridRecordCellHitTest then
        복사당할_레코드 :=
           TcxGridRecordCellHitTest(
                    TcxGridTableView ( Sender_Site.GridView ).ViewInfo.GetHitTest( Point( x,y ) )
                ).GridRecord
      else
        복사당할_레코드 := nil;


     if 복사당할_레코드 &lt;&gt; nil then
       idx := TcxGridTableView ( Sender_Site.GridView ).DataController.InsertRecord( 복사당할_레코드.RecordIndex  )
     else
        idx :=  TcxGridTableView( Sender_Site.GridView ).DataController.AppendRecord;

        TcxGridTableView ( Sender_Site.GridView ).DataController.Values[ idx, 0 ] :=
            TcxGridTableView ( Source_Site.GridView ).Controller.SelectedRecords[0].Values[0];
    end;
  end;
end;


procedure TForm2.cxGrid2TableView1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var
  그리드_사이트: TcxGridSite;
begin
  if ( Source is TcxDragControlObject ) then
  begin
    그리드_사이트 := TcxGridSite( TcxDragControlObject(Source).Control );
    if 그리드_사이트.GridView is TcxGridTableView then
    begin
      Accept := TcxGridTableView ( 그리드_사이트.GridView ) = cxGrid1TableView1;

    end;
  end;

end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

procedure TForm2.cxGrid2TableView1DragDrop(Sender, Source: TObject; X,

Y: Integer);

var

Source_Site: TcxGridSite;

Sender_Site: TcxGridSite;

idx,

복사할위치,

복사당할위치 : Integer;

복사당할_레코드 : TcxCustomGridRecord;

begin

if ( Source is TcxDragControlObject ) then

begin

Source_Site := TcxGridSite( TcxDragControlObject(Source).Control );

Sender_Site := TcxGridSite(Sender); // TcxGridSite( TcxDragControlObject(Sender).Control );

if Source_Site.GridView is TcxGridTableView then

begin

// TcxGridTableView ( 그리드_사이트.GridView ).ViewInfo.GetHitTest( Point( x,y ) ) )

// 복사할위치 := TcxGridTableView ( TcxGridSite( TcxDragControlObject(Source).Control ).GridView ).Controller.SelectedRecords[0];

if TcxGridTableView ( Sender_Site.GridView ).ViewInfo.GetHitTest( Point( x,y ) ) is TcxGridRecordCellHitTest then

복사당할_레코드 :=

TcxGridRecordCellHitTest(

TcxGridTableView ( Sender_Site.GridView ).ViewInfo.GetHitTest( Point( x,y ) )

).GridRecord

else

복사당할_레코드 := nil;

if 복사당할_레코드 <> nil then

idx := TcxGridTableView ( Sender_Site.GridView ).DataController.InsertRecord( 복사당할_레코드.RecordIndex )

else

idx := TcxGridTableView( Sender_Site.GridView ).DataController.AppendRecord;

TcxGridTableView ( Sender_Site.GridView ).DataController.Values[ idx, 0 ] :=

TcxGridTableView ( Source_Site.GridView ).Controller.SelectedRecords[0].Values[0];

end;

procedure TForm2.cxGrid2TableView1DragOver(Sender, Source: TObject; X,

Y: Integer; State: TDragState; var Accept: Boolean);

var

그리드_사이트: TcxGridSite;

begin

if ( Source is TcxDragControlObject ) then

begin

그리드_사이트 := TcxGridSite( TcxDragControlObject(Source).Control );

if 그리드_사이트.GridView is TcxGridTableView then

begin

Accept := TcxGridTableView ( 그리드_사이트.GridView ) = cxGrid1TableView1;

end;

  for I := 0 to GetExtendedStylePainters.Count - 1 do
    ListBox1.Items.Add( GetExtendedStylePainters.Items[i].Name );

1 2	for I := 0 to GetExtendedStylePainters.Count - 1 do ListBox1.Items.Add( GetExtendedStylePainters.Items[i].Name );

2번째는

var
  i : Integer;
  AResNameList, ASkinNameList : TStringList;
begin
  AResNameList := TStringList.Create;
  ASkinNameList := TStringList.Create;

    dxSkinsPopulateSkinResources(HInstance, AResNameList, ASkinNameList);
    for I := 0 to ASkinNameList.Count - 1 do
      ListBox1.Items.Add( ASkinNameList[i] + ' - '  + AResNameList[I] );

1

2

3

4

5

6

7

8

9

10

var

i : Integer;

AResNameList, ASkinNameList : TStringList;

begin

AResNameList := TStringList.Create;

ASkinNameList := TStringList.Create;

dxSkinsPopulateSkinResources(HInstance, AResNameList, ASkinNameList);

for I := 0 to ASkinNameList.Count - 1 do

ListBox1.Items.Add( ASkinNameList[i] + ' - ' + AResNameList[I] );

입니다.

EagleSoft

[카테고리:] DevExpress 강좌

cxTreeList에서 노드를 검색한후에 하위(Child)의 내용을 검사한다.

cxComboBox의 내용을 Code로 조회할때 사용하는 법

cxTreeList의 내용을 복사하기

퀀텀그리드(cxGrid) 드래그 드롭하기…

TcxGridTableView 와 TcxGridLevel의 동적생성

DevExpress의 cxGrid에서 특정 컬럼만 Fixed Column을 설정하는 방법

DevExpress 6.xx 버젼의 Skinres 파일 사용하기

cxGrid에서 원하는 위치에 Focus를 옮기기…

cxGrid 에서 Ctrl+C 한 내용을 Clipboard에 넣고 붙이기….

Devexpress(퀀텀) Skin에서 현재 활성화된 모든 Skin의 이름을 가져오기…

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글