Core/dbdOpenFolderForm.pas - master - YakuninAV/Convertors

Core/dbdOpenFolderForm.pas
93 строки2 KB
YakuninAV
begin with gitflick
31 июл 2026, 15:21
31 июл 2026, 15:211dc0fc6
unit dbdOpenFolderForm;

{$I mormot.defines.inc}

interface

uses
  {$IFDEF ISDELPHIXE2}
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls, Vcl.FileCtrl
  {$ELSE}
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, Buttons, StdCtrls, Mask, ExtCtrls, FileCtrl
  {$ENDIF}
  , mormot.core.base, mormot.core.variants, mormot.core.json, mormot.core.text, mormot.core.data
  , mormot.core.os, mormot.core.unicode, mormot.core.buffers, mormot.core.perf, mormot.core.search
  ;

type
  TfrmOpenFolder = class(TForm)
    lbledt: TLabeledEdit;
    dirlst: TDirectoryListBox;
    drvcbb: TDriveComboBox;
    btn1: TBitBtn;
    btn2: TBitBtn;
    btnCreateFolder: TSpeedButton;
    procedure dirlstChange(Sender: TObject);
    procedure lbledtClick(Sender: TObject);
    procedure btnCreateFolderClick(Sender: TObject);
  private
    FFldName: TFileName;
    procedure SetFldName(const Value: TFileName);
    function GetFldName: TFileName;
    { Private declarations }
  public
    { Public declarations }
    property FldName: TFileName read GetFldName write SetFldName;
  end;


function GetDestinationFolder(var FolderName: TFileName): Integer;

implementation

{$R *.dfm}

function GetDestinationFolder(var FolderName: TFileName): Integer;
var frm: TfrmOpenFolder;
begin
  frm:=TfrmOpenFolder.Create(nil);
  try
    frm.FldName:=FolderName;
    Result:=frm.ShowModal;
    if Result=mrOk then begin
      FolderName:=frm.FldName;
    end;
  finally
    FreeAndNil(frm);
  end;
end;

{ TfrmOpenFolder }

procedure TfrmOpenFolder.btnCreateFolderClick(Sender: TObject);
var fn: TFileName;
begin
  fn:=EnsureDirectoryExistsNoExpand(lbledt.Text);
  dirlst.Refresh;
  SetFldName(fn);
  end;

procedure TfrmOpenFolder.dirlstChange(Sender: TObject);
begin
  lbledt.Text:=dirlst.Directory;
end;

function TfrmOpenFolder.GetFldName: TFileName;
begin
  Result:=IncludeTrailingPathDelimiter(lbledt.Text);
end;

procedure TfrmOpenFolder.lbledtClick(Sender: TObject);
begin
  Caption:=lbledt.text;
end;

procedure TfrmOpenFolder.SetFldName(const Value: TFileName);
begin
  lbledt.Text:=Value;
  dirLst.Directory:=Value;
end;

end.