FileAttributesByListItem method
|
FileAttributesByListItem method
|
|
| dcFolderListView component.
|
| function FileAttributesByListItem(ListItem: TListItem): TdcScanAttributes;
|
| The FileAttributesByListItem method returns the file attributes by list item of the dcFolderListView.
|
| procedure TForm1.dcFolderListView1Click(Sender: TObject);
|
| var
|
| Pos: TPoint;
|
| ListItem: TListItem;
|
| begin
|
| with dcFolderListView1 do
|
| begin
|
| { determination of the mouse position }
|
| GetCursorPos(Pos);
|
| Pos := ScreenToClient(Pos);
|
|
|
| { determination of the list item by mouse position }
|
| ListItem := GetItemAt(Pos.X, Pos.Y);
|
| if ListItem <> nil then
|
| if saDirectory in FileAttributesByListItem(ListItem) then
|
| begin
|
| ShowMessage('Click on directory');
|
| end;
|
| end;
|
| end;
|
| FileNameByListItem, FileSizeByListItem, FileTypeByListItem, FileTimeByListItem, FileAttributesByListItem and ListItemByFileName methods.
|