Class TCAD_Demo_Form (unit Main_form)

Inherits from

TForm

Mine

Constructors



Functions

procedure CopyClipButtonClick(Sender: TObject);


procedure deleteClick(Sender: TObject);


procedure Files_listboxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

--------------------------------------------------------------------------- } { Object List Control { ---------------------------------------------------------------------------

procedure Files_listboxKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure Files_listboxMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormCreate(Sender: TObject);

--------------------------------------------------------------------------- } { Form Creation and Handling { ---------------------------------------------------------------------------

procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure LoadButtonClick(Sender: TObject);


procedure Repaint_buttonClick(Sender: TObject);

--------------------------------------------------------------------------- } { Painting/Drawing { ---------------------------------------------------------------------------

procedure SaveButtonClick(Sender: TObject);

else if opendialog1.

procedure Track_mouseClick(Sender: TObject);

--------------------------------------------------------------------------- } { Mouse Tracking & Object Selection { ---------------------------------------------------------------------------

procedure Track_timerTimer(Sender: TObject);


procedure ZoomboxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ZoomboxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

turn it off until the next mouse move

procedure ZoomboxMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ZoomboxPaint(Sender: TObject);


procedure Fill_stringlist(str:TStrings);

If data changes, we must clear the highlight_obj to prevent access violation

procedure read_dxf_file(name:string);

--------------------------------------------------------------------------- } { File Load/Save { ---------------------------------------------------------------------------

procedure refresh_listbox(SelectAll:boolean);


procedure update_selection;


Properties

Events

Variables

block_defs : TCheckBox;


CopyClipButton : TButton;


C_remove_layers : TCheckBox;


delete : TButton;


draw_vertices : TCheckBox;


Files_listbox : TListBox;


Fill_closed : TCheckBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label15 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


line_lab : TLabel;


LoadButton : TButton;


Memo1 : TMemo;


Messages : TListBox;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel10 : TPanel;


Panel15 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel9 : TPanel;


polyc_lab : TLabel;


polyo_lab : TLabel;


Repaint_button : TButton;


SaveButton : TButton;


SaveDialog1 : TSaveDialog;


Thick_lines : TCheckBox;


Track_mouse : TCheckBox;


Track_timer : TTimer;


T_entities : TLabel;


T_Layers : TLabel;


T_Lists : TLabel;


T_Objs : TLabel;


vert_lab : TLabel;


ZoomBox : Zoom_panel;


Captured_obj : DXF_Entity;

Editing

Captured_point : Point3D;


database_loaded : boolean;


data_dir : string;


directory : string;

Bookkeeping

DXF_main : DXF_Object;

Useful stuff fetched from DXF file

emax : Point3D;


emin : Point3D;


highlight_obj : DXF_Entity;

Tracking

highlight_point : Point3D;


mouseX : integer;

Mouse input

mouseY : integer;


selection : selection_lists;



Constructors


Functions


procedure CopyClipButtonClick(Sender: TObject);


procedure deleteClick(Sender: TObject);


procedure Files_listboxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

--------------------------------------------------------------------------- } { Object List Control { ---------------------------------------------------------------------------


procedure Files_listboxKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure Files_listboxMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormCreate(Sender: TObject);

--------------------------------------------------------------------------- } { Form Creation and Handling { ---------------------------------------------------------------------------


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure LoadButtonClick(Sender: TObject);


procedure Repaint_buttonClick(Sender: TObject);

--------------------------------------------------------------------------- } { Painting/Drawing { ---------------------------------------------------------------------------


procedure SaveButtonClick(Sender: TObject);

else if opendialog1.filterindex=2 then read_off_file(OpenDialog1.Filename,'',0) else if opendialog1.filterindex=3 then read_off_file(OpenDialog1.Filename,'',1);


procedure Track_mouseClick(Sender: TObject);

--------------------------------------------------------------------------- } { Mouse Tracking & Object Selection { ---------------------------------------------------------------------------


procedure Track_timerTimer(Sender: TObject);


procedure ZoomboxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ZoomboxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

turn it off until the next mouse move


procedure ZoomboxMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ZoomboxPaint(Sender: TObject);


procedure Fill_stringlist(str:TStrings);

If data changes, we must clear the highlight_obj to prevent access violation


procedure read_dxf_file(name:string);

--------------------------------------------------------------------------- } { File Load/Save { ---------------------------------------------------------------------------


procedure refresh_listbox(SelectAll:boolean);


procedure update_selection;


Properties


Events


Variables


block_defs : TCheckBox;


CopyClipButton : TButton;


C_remove_layers : TCheckBox;


delete : TButton;


draw_vertices : TCheckBox;


Files_listbox : TListBox;


Fill_closed : TCheckBox;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label12 : TLabel;


Label13 : TLabel;


Label15 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


line_lab : TLabel;


LoadButton : TButton;


Memo1 : TMemo;


Messages : TListBox;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel10 : TPanel;


Panel15 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel9 : TPanel;


polyc_lab : TLabel;


polyo_lab : TLabel;


Repaint_button : TButton;


SaveButton : TButton;


SaveDialog1 : TSaveDialog;


Thick_lines : TCheckBox;


Track_mouse : TCheckBox;


Track_timer : TTimer;


T_entities : TLabel;


T_Layers : TLabel;


T_Lists : TLabel;


T_Objs : TLabel;


vert_lab : TLabel;


ZoomBox : Zoom_panel;


Captured_obj : DXF_Entity;

Editing


Captured_point : Point3D;


database_loaded : boolean;


data_dir : string;


directory : string;

Bookkeeping


DXF_main : DXF_Object;

Useful stuff fetched from DXF file


emax : Point3D;


emin : Point3D;


highlight_obj : DXF_Entity;

Tracking


highlight_point : Point3D;


mouseX : integer;

Mouse input


mouseY : integer;


selection : selection_lists;