FreePascal Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
FreePacal 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

FreePascal Q&A
[119] [재질문][답변] Tree 콘트롤에서 Checked Box
MarunGuy [marunguy] 2829 읽음    2013-06-11 16:08
윈도우즈에서 지원되는 Tree Control 자체가 원래 Checked Box 기능을 갖고 있지만
VCL, LCL 같은 컴포넌트에서 그걸 지원하도록 만들어 있지 않을 뿐임.

    LONG style = ::GetWindowLong(WindowHandle, GWL_STYLE);
    ::SetWindowLong(WindowHandle, GWL_STYLE, style |  TVS_CHECKBOXES );

위와 같은식으로 TreeView 콘트롤에 TVS_CHECKBOXES  스타일만 추가하면 됨.


라자루스(CodeTyphon 4.3) 에서 TShellTreeView, TTreeView 콘트롤 두개에서 테스트했는데 CheckBox 가 안 생깁니다.
디버거로 GetWindowLongPtrW, SetWindowLongPtrW 함수의 리턴값을 조사해봐도 정상인데 말이죠.

TShellTreeView, TTreeView 콘트롤의 Class Name 이 모두 Window 로 되어있는데 정상인지 모르겠습니다.
LCL 의 TShellTreeView, TTreeView 콘트롤이 Win32 TreeView 콘트롤을 사용하지 않고 자체적으로 구현된게 아닌가 싶습니다.

procedure TForm1.FormCreate(Sender: TObject);
var style: Windows.LONG_PTR;
  styleret: Windows.LONG_PTR;
begin
  style := 0;
  styleret := 0;
  style := Windows.GetWindowLongPtrW(Self.ShellTreeView1.Handle, Windows.GWL_STYLE);
  Windows.SetLastError(Windows.ERROR_SUCCESS);
  // TVS_CHECKBOXES = 256.
  styleret := Windows.SetWindowLongPtrW(Self.ShellTreeView1.Handle, Windows.GWL_STYLE, style or 256 );

  style := 0;
  styleret := 0;
  style := Windows.GetWindowLongPtrW(Self.TreeView1.Handle, Windows.GWL_STYLE);
  Windows.SetLastError(Windows.ERROR_SUCCESS);
  // TVS_CHECKBOXES = 256.
  styleret := Windows.SetWindowLongPtrW(Self.TreeView1.Handle, Windows.GWL_STYLE, style or 256 );
end;  


+ -

관련 글 리스트
119 [재질문][답변] Tree 콘트롤에서 Checked Box MarunGuy 2829 2013/06/11
121     Re:[재질문][답변] Tree 콘트롤에서 Checked Box 김도완 2895 2013/06/17
122         Re:Re:[재질문][답변] Tree 콘트롤에서 Checked Box MarunGuy 4948 2013/06/18
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.