와우~ 처음 사용해보는데도 소스분석까지해서 가르쳐주시다니~~
라자루스는 멀티플랫폼을 지원하다보니 OS에 의존적인 특성은 지원하지 않는듯합니다.
그런 부분은 Win32 같은 Native API 로 어느 정도 커버할 수 있을 것 같기도 하고..
빌더 님이 쓰신 글 :
: 이런 툴도 있었군요. 아주 좋은 데요. 라자루스 찾아서 설치하고 잠깐 테스트 해봤는데...
: 라자루스에서 리스트뷰 콘트롤을 구현한 코드를 확인해 보니까, 델파이 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.
:
: |