Новости «LumanBox»: масштабирование, open source, осмысление опыта ведения индивидуальной базы знаний24.01.2024 18:15

type
  TPanelTagInfo=class
      class_id, class_id_a:longint; // классификаторы панелей текущей и противоположной
      gbPanel, gbPanel_a:TGroupBox; // GroupBox панели текущей и противоположной
      dbg, dbg_a:TDBGridEh; // гриды панелей текущей и противоположной
      pnCont, pnCont_a:TPanel; // состав панелей (об источнике, заметки, ....) текущей и противоположной
      class_full_name, class_full_name_a:string; // полные пути классификаторов
      class_name, class_name_a:string; // имена классификаторов
      dsu, dsu_a:TdataSet; // dataSet панелей текущей и противоположной
      tag_name, tag_name_a:string; // 'Left' или 'Right'
  end;

  // 2-х панельный навигатор по классификаторам
  TfmTwoPanelControl=class(TAliasParamForm)
    private
      // контролы и DataSet, что обязательно должны быть означены дочерними объектами
      m_class_left_id, m_class_right_id:integer; // ID папок левой и правой
      m_pm_main:TPopUpMenu; // основной popUpMenu
      m_dsu_left, m_dsu_right:TdataSet; // DataSet
      m_gb_left_panel, m_gb_right_panel:TGroupBox; // GroupBox - основные панели
      m_dbg_left, m_dbg_right:TDBGridEh; // гриды
      m_pn_cont_left, m_pn_cont_right:TPanel; // панели состава (об источнике, заметки и т.д.)
      m_last_class_id:longint; // последний активный классификатор

      // главные параметры
      m_view_mode:integer; // =0 - слева каталог, справа инфо, =1-справа каталог, слева инфо, =3 - оба каталога
      m_view_maximized:boolean;  // максимально раскрытый одиночной панели режим?

      // вспомогательные переменные
      m_panel_root_caption:string; // название коревой панели, обычно константа
      m_last_scrool_tag:array[0..1] of longint; // для ускорения - чтобы не перерисовывать дважды-трижды одно и то же

      procedure init; // инициализация работы с 2-панельным коммандером
      function get_alias_def_class(tag_:integer):string; // получить alias для сохранения значений по умолчанию для панели
      function get_alias_nav(tag_:integer):string;  // получить alias для навигации
      function get_def_class(tag_:integer):longint; // получить папку по умолчанию для панели
      function get_last_scrool_tag(tag_:integer):integer; // получить последний обработанный в scrool ID по тагу
      function get_sub_class(tag_:integer;class_id_:longint):longint; // получить подкласс для ID папки панели
      procedure actualize_pm_main_check;  // установить check popapmenu в зависимости от режима отображения
      procedure dbg_main_cell_click(Column: TColumnEh); // действие по клику мышкой на ячейке в основном гриде
      procedure dbg_main_key_down(Sender: TObject; var Key: Word; Shift: TShiftState); // действие по нажатию клавиши в основном гриде
      procedure menu_action_change_panels(Sender: TObject); // поменять панели друг с другом местами
      procedure menu_action_choose_the_same(Sender: TObject); // выбрать на другой панели тот же путь
      procedure menu_action_set_mode_maximized(Sender: TObject);  // режим выставить 1 панель на все окно
      procedure menu_action_set_mode_show_content(Sender: TObject); // режим выставить с просмотром содержимого
      procedure menu_action_set_mode_2_panel(Sender: TObject); // режим выставить 2-панельный
      procedure mode_view_recover; // восстановить режим отображения
      procedure mode_view_save; // сохранить режим отображения
      procedure set_def_class(tag_:integer;class_id_:longint); // установить ID папки по умолчанию для стороны конкретной панели
      procedure set_panel_class_caption(tag_:integer); // выставить заголовок панели
      procedure set_last_scrool_tag(tag_:integer;value_:longint);
      procedure class_enter(tag_:integer;class_id_, subclass_id_:longint); // вход в папку
      procedure class_exit(tag_:integer;old_class_id_, new_class_id_:longint); // выход из папки

    public
      IgnoreDSUScroolEvent:boolean;

      constructor CreateWithAlias(AOwner_: TComponent; alias_,PanelRootCaption_:string);
      procedure AssignControls(pmMain_:TPopupMenu;  // выставить соответствие основных контролов, нельзя в конструкторе формы, т.к. на том этапе их нет
                            gbLeftPanel_, gbRightPanel_:TGroupBox;
                            dbgLeft_, dbgRight_:TDBGridEh;
                            pnContLeft_, pnContRight_:TPanel;
                            dsuLeft_, dsuRight_:TdataSet);

      function GetTagPTI(tag_:integer):TPanelTagInfo;overload; virtual;  // получить PTI в заисимости от tag_
      function GetAnotherTag(tag_:integer):integer; // получить ID противоложной панели
      function GetCurClass:longint; // получить текущий классификатор

      function GetFocusTag:integer; // получить ID текущей панели

      procedure ClassUp(Sender_: TObject); // нажим папки '...' - вверх
      procedure DsuAfterScroll(DataSet_: TDataSet); virtual; // действие после скрула основного dataset
      procedure GetTagPTI(tag_:integer; PTI_:TPanelTagInfo;is_fast_:boolean=false); overload; virtual; // означить PTI в зависимости от tag_
      procedure ResetLastScroolTag; // сброс залипания автоскрула
      procedure SetAlias(alias_:string); // выставить новый alias (нужно при означивания ID в некоторых формах)
      procedure SetPanelClass(tag_:integer;class_id_:integer); overload; // выставить для панели ID папки и совершить нужные действия
      procedure SetPanelClass(tag_:integer); overload; // совершить нужные действия при выставления панели
      procedure SetViewMode(mode_:integer;maximized_:boolean); overload; virtual; // установить режим отображения
      procedure SetViewMode(); overload; virtual; // актуализировать режим отображения

      // блок пустых методов для обязательного (!!!!!) определения в дочерних компонентах

      function GetClassClassId(class_id_:longint):longint; virtual; abstract; // получить ID папки по ID подпапки
      function GetClassNameFull(class_id_:longint):string; virtual; abstract; // получить полный путь по ID
      function GetClassName(class_id_:longint):string; virtual; abstract; // получить название классиифкатора по ID
      procedure DbgDblClick(Sender_: TObject); virtual; abstract; // двойной щелчок мышью по основному гриду
      procedure DsuAfterScroolHandle(DataSet_:TDataSet); virtual; abstract; // реальные действия при скрулинге основного датасет
      procedure FormResize(Sender_: TObject);virtual; abstract; // действие при смене размера формы
      procedure SetPanelClassAddAction(tag_:integer); virtual; abstract; // дополнительные действия по выбору нового классификатора
    published
      property ViewMaximized: boolean read m_view_maximized; // режим расширения панели на все окно?
      property ViewMode: Integer read m_view_mode; //  режим отображения
      property ClassLeftId: Integer read m_class_left_id; //  левый class_id
      property ClassRightId: Integer read m_class_right_id; // правый class_id

  end;

CREATE TABLE IF NOT EXISTS "author" (
	"id"	INTEGER NOT NULL UNIQUE,
	"name"	TEXT NOT NULL UNIQUE,
	"notes"	TEXT,
	"date_time_create"	DATETIME,
	PRIMARY KEY("id" AUTOINCREMENT)
);

CREATE TABLE IF NOT EXISTS "source" (
	"id"	INTEGER NOT NULL UNIQUE,
	"name"	TEXT NOT NULL,
	"notes"	TEXT,
	"source_type_id"	INTEGER,
	"date_time_create"	DATETIME,
	"note_show_mode"	INTEGER NOT NULL DEFAULT 3,
	"status"	INTEGER NOT NULL DEFAULT 0,
	"cur_stoc_id"	INTEGER,
	"is_mine"	INTEGER NOT NULL DEFAULT 0,
	"source_classification_id"	integer DEFAULT 0,
	"telegram_message_id"	TEXT,
	"date_time_update"	datetime,
	PRIMARY KEY("id" AUTOINCREMENT)
);

CREATE TABLE IF NOT EXISTS "note" (
	"id"	INTEGER NOT NULL UNIQUE,
	"subpart_id"	INTEGER,
	"name"	TEXT NOT NULL,
	"original_text"	TEXT,
	"content"	TEXT NOT NULL,
	"content_plain"	TEXT,
	"date_time_create"	DATETIME,
	"fast_text"	TEXT,
	"note_show_mode"	INTEGER NOT NULL DEFAULT 3,
	"splitter_param"	INTEGER DEFAULT 0,
	"h_splitter_param"	INTEGER DEFAULT 0,
	"date_time_update"	DATETIME,
	"form_width"	integer DEFAULT 840,
	"telegram_message_id"	TEXT,
	"content_html"	TEXT,
	PRIMARY KEY("id" AUTOINCREMENT)
);

CREATE TABLE IF NOT EXISTS "keyword" (
	"id"	INTEGER NOT NULL UNIQUE,
	"name_main"	TEXT NOT NULL,
	"date_time_create"	DATETIME,
	"class_keyword_id"	INTEGER NOT NULL DEFAULT 0 CHECK("class_keyword_id" <> "id"),
	"order_"	integer,
	"date_time_update"	DATETIME,
	"class_name_before"	TEXT,
	"class_name_after"	TEXT,
	"name_w_synonym"	TEXT,
	"note"	TEXT,
	"all_use_count"	integer,
	PRIMARY KEY("id" AUTOINCREMENT),
	UNIQUE("name_main","class_keyword_id")
);

CREATE TABLE IF NOT EXISTS "keyword_name" (
	"id"	INTEGER NOT NULL UNIQUE,
	"keyword_id"	INTEGER NOT NULL,
	"name"	TEXT NOT NULL,
	"order_"	INTEGER,
	"note"	TEXT,
	PRIMARY KEY("id" AUTOINCREMENT)
);

CREATE TABLE IF NOT EXISTS "source_author" (
	"id"	INTEGER NOT NULL UNIQUE,
	"source_id"	INTEGER NOT NULL,
	"author_id"	INTEGER NOT NULL,
	PRIMARY KEY("id" AUTOINCREMENT),
	UNIQUE("source_id","author_id")
);

CREATE TABLE IF NOT EXISTS "note_keyword" (
	"id"	INTEGER NOT NULL UNIQUE,
	"note_id"	INTEGER NOT NULL,
	"keyword_id"	INTEGER NOT NULL CHECK(ifnull("keyword_id", 0) > 0),
	"keyword_name_id"	integer NOT NULL,
	UNIQUE("note_id","keyword_id"),
	PRIMARY KEY("id" AUTOINCREMENT)
);