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

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


Category

  신훈재(2003-03-10 02:14:58, Hit : 4397, 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 4114 1011
690   [일반/컴포넌트] 레지스트리를 사용하는 사용자 함수 만들어 보기  구창민 2003/03/14 4596 1034
689   [데이터베이스] DB에서 자음(ㄱ,ㄴ,ㄷ....)으로 SELECT 하기  김영대 2003/03/12 5015 1170
688   [일반/컴포넌트] TreeView 노드조회  신훈재 2003/03/11 5578 1058
687   [일반/컴포넌트] 델파이안에 익스플로러 삽입  신훈재 2003/03/10 5762 1024
686   [윈도우즈 API] 화면 캡쳐하여 JPEG로 저장  신훈재 2003/03/10 5045 1006
685   [윈도우즈 API] 휴지통에 파일을 버리는 법  신훈재 2003/03/10 4386 1137
  [윈도우즈 API] treeview 에 있는 내용을 출력하기  신훈재 2003/03/10 4397 1031
683   [윈도우즈 API] TreeView에 Data 사용법  신훈재 2003/03/10 4527 1043
682   [시스템] 시스템 고유의 ID 를 생성하려면...  김영대 2003/03/07 6359 1416
681   [일반/컴포넌트] TEdit의 Text를 left, center, right 정렬하기  김영대 2003/03/07 4486 1059
680   [윈도우즈 API] 마우스 위치의 콘트롤(콤포넌트)을 조사하기  김영대 2003/03/07 4247 1061
679   [네트웍/인터넷] Sending Raw IP Packets  김영대 2003/03/07 6162 1199
678   [네트웍/인터넷] 모든 TCP/IP interfaces 의 IP/Netmask 구하기  김영대 2003/03/07 5320 1177
677   [일반/컴포넌트] Outlook Express 설치여부 알아내기  김영대 2003/03/07 4745 1074
676   [네트웍/인터넷] HTTP 프로토콜을 이용하여 파일 다운받기  김영대 2003/03/07 6048 1581
675   [시스템] Windows 9x/ME/NT/2000/XP 버전 구별  김영대 2003/03/07 4473 1199
674   [시스템] mutex를 이용한 중복 실행 방지  김영대 2003/03/07 6441 1453
673   [네트웍/인터넷] HTTP로 파일 다운받기 (WinInet 이용)  김영대 2003/03/07 6020 1547
672   [일반/컴포넌트] TStringGrid 인쇄하기  김영대 2003/03/07 4623 1120
671   [시스템] 윈도우즈 공유폴더 리스트 얻기  김영대 2003/03/07 5135 1253
670   [네트웍/인터넷] HTTP로 파일 다운받기2 (WinInet 이용)  김영대 2003/03/07 6405 1598
669   [윈도우즈 API] IE 의 즐겨찾기 읽기  김영대 2003/03/07 5479 1432
668   [일반/컴포넌트] Convert UNIX, TDateTime  김영대 2003/03/07 6010 1537
667   [윈도우즈 API] Task bar 에 나타나지 않는 프로그램 만들기  김영대 2003/03/07 5635 1436
666   [데이터베이스] how to get records from Oracle StoredProcedure  김영대 2003/03/07 4276 1107
665   [일반/컴포넌트] 메인메뉴가 팝업될때 이벤트를 탈수있는방법  김영대 2003/03/07 6352 1658
664   [일반/컴포넌트] System Menu 의 닫기 메뉴 disable 시키기  김영대 2003/03/07 3555 955
663   [일반/컴포넌트] StringGrid - multiline text  김영대 2003/03/07 5761 1346
662   [일반/컴포넌트] TStringGrid 인쇄하기  김영대 2003/03/07 5414 1344
661   [일반/컴포넌트] RichEdit 에 tab 설정하기  김영대 2003/03/07 4006 1096
660   [시스템] Hooking methods (Application.OnMessage)  김영대 2003/03/07 6647 1467
659   [시스템] WndProc for TComonent  김영대 2003/03/07 4720 1296
658   [일반/컴포넌트] IE(Internet Explorer) toolbar 에 버튼 올리기  김영대 2003/03/07 4090 1047
657   [시스템] IP address 바꾸기  김영대 2003/03/07 5338 1333
656   [시스템] CPU 이름 구하기  김영대 2003/03/07 5106 1305
655   [시스템] process 가 사용한 메모리 구하기  김영대 2003/03/07 4546 1192
654   [시스템] ROM-BIOS 정보 읽기  김영대 2003/03/07 5109 1200
653   [시스템] Shutdown/Reboot/Logoff Windows 9x/NT/Me/2000 ?  김영대 2003/03/07 4893 1307
652   [일반/컴포넌트] 커서(캐럿)가 line 위에 있는지 검사하기  김영대 2003/03/07 3958 1035

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

Copyright 1999-2019 Zeroboard / skin by zero