Daily Archives: 09.05.2016

Delphi.DBTreeView. Удаление узлов

Posted on 09.05.2016 by Stanislav_Panteleev

В главном модуле компонента код выглядит следующим образом. Здесь важно корректно рекурсивно удалить память под указателями и только после этого удалить сами узлы.

//-----------------------------------Удаление узлов-------------------------------------------------

procedure TDBTreeView.DeleteNodes;

var DeleteThread:TDeleteThread;
    SelectedOrChecked:TSelectedOrChecked;

begin


 try
  Screen.Cursor:=crSQLWait;

//Do_Something
   // Собираем в список выделенные или отмеченные галочками и их потомков
  SelectedOrChecked:=TSelectedOrChecked.Create(nil);
  SelectedOrChecked.DBTreeView:=Self; //Передаем ссылку на объект
  SelectedOrChecked.List; // Собрали в список



 finally
 Screen.Cursor:=crDefault;


 end;



Self.Items.BeginUpdate;
//Запускаем поток
DeleteThread:=TDeleteThread.Create(true);
DeleteThread.DBtreeView:=Self; // Ссылка на объект дерева
DeleteThread.MyCreate; // Создание внутренних переменных


//Передаем список в экземпляр класса
DeleteThread.IDList.Assign(SelectedOrChecked.IDListToCopyOrCutOrDelete);

//Запускаем поток
DeleteThread.Start;
DeleteThread.FreeOnTerminate:=true;
FreeAndNil(SelectedOrChecked);

Self.Items.EndUpdate;

end;

//-----------------------------------Удаление узлов-------------------------------------------------

procedure TDBTreeView.DeleteNodes;

var DeleteThread:TDeleteThread;

SelectedOrChecked:TSelectedOrChecked;

begin

try

Screen.Cursor:=crSQLWait;

//Do_Something

// Собираем в список выделенные или отмеченные галочками и их потомков

SelectedOrChecked:=TSelectedOrChecked.Create(nil);

SelectedOrChecked.DBTreeView:=Self; //Передаем ссылку на объект

SelectedOrChecked.List; // Собрали в список

finally

Screen.Cursor:=crDefault;

end;

Self.Items.BeginUpdate;

//Запускаем поток

DeleteThread:=TDeleteThread.Create(true);

DeleteThread.DBtreeView:=Self; // Ссылка на объект дерева

DeleteThread.MyCreate; // Создание внутренних переменных

//Передаем список в экземпляр класса

DeleteThread.IDList.Assign(SelectedOrChecked.IDListToCopyOrCutOrDelete);

//Запускаем поток

DeleteThread.Start;

DeleteThread.FreeOnTerminate:=true;

FreeAndNil(SelectedOrChecked);

Self.Items.EndUpdate;

end;

Как видно, само удаление происходит в потоке. Модуль потока удаления выглядит следующим образом

Posted in Delphi, Компонентостроение | Comments Off

Delphi. DBTreeView своими руками. Соединение с базой данных

Posted on 09.05.2016 by Stanislav_Panteleev

Все остальные модули DBTreeView используют модуль соединения. В данном модуле 3 класса 1) класс параметров соединения, – TDBConnectionParams Он нужен для показа параметров соединения в инспекторе объектов 2)Класс таблицы TDBTable и её полей 3) Класс непосредственно соединения TDBConnectionBPL Выглядит он … Continue reading →

Posted in Delphi, Компонентостроение | Comments Off

Delphi.DBTreeView своими руками. Редактирование имени узла

Posted on 09.05.2016 by Stanislav_Panteleev

В главном модуле компонента вставка узла выглядит так

//----------------------------Редактирование названия узла

procedure TDBTreeView.EditNodeText;
var EditNodeText:TEditNodeText;
    NewName:string;

begin

if not Assigned(Self.Selected) then exit;

   try
  Screen.Cursor:=crSQLWait;


//Do_Something

      if not Assigned(Self.Selected) then exit;

 EditNodeText:=TEditNodeText.Create(Self);
 EditNodeText.DBTreeView:=Self; // << Ссылка на дерево

 if InputQuery('Введите новое название','',NewName)=true then

 begin

 if NewName='' then
    begin
     FreeAndNil(EditNodeText);
     exit;
    end else

 EditNodeText.UpdateNodeText(NewName);

 end;

//----------------------------Редактирование названия узла

procedure TDBTreeView.EditNodeText;

var EditNodeText:TEditNodeText;

NewName:string;

begin

if not Assigned(Self.Selected) then exit;

try

Screen.Cursor:=crSQLWait;

//Do_Something

if not Assigned(Self.Selected) then exit;

EditNodeText:=TEditNodeText.Create(Self);

EditNodeText.DBTreeView:=Self; // << Ссылка на дерево

if InputQuery('Введите новое название','',NewName)=true then

begin

if NewName='' then

begin

FreeAndNil(EditNodeText);

exit;

end else

EditNodeText.UpdateNodeText(NewName);

end;

Posted in Delphi, Компонентостроение | Comments Off

Delphi.DBTreeView своими руками. Вставка папки, файла, произвольного узла

Posted on 09.05.2016 by Stanislav_Panteleev

Здесь ничего сложного. Разберу на примере вставки папок и файлов, это более общий случай. При вставке папок и файлов основную работу делают вот эти 2 метода.

function InsertFolderOrFileInDB( idParent,index: Integer;
   name: string; DBTreeView: TDBTreeView; IsFolder: boolean): integer;

 procedure InsertFolderOrFileInTree(DBTreeView: TDBTreeView; IsFolderLocalVar:boolean; name:string);

function InsertFolderOrFileInDB( idParent,index: Integer;

name: string; DBTreeView: TDBTreeView; IsFolder: boolean): integer;

procedure InsertFolderOrFileInTree(DBTreeView: TDBTreeView; IsFolderLocalVar:boolean; name:string);

Остальные методы дополнительные. Сама вставка осуществляется в главном модуле компонента следующим образом. Рассмотрим на … Continue reading →

Posted in Delphi, Компонентостроение | Comments Off

DELPHI. DBTreeView своими руками. Update. Динамическая подгрузка веточек

Posted on 09.05.2016 by Stanislav_Panteleev

Для ускорения DBTreeView в данном алгоритме реализована так называемая динамическая подгрузка веточек. Суть в том, что в сначала загружаются все узлы нулевого уровня. Потом, при каждом Expanding узла, если у него есть потомки – дозагружаются его потомки первого уровня и … Continue reading →

Posted in Delphi, Компонентостроение | Comments Off

DELPHI. DBTreeView своими руками. Третья волна

Posted on 09.05.2016 by Stanislav_Panteleev

Введение И вот она, третья, волна! Я никогда ранее не разрабатывал компоненты, и скажу, что опыт это крайне ценный для становления Delphi программиста. Многие вещи соединяются в голове и весь наработанный ранее опыт играет свою роль. Я работал над DBTreeView … Continue reading →

Posted in Delphi, Компонентостроение | Comments Off

Daily Archives: 09.05.2016

Delphi.DBTreeView. Удаление узлов

Delphi. DBTreeView своими руками. Соединение с базой данных

Delphi.DBTreeView своими руками. Редактирование имени узла

Delphi.DBTreeView своими руками. Вставка папки, файла, произвольного узла

DELPHI. DBTreeView своими руками. Update. Динамическая подгрузка веточек

DELPHI. DBTreeView своими руками. Третья волна

MY PROJECTS

Recent Posts

Categories