Class TCAD_Demo_Form (unit Main_form) |
Inherits from
TForm
Mine
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;
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;
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;
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;