VPF::Как правильно разработать идеологию компонента?

CHERRY

Дата 2.12.2012, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Прохожий

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 17.6.2002
Где: Одесса

Репутация: нет
Всего: -2

Работаю над компонетом "File Manager".
Основан на VirtualStringTree. Поддерживает навигацию по папкам и много всего(типа FAR или TC).
Для поддержки FTP использую пакет ICS - Internet Component Suite - V7.
Все отлично работает, но мне не нравится идеология, которую я построил.
Думаю, что нужно все разделить. Файловая панель - отдельно, FTP (хочу прицепить SSH) - отдельно,
но вместе с тем - единое целое.
У меня выглядит так:

Код


  //Класс файловая панель
  TFm = class(TWinControl)
  private
    { Private declarations }
    VST:TVirtualStringTree;
.................................
    //FTP=======================
    fFtp_mode:Boolean;
    FTPClient: TFtpClient;
    FtpHostName,
    FtpPort,
    FtpUserName,
    FtpPassWord,
    FtpHostDirName,
    FTPLocalFileName
    : String;
    FtpPassive, FtpBinary: Boolean;
    FTPCodePage: LongWord;
...................................
  protected
    // Активация панели
    procedure TimerDriveTimer(Sender: TObject);
    procedure InitDrive;
    procedure InitDrivePanel;
    procedure FreeDrive;
    procedure SetActive(Value: Boolean);
.....................................
  public
    RecTFm,RecTFm2  : TRect; // координаты FManager в абсолютных единицах
    fSelFilePath    : TStringList;
    fSerchCount     :Integer;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
........................................
  published
    //свойства
    property Align;
    property Caption;
    property Visible;
    property FileAttr        : TFileAttr    read fAttr      write fAttr;
    property ShowWinIcon     : Boolean      read fWinIcon   write SetWinIcon   default false;
.......................................
  end;

Как грамотно построить идеологию компонента?
Прошу прощения за некоторую сумбурность.

Присоединённый файл ( Кол-во скачиваний: 15 )

fm.jpg 337,52 Kb

--------------------

Трясу надежды ветвь, но где желанный плод?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »