Дополнительный модуль, в котором сосредоточены основные SQL запросы. Имена некоторых полей берутся из ObjectInspector. Из специфичного для MySQL инструкция Insert… Select… для копирования узлов

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

Delphi. DBTreeView своими руками. Поиск

Posted on 09.05.2016 by Stanislav_Panteleev

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

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

Delphi.DBTreeView своими руками.Вставка скопированных, вырезанных узлов

Posted on 09.05.2016 by Stanislav_Panteleev

Здесь самая большая сложность – восстановление структуры вставленных узлов в процедуре Structuring. В главном модуле компонента код выглядит следующим образом. Здесь у нас 2 потока должны работать по очереди, поэтому используем синхронизацию.

//----------------------Вставка выбранных узлов-----------------------------------------------------

procedure TDBTreeView.PasteNodes;

{Здесь можно увидеть наглядный пример синхронизации потоков!!!}

var PasteThread:TPasteThread;
    UpdateIndexesThread:TUpdateIndexesThread;

    Event:TEvent;

    IDSelected:integer;

begin

if not Assigned(FIDList) then FIDList:=TStringList.Create;

//Защита, если список пустой, то выходим
if FIDList.Count=0 then exit;


//Если копируем родителя в ребенка, тоже выходим

IDSelected:=integer(Self.Selected.Data^);

if FIDList.IndexOf(IDSelected.ToString())<>-1 then
 begin

 raise Exception.Create('Начальный элемент содержит конечный.Вставка невозможна');

 exit;
 end;



Event:=TEvent.Create(
nil,  //Security Attributes
true, //Manual Reset
false,// Initial State
''
);



//Event.ReSetEvent; // <<Вошли в событие
//Запускаем поток копирования, передаем ссылки...

Self.Items.BeginUpdate;


PasteThread:=TPasteThread.Create(true);//true означает ручное управление потоком
PasteThread.DBTreeView:=Self; //Передаем ссылку на дерево

PasteThread.Event:=Event; //Передали ссылку на событие снаружи

PasteThread.MyCreate; // Создаем внутренние переменные потока
PasteThread.IDList.Assign(FIDList);
PasteThread.IDofCopiedNode:=FIDofCopiedNode;
PasteThread.Cut:=FCut;


PasteThread.Start;
PasteThread.FreeOnTerminate:=true;

//Event.SetEvent; // << Вышли из события

//if PasteThread.Finished then


begin

//Перенумерация индексов
    UpdateIndexesThread:=TUpdateIndexesThread.Create(true);
    UpdateIndexesThread.Event:=Event;
    UpdateIndexesThread.DBTreeView:=Self;
    UpdateIndexesThread.MyCreate;
    UpdateIndexesThread.Start;

    UpdateIndexesThread.FreeOnTerminate:=true;

end;



Self.Items.EndUpdate;

FCut:=false;

//Освобождение Event происходит внутри UpdateIndexesThread потока по ссылке

//if Event<>nil then FreeAndNil( Event );// <<Так делать не надо, так как поток может
// закончиться позже

end;

//----------------------Вставка выбранных узлов-----------------------------------------------------

procedure TDBTreeView.PasteNodes;

{Здесь можно увидеть наглядный пример синхронизации потоков!!!}

var PasteThread:TPasteThread;

UpdateIndexesThread:TUpdateIndexesThread;

Event:TEvent;

IDSelected:integer;

begin

if not Assigned(FIDList) then FIDList:=TStringList.Create;

//Защита, если список пустой, то выходим

if FIDList.Count=0 then exit;

//Если копируем родителя в ребенка, тоже выходим

IDSelected:=integer(Self.Selected.Data^);

if FIDList.IndexOf(IDSelected.ToString())<>-1 then

begin

raise Exception.Create('Начальный элемент содержит конечный.Вставка невозможна');

exit;

end;

Event:=TEvent.Create(

nil, //Security Attributes

true, //Manual Reset

false,// Initial State

);

//Event.ReSetEvent; // <<Вошли в событие

//Запускаем поток копирования, передаем ссылки...

Self.Items.BeginUpdate;

PasteThread:=TPasteThread.Create(true);//true означает ручное управление потоком

PasteThread.DBTreeView:=Self; //Передаем ссылку на дерево

PasteThread.Event:=Event; //Передали ссылку на событие снаружи

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

PasteThread.IDList.Assign(FIDList);

PasteThread.IDofCopiedNode:=FIDofCopiedNode;

PasteThread.Cut:=FCut;

PasteThread.Start;

PasteThread.FreeOnTerminate:=true;

//Event.SetEvent; // << Вышли из события

//if PasteThread.Finished then

begin

//Перенумерация индексов

UpdateIndexesThread:=TUpdateIndexesThread.Create(true);

UpdateIndexesThread.Event:=Event;

UpdateIndexesThread.DBTreeView:=Self;

UpdateIndexesThread.MyCreate;

UpdateIndexesThread.Start;

UpdateIndexesThread.FreeOnTerminate:=true;

end;

Self.Items.EndUpdate;

FCut:=false;

//Освобождение Event происходит внутри UpdateIndexesThread потока по ссылке

//if Event<>nil then FreeAndNil( Event );// <<Так делать не надо, так как поток может

// закончиться позже

end;

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

Delphi.DBTreeView своими руками. Копирование, вырезка узлов

Posted on 09.05.2016 by Stanislav_Panteleev

В главном модуле копирование, вырезка узлов выглядит следующим образом. FIDList это список (TStringList), в который мы собираем узлы для копирования и вырезки. Также используется модуль uSelectedOrChecked, он приведен ниже.

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

Delphi. DBTreeView. Поднятие, опускание узлов.

Posted on 09.05.2016 by Stanislav_Panteleev

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

//--------------------------------Поднятие, опускание узлов-----------------------------------------

procedure TDBTreeView.NodeDown;

var NodeUpDown:TNodeUpDown;

begin

   try
  Screen.Cursor:=crSQLWait;


 //Do_Something
  NodeUpDown:=TNodeUpDown.Create(Self);
  NodeUpDown.DBTReeView:=Self; // << Передаем в поле экземпляра класса ссылку на себя
  NodeUpDown.NodeDown;


 finally
 Screen.Cursor:=crDefault;

 FreeAndNil(NodeUpDown);

 end;


end;


procedure TDBTreeView.NodeUp;
var NodeUpDown:TNodeUpDown;

begin



 try
  Screen.Cursor:=crSQLWait;


//Do_Something
  NodeUpDown:=TNodeUpDown.Create(Self);

  NodeUpDown.DBTReeView:=Self; // << Передаем в поле экземпляра класса ссылку на себя
  NodeUpDown.NodeUp;


 finally
 Screen.Cursor:=crDefault;

 FreeAndNil(NodeUpDown);

 end;



end;

//--------------------------------Поднятие, опускание узлов-----------------------------------------

procedure TDBTreeView.NodeDown;

var NodeUpDown:TNodeUpDown;

begin

try

Screen.Cursor:=crSQLWait;

//Do_Something

NodeUpDown:=TNodeUpDown.Create(Self);

NodeUpDown.DBTReeView:=Self; // << Передаем в поле экземпляра класса ссылку на себя

NodeUpDown.NodeDown;

finally

Screen.Cursor:=crDefault;

FreeAndNil(NodeUpDown);

end;

procedure TDBTreeView.NodeUp;

var NodeUpDown:TNodeUpDown;

begin

try

Screen.Cursor:=crSQLWait;

//Do_Something

NodeUpDown:=TNodeUpDown.Create(Self);

NodeUpDown.DBTReeView:=Self; // << Передаем в поле экземпляра класса ссылку на себя

NodeUpDown.NodeUp;

finally

Screen.Cursor:=crDefault;

FreeAndNil(NodeUpDown);

end;

Сам модуль uNodeUpDown выглядит следующим образом

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

Daily Archives: 09.05.2016

Delphi.DBTreeView своими руками. Основной модуль компонента

Delphi. DBTreeView. Модуль Etcetra

Delphi. DBTreeView. Загрузка картинок проекта из ресурсов

Delphi.DBTreeView своими руками.Прорисовка картинок папок и файлов

Delphi. DBTreeView. Обработка CheckBoxes

Delphi. DBTreeView своими руками. Дополнительный модуль uSQLQueries

Delphi. DBTreeView своими руками. Поиск

Delphi.DBTreeView своими руками.Вставка скопированных, вырезанных узлов

Delphi.DBTreeView своими руками. Копирование, вырезка узлов

Delphi. DBTreeView. Поднятие, опускание узлов.

MY PROJECTS

Recent Posts

Categories