| Class TCAD_Demo_Form (unit Main_form) |
TForm
Mine
| Constructors |
| Functions |
procedure CopyClipButtonClick(Sender: TObject);
procedure deleteClick(Sender: TObject);
procedure Files_listboxKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
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);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure LoadButtonClick(Sender: TObject);
procedure Repaint_buttonClick(Sender: TObject);
procedure SaveButtonClick(Sender: TObject);
procedure Track_mouseClick(Sender: TObject);
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);
procedure ZoomboxMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ZoomboxPaint(Sender: TObject);
procedure Fill_stringlist(str:TStrings);
procedure read_dxf_file(name:string);
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;
Captured_point : Point3D;
database_loaded : boolean;
data_dir : string;
directory : string;
DXF_main : DXF_Object;
emax : Point3D;
emin : Point3D;
highlight_obj : DXF_Entity;
highlight_point : Point3D;
mouseX : integer;
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;