Переход по папкам

[HTTqp]

Люди помоги уже голова кипит. Суть такая, организовал шаги по папкам туда обратно ну и запуск если это файл, проблема в том что передвижение по папкам нормально, но вот запуск не осуществляется. Объясню почему тут все так сложно и используется SR:TSearchRec; все из-за того что в ListView файлы выходят без расширения (то есть вот так ChangeFileExt(SR.Name,'')), для более симпатии. Но потом снова приходится проверять что это папка или файла. Вобщем вот код:

{Переход по папкам лево}
procedure TForm1.ListView1DblClick(Sender: TObject);
var
Dir:String; //Переменная для пути которая отображается для пользователя в Label1
SR:TSearchRec;
begin
Dir:=Label1.Caption;
if ListView1.Selected.Caption='..' then
 begin
  Dir:=ExtractFilePath(ExtractFileDir(Label1.Caption));{Шаг назад по папке}
  UpdateFile(ListView1,ImageList1,Dir);{Обновления}
  Label1.Caption:=Dir;
 end
  else
   begin
    dir:=Dir+ListView1.Selected.Caption;
    if FindFirst(Dir,faAnyFile,SR)=NO_ERROR then{Проверяем отсутствие ошибок}
     if (SR.Attr and faDirectory)=faDirectory then
      begin
       Dir:=Dir+pref;
       UpdateFile(ListView1,ImageList1,Dir);{Обновления Лево}
       Label1.Caption:=Dir;
      end
       else
       begin
       if ListView2.Selected.Caption=ChangeFileExt(SR.Name,'') then
        begin
         Dir:=Label1.Caption+SR.Name;
         ShellExecute(Handle,nil,PChar(Dir),nil,nil,SW_SHOW);
        end;
       end;
   end;
end;

Пытался облегчить но увы получилось только так. И прошу не говорить про то что скопировал, код сам писал и вот может по этому проблемки)

[Stilet]

для более симпатии

Ну это тебе и аукнулось.
Уж лучше бы сделал колонку в ЛистВью либо невидимой лобо шириной в ноль, и там хранил расширение.
Хотя на твоем месте я бы расширение не прятал. Наверное ты не сталкивался с боками .doc и .docx особенно когда имя файла одно и то же, но благодаря расширению файлы разные.
Если хочешь такой красоты опиши OnDrawItem Для Листвью и попросту отрисовывай без расширения.

[HTTqp]

Сообщение от Stilet

Ну это тебе и аукнулось.
Уж лучше бы сделал колонку в ЛистВью либо невидимой лобо шириной в ноль, и там хранил расширение.
Хотя на твоем месте я бы расширение не прятал. Наверное ты не сталкивался с боками .doc и .docx особенно когда имя файла одно и то же, но благодаря расширению файлы разные.
Если хочешь такой красоты опиши OnDrawItem Для Листвью и попросту отрисовывай без расширения.

Блин насколько все просто) Только параллельно еще вопрос как спрятать колонку, пробовал так

ListView1.Column[1].Width:=0;
ListView1.Column[1].MaxWidth:=0;

Но все равно ее можно раздвинуть, в чем косяк?

[Stilet]

Ну раздвинуть это да. Это я так сказать погорячился.
Потому я и намекнул на OnDrawItem.

[Аватар]

Колонку можно и не делать. А сделать не отображаемый subitem

[HTTqp]

Сообщение от Аватар

Колонку можно и не делать. А сделать не отображаемый subitem

Хорошо а как занести, а потом использовать из не отображаемого subitem?

[Alter]

Что мешает как в тотале показывать колонку с расширением? И прятать колонку расширения не нужно. В нем нет отображения файла в таком виде [%filename%], там просто %filename%.%ext%
Со скобками, например, отображает тотал только папки [%dir%]
* Еще гибче VirtualStringTree. Отрисовывает как захотите.

[HTTqp]

Alter , у меня также. я пытался присоединить первый строку из первой колонки со второй строкой, второй колонки. Но не получается не знаю как осуществить. Как дать понять что нужно присоеденить соседнюю строку.

[Alter]

Там же есть SubItems. И писать имя столбца "Формат" не верно. Правильнее "Расширение".

Пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

const
  ExtF :array[0..5] of string = ('pif', 'exe', 'lnk', 'com', 'avi', '[Папка]');

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  N :Byte;
  Itm :TListItem;
begin // генерируем строку имени "файла/папки"
 Itm := ListView1.Items.Add;
 if Assigned(Itm) then
 begin
   N := Random(Length(ExtF));
   with Itm do
   begin
     Caption := IntToHex(Random(4096), 8);
       // расширение
     if N < 5 then
      SubItems.Add(ExtF[N]) // file
     else
      SubItems.Add(''); // dir
       // размер
     if N < 5 then
      SubItems.Add(IntToStr(10000)) // file
     else
      SubItems.Add(ExtF[N]); // dir
   end;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin // очищаем
 ListView1.Items.Clear;
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
var
  S :string;
  Itm :TListItem;
begin // "запускаем"
 Itm := ListView1.Selected;
 if Assigned(Itm) then
 begin
   if CompareText(Itm.SubItems[1], ExtF[High(ExtF)]) <> 0 then
   begin
     S := Format('%s.%s', [Itm.Caption, itm.SubItems[0]]);
     ShowMessage('Файл: "'+S+'"');
   end
    else
   begin
     ShowMessage('Это папка');
   end;
 end
  else
 ShowMessage('Не выбран файл/папка');
end;

end.

[HTTqp]

Все, спасибо. Выход нашел сам. Но Alter твои советы тоже помогли.