이런 툴도 있었군요. 아주 좋은 데요. 라자루스 찾아서 설치하고 잠깐 테스트 해봤는데...
라자루스에서 리스트뷰 콘트롤을 구현한 코드를 확인해 보니까, 델파이 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.
|