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

델파이 Q&A
Delphi Programming Q&A
[14118] Re:Re:Re:Re: 라자루스에서 처리방법
빌더 [] 1781 읽음    2012-02-15 23:04
이런 툴도 있었군요. 아주 좋은 데요. 라자루스 찾아서 설치하고 잠깐 테스트 해봤는데...
라자루스에서 리스트뷰 콘트롤을 구현한 코드를 확인해 보니까, 델파이 VCL 코드 보다는
조금 비효율적인 방식으로 구현되어 있고, Win32 ListView Control 자체가 갖고있는 고유한
특성을 반영하고 있지 못하네요.


라자루스에선 아래와 같은 식으로 처리하면 됩니다.


unit Unit1; 

{$mode objfpc}{$H+}
interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, Win32WSComCtrls, Windows;

type

  { TForm1 }

  TForm1 = class(TForm)
    ListView1: TListView;
    procedure ListView1Resize(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ListView1Resize(Sender: TObject);
begin
    ListView_SetColumnWidth(ListView1.Handle, 1, -2);
end;

end.


+ -

관련 글 리스트
14105 TListView 에서 마지막 컬럼의 오른쪽끝을 TListView 영역의 오른쪽끝으로 설정하려면? MarunGuy 1737 2012/02/14
14108     Re:TListView 에서 마지막 컬럼의 오른쪽끝을 TListView 영역의 오른쪽끝으로 설정하려면? kylix 1839 2012/02/15
14110         Re:Re: 더 간단하게 처리하는 방법 빌더 1768 2012/02/15
14114             Re:Re:Re: 더 간단하게 처리하는 방법 MarunGuy 1788 2012/02/15
14118                 Re:Re:Re:Re: 라자루스에서 처리방법 빌더 1781 2012/02/15
14120                     Re:Re:Re:Re:Re: 라자루스에서 처리방법 MarunGuy 1738 2012/02/15
14115                 Re:Re:Re:Re: 더 간단하게 처리하는 방법 빌더 1702 2012/02/15
14116                     라자루스는 멀티플랫폼 파스칼 개발환경이에요. 오랑캐꽃 1847 2012/02/15
14119                         Re:라자루스는 멀티플랫폼 파스칼 개발환경이에요. 빌더 1887 2012/02/15
14113             Re:Re:Re: 더 간단하게 처리하는 방법 - 이런방법이 있었군요 장성호 1779 2012/02/15
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.