名前
題名
▼ Saraさん > みなさん、こんばんわ。 > > ShellCtrlsを変更してTShellListViewの更新日時に秒を追加したいです。 > > で、以下のようにすると、秒まで表示はされるのですが・・・ > > もっと、よい方法があったりしないかという確認だったりします。(^^; > > FileAgeなんか使わなくたって、ここに入ってるよ的なのがあると > 動作速度的に助かります(^^;（まぁこれでも遅くはないんですが・・・） > > いかがなものでしょうm(_ _)m > > function TCustomShellListView.OwnerDataFetch(Item: TListItem; > Request: TItemRequest): Boolean; > var > AFolder: TShellFolder; > J: integer; > Dt : TDateTime;//追加 > begin > Result := True; > AFolder := Folders[Item.Index]; > if not Assigned(AFolder) then exit; > > if (Item.Index > FFolders.Count - 1) or (Item.Index < 0) then Exit; > if irText in Request then > Item.Caption := AFolder.DisplayName; > if irImage in Request then > Item.ImageIndex := AFolder.ImageIndex(ViewStyle = vsIcon); > > if ViewStyle <> vsReport then Exit; > > AFolder.LoadColumnDetails(FRootFolder, Self.Handle, Columns.Count); > > // for J := 1 to Columns.Count - 1 do > // Item.SubItems.Add(AFolder.Details[J]) > //以下に変更 > for J := 1 to Columns.Count - 1 do begin > if j <> 3 then Item.SubItems.Add(AFolder.Details[J]) > else begin > FileAge(AFolder.PathName,Dt); > Item.SubItems.Add(FormatDateTime('yyyy/mm/dd hh:nn:ss',Dt)); > end; > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link