ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽｿｽｿｽc 2006/08/27(ｿｽｿｽ) 16:51:06

ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾂ具ｿｽｿｽｿｽDelphi6 PersonalｿｽﾅゑｿｽｿｽB
ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽﾉ全ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ竄ｪｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBListviewｿｽﾅアｿｽCｿｽRｿｽｿｽｿｽｿｽvsIconｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ100*100ｿｽﾌ大きｿｽｿｽｿｽﾌサｿｽｿｽｿｽlｿｽCｿｽｿｽｿｽ鞫懶ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽCｿｽeｿｽｿｽｿｽﾌ間隔ｿｽｿｽｿｽ蛯ｫｿｽｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽB
ｿｽｿｽｿｽﾌ回答ゑｿｽ
function ListView_SetIconSpacing(hwndLV: HWND; cx, cy: Word): DWORD;
ｿｽｿｽgｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾔんこの趣ｿｽｿｽｿｽﾒは暦ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ暦ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
Googleｿｽﾅ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽﾌ例がｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇのようｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾄ使ｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽAｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBm(_ _)m

ｿｽｿｽｿｽc 2006/08/27(ｿｽｿｽ) 17:21:58

ｿｽﾇ会ｿｽｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽTｿｽCｿｽgｿｽｿｽQｿｽlｿｽﾉテｿｽXｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
var SearchRec: TSearchRec;
begin
    ListView1.Items.Clear;
    if FindFirst('C:¥Documents and Settings¥go¥ｿｽfｿｽXｿｽNｿｽgｿｽbｿｽv¥Temp' + '¥*', faDirectory, SearchRec) = 0 then
    begin
        repeat
            if (SearchRec.Attr and faDirectory) = 0 then  ListView1.Items.Add;
        until FindNext(SearchRec) <> 0;
        FindClose(SearchRec);
    end;
end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
 var
  SHFileInfo: TSHFileInfo;  //ｿｽSｿｽﾄのフｿｽ@ｿｽCｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾇ会ｿｽ
  IconHandle: HICON;        //ｿｽSｿｽﾄのフｿｽ@ｿｽCｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾇ会ｿｽ
  ARect: TRect;
begin
  ListView1.Canvas.Brush.Color := GetSysColor(COLOR_WINDOW);

  ARect := Item.DisplayRect(drIcon);
  ARect.Left := ARect.Left + Trunc((ARect.Right - ARect.Left - ImageList1.Width) / 2);
  ARect.Right := ARect.Left + ImageList1.Width;
  ARect.Top := ARect.Top + Trunc((ARect.Bottom - ARect.Top - ImageList1.Height) / 2);
  ARect.Bottom := ARect.Top + ImageList1.Height;
  ListView1.Canvas.FillRect(ARect);
    // ｿｽAｿｽCｿｽRｿｽｿｽｿｽ`ｿｽｿｽ
    SHGetFileInfo( PChar(ExtractFileExt(Item.Caption)),  0, SHFileInfo, Sizeof(TSHFileInfo),
      SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_TYPENAME);
    IconHandle := SHFileInfo.hIcon;
    DrawIconEx( ListView1.Canvas.Handle, ARect.Left + (ARect.Right - ARect.Left - 32) div 2,
      ARect.Top + (ARect.Bottom - ARect.Top - 32) div 2, IconHandle, 32, 32, 0, 0, DI_NORMAL);
    DestroyIcon(IconHandle);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    ListView1.LargeImages.Height:=100;
    ListView1.LargeImages.Width:=100;
    ListView1.ViewStyle:=vsIcon;
    ListView1.IconOptions.Arrangement:=iaTop;
    ListView1.IconOptions.AutoArrange:=true;
    ListView1.OwnerData:=true;
    ListView1.OwnerDraw:=true;
end;

F.N 2006/08/29(ｿｽｿｽ) 17:41:25

usesｿｽｿｽCommCtrlｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄ　ｿｽｿｽｿｽYｿｽｿｽﾈゑｿｽ

ListView_SetIconSpacing(ListView1.Handle, ListView1.LargeImages.Width+10,ListView1.LargeImages.Height+20);//ｿｽｿｽ10,ｿｽc20ｿｽﾌ間隔ｿｽｿｽけゑｿｽ

F.N 2006/08/29(ｿｽｿｽ) 18:17:41

ｿｽｿｽｿｽﾈみに・ｿｽEｿｽEｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾈゑｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾆ抵ｿｽｿｽﾗてみゑｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｻｿｽｿｽｿｽﾅゑｿｽ

ListView1.Perform($1035, 0, MakeLong(ListView1.LargeImages.Width+10, ListView1.LargeImages.Height+20)); //const LVM_SETICONSPACING = $1035

ｿｽｿｽｿｽ[ｿｽｿｽ 2006/08/29(ｿｽｿｽ) 18:27:06

>ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｻｿｽｿｽｿｽﾅゑｿｽ

ｿｽOｿｽﾒは、ｿｽｿｽﾒのマｿｽNｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。Delphi ｿｽﾅは、ｿｽvｿｽｿｽｿｽvｿｽｿｽｿｽZｿｽbｿｽTｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ
ｿｽﾖ撰ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽRｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ場合ｿｽAｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾌマｿｽNｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽ骭ｾｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽc 2006/09/01(ｿｽｿｽ) 20:23:57

FNｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ[ｿｽﾆゑｿｽｿｽご指ｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾟてゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽﾄ度ｿｽKｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾓゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽしｿｽｿｽｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
m(_ _)m

Created by board of various Programming Library.