::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  신훈재(2003-03-10 02:14:58, Hit : 4390, Vote : 1031
 treeview 에 있는 내용을 출력하기

{ 이 부분은 컴포넌트를 Tree 로 보여주기 에 나와 있는}
{ 프로그램이다.                                     }
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls,Printers;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    TreeViewPrt: TButton;
    TreeView1: TTreeView;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    ListBox1: TListBox;
    Panel5: TPanel;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    Memo2: TMemo;
    RadioButton1: TRadioButton;
    Panel6: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure TreeViewPrtClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AddAComponent( A : TComponent);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.AddAComponent(A: TComponent);
var
  b : Integer;
begin
  for b := 0 to TreeView1.Items.Count-1 do
    if TreeView1.Items[b].Text = A.Name then exit;
  if A.HasParent then AddAComponent(A.GetParentComponent);
  for b := 0 to TreeView1.Items.Count-1 do
    if TreeView1.Items[b].Text = A.GetParentComponent.Name then
      TreeView1.Items.AddChild(TreeView1.Items[b],A.Name);

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  a : Integer;
begin
  TreeView1.Items.Add(TreeView1.Selected,Name);
  For a := 0 to ComponentCount-1 do AddAComponent(Components[a]);
   { 추가된 부분이다       }
  TreeView1.FullExpand;
end;

{ 위에 부분은 컴포넌트를 트리로 보여주기 에 나와 있는 }
{ 프로그램이다                                        }


{ 이부분이 TreeView 에 있는 내용을 출력하는 부분이다 }

procedure TForm1.TreeViewPrtClick(Sender: TObject);
begin
Printer.BeginDoc;
  try
    printer.canvas.moveto(100,100);
    SetMapMode( printer.canvas.handle, MM_ANISOTROPIC );
    SetWindowExtEx(printer.canvas.handle,
                   GetDeviceCaps(canvas.handle, LOGPIXELSX),
                   GetDeviceCaps(canvas.handle, LOGPIXELSY),
                   Nil);
    SetViewportExtEx(printer.canvas.handle,
                   GetDeviceCaps(printer.canvas.handle, LOGPIXELSX),
                   GetDeviceCaps(printer.canvas.handle, LOGPIXELSY),
                   Nil);
    treeview1.PaintTo( printer.canvas.handle, 100, 100 );
  finally
    printer.enddoc;
  end;
end;

end.





691   [일반/컴포넌트] 델파이 에디트에서 '}', ']', ')' 의 시작점을 찾아주는 단축키  구창민 2003/03/14 4108 1011
690   [일반/컴포넌트] 레지스트리를 사용하는 사용자 함수 만들어 보기  구창민 2003/03/14 4590 1034
689   [데이터베이스] DB에서 자음(ㄱ,ㄴ,ㄷ....)으로 SELECT 하기  김영대 2003/03/12 5011 1170
688   [일반/컴포넌트] TreeView 노드조회  신훈재 2003/03/11 5560 1056
687   [일반/컴포넌트] 델파이안에 익스플로러 삽입  신훈재 2003/03/10 5728 1024
686   [윈도우즈 API] 화면 캡쳐하여 JPEG로 저장  신훈재 2003/03/10 5015 1005
685   [윈도우즈 API] 휴지통에 파일을 버리는 법  신훈재 2003/03/10 4383 1136
  [윈도우즈 API] treeview 에 있는 내용을 출력하기  신훈재 2003/03/10 4390 1031
683   [윈도우즈 API] TreeView에 Data 사용법  신훈재 2003/03/10 4509 1043
682   [시스템] 시스템 고유의 ID 를 생성하려면...  김영대 2003/03/07 6307 1395
681   [일반/컴포넌트] TEdit의 Text를 left, center, right 정렬하기  김영대 2003/03/07 4483 1059
680   [윈도우즈 API] 마우스 위치의 콘트롤(콤포넌트)을 조사하기  김영대 2003/03/07 4226 1060
679   [네트웍/인터넷] Sending Raw IP Packets  김영대 2003/03/07 6151 1198
678   [네트웍/인터넷] 모든 TCP/IP interfaces 의 IP/Netmask 구하기  김영대 2003/03/07 5309 1175
677   [일반/컴포넌트] Outlook Express 설치여부 알아내기  김영대 2003/03/07 4740 1073
676   [네트웍/인터넷] HTTP 프로토콜을 이용하여 파일 다운받기  김영대 2003/03/07 6043 1581
675   [시스템] Windows 9x/ME/NT/2000/XP 버전 구별  김영대 2003/03/07 4465 1198
674   [시스템] mutex를 이용한 중복 실행 방지  김영대 2003/03/07 5793 1278
673   [네트웍/인터넷] HTTP로 파일 다운받기 (WinInet 이용)  김영대 2003/03/07 6000 1545
672   [일반/컴포넌트] TStringGrid 인쇄하기  김영대 2003/03/07 4621 1120
671   [시스템] 윈도우즈 공유폴더 리스트 얻기  김영대 2003/03/07 5103 1253
670   [네트웍/인터넷] HTTP로 파일 다운받기2 (WinInet 이용)  김영대 2003/03/07 6379 1597
669   [윈도우즈 API] IE 의 즐겨찾기 읽기  김영대 2003/03/07 5471 1430
668   [일반/컴포넌트] Convert UNIX, TDateTime  김영대 2003/03/07 6003 1535
667   [윈도우즈 API] Task bar 에 나타나지 않는 프로그램 만들기  김영대 2003/03/07 5632 1435
666   [데이터베이스] how to get records from Oracle StoredProcedure  김영대 2003/03/07 4270 1102
665   [일반/컴포넌트] 메인메뉴가 팝업될때 이벤트를 탈수있는방법  김영대 2003/03/07 6348 1657
664   [일반/컴포넌트] System Menu 의 닫기 메뉴 disable 시키기  김영대 2003/03/07 3554 955
663   [일반/컴포넌트] StringGrid - multiline text  김영대 2003/03/07 5747 1345
662   [일반/컴포넌트] TStringGrid 인쇄하기  김영대 2003/03/07 5410 1343
661   [일반/컴포넌트] RichEdit 에 tab 설정하기  김영대 2003/03/07 4001 1095
660   [시스템] Hooking methods (Application.OnMessage)  김영대 2003/03/07 6612 1467
659   [시스템] WndProc for TComonent  김영대 2003/03/07 4713 1295
658   [일반/컴포넌트] IE(Internet Explorer) toolbar 에 버튼 올리기  김영대 2003/03/07 4085 1045
657   [시스템] IP address 바꾸기  김영대 2003/03/07 5325 1332
656   [시스템] CPU 이름 구하기  김영대 2003/03/07 5096 1305
655   [시스템] process 가 사용한 메모리 구하기  김영대 2003/03/07 4540 1192
654   [시스템] ROM-BIOS 정보 읽기  김영대 2003/03/07 5101 1199
653   [시스템] Shutdown/Reboot/Logoff Windows 9x/NT/Me/2000 ?  김영대 2003/03/07 4885 1306
652   [일반/컴포넌트] 커서(캐럿)가 line 위에 있는지 검사하기  김영대 2003/03/07 3957 1035

[1][2][3][4][5][6][7] 8 [9][10]..[25] [다음 10개]
 

Copyright 1999-2019 Zeroboard / skin by zero