ufrmopviewsdgroupexploration.pas

来自「ADaM is a data mining and image processi」· PAS 代码 · 共 46 行

unit UFrmOpViewSDGroupExploration;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UFrmBaseOperator, Menus, ActnList, ComCtrls, ExtCtrls, StdCtrls,
  UCompSDGroupExploration, HTMLLite, UDatasetDefinition, EzdslBAr;

type
  TfrmOpViewSDGroupExploration = class(TFrmBaseOperator)
    TabSDGroupExploration: TTabSheet;
    Panel2: TPanel;
    Panel3: TPanel;
    Splitter3: TSplitter;
    panelGroupDescription: TPanel;
    panelHTML: TPanel;
    Panel1: TPanel;
    Splitter2: TSplitter;
    Panel6: TPanel;
    lstInput: TListBox;
    Panel8: TPanel;
    Panel7: TPanel;
    Panel9: TPanel;
    tvGroup: TTreeView;
    Splitter1: TSplitter;
    PopupMenu1: TPopupMenu;
    Delete1: TMenuItem;
    Deleteleaves1: TMenuItem;
    procedure tvGroupDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure tvGroupDeletion(Sender: TObject; Node: TTreeNode);
    procedure tvGroupDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure tvGroupClick(Sender: TObject);
    procedure Delete1Click(Sender: TObject);
    procedure actCopyExecute(Sender: TObject);
    procedure Deleteleaves1Click(Sender: TObject);
  private
    { D閏larations priv閑s }
    //composants de visualisation
    viewHtml: THTMLLite;
    //cha頽e de cat. courante dans le viewer
    curString: string;
    //operateur de calcul
    opGroupExplore: TOpGroupExploration;
    //un attribut fictif. qui repr閟ente la modalit