The DataCAD Developer Network (DDN) is an online resource for information and support for DCAL® (DataCAD Applications Language) developers as well as anyone interested in creating fonts, toolbars, hatch patterns, or linetypes for use in DataCAD.

Moderator: pjdixit

#51123 by Mark F. Madura
Sat Nov 20, 2010 10:14 pm
Download varBrowser BETA for DataCAD 15
Download varBrowser BETA for DataCAD 14
Download varBrowser BETA for DataCAD 13

'varBrowser' BETA is a DCAL for Delphi Macro. I developed this macro to learn how to incorporate Delphi forms into a DataCAD macro.

This macro allows you to browse all of the current drawing variables (a.k.a. drawing settings). The variables are organized alphabetically by name.

Enjoy!

Here is the source code for the main unit 'varBrowser.dpr':
Code: Select all{
DCAL program varBrowser.
}

library varBrowser;

uses
  // Delphi Units
  Forms,

  // varBrowser Units
  varBrowserForm in 'varBrowserForm.pas' {varForm},

  // DCAL for Delphi Units
  UConstants in '..\..\Header Files\UConstants.pas',
  UInterfaces in '..\..\Header Files\UInterfaces.pas',
  UInterfacesRecords in '..\..\Header Files\UInterfacesRecords.pas',
  URecords in '..\..\Header Files\URecords.pas',
  UVariables in '..\..\Header Files\UVariables.pas';

{$E dmx}  //dmx is the extension for DCAL Dll's
{$R *.res}

//The values stored in the records you define here will be rememberd
//between dispatcher calls because they are pushed onto the command stack
type
  varBrowserL = record
    state: asint;
    case byte of
      0: (getp: getpointArg);
  end;
  PvarBrowserL = ^varBrowserL;

//Main Function (Re-entrant State Machine)
function varBrowser_main(act : action; pl, pargs : Pointer) : wantType;
//The values stored in variables you define here will not be retained
//between dispatcher calls because they are not pushed onto the stack
var
   retval : asint;
   l : PvarBrowserL;
begin
   l := PvarBrowserL(pl);

   {Section 3: Aagain - Return to menus and wait for input}
   if act = aagain then begin  { Re-entrant section }
      case l.state of { Case }
         1 :
         begin
            //If a key was pressed or a menu button was selected...
            if l.getp.Result = res_escape then begin
               case l.getp.key of
                  f1 : l.state := 2;  {Show Form}

                  s0 : l.state := 0;  {Exit}
               end;  { Which key was pressed }
            end;  { Was a key pressed or menu selected? }
         end;  { 1 }
         2 :
         begin
            l.state := 1
         end;  { 2 }
      else
         l.state := 0;
      end; { Case }
   end;  { Re-entrant Section }

    {Section 2: Afirst - Tasks to perform only once}
    if act = Afirst then begin  //Initialize local state and other variables
      wrterr('Variable Browser Macro BETA - Version 1.0.0.4');
      l.state := 1;
    end

    {Section 4: Alast - If your macro has been interrupted by user action}
    else if act = Alast then begin
      //If you're going to get blown off the stack...
      //(i.e.) the user pressed a hotkey,
      //then this is your last chance to clean up temporary data.
    end

    {Section 1: AlSize - Allocate memory on stack for local variables}
    else if act = AlSize then begin
      SetLocalSize(sizeof(l^));
    end;

    if act <> alsize then begin  { Action section - Invoke the Dispatcher }
      case l.state of
        1 :
        begin  { 1: Main Menu }
          wrtlvl('varBrowser');  //Set Menu Title
          lblsinit;
          lblset(1, 'Settings Form', 'Display drawing settings form');
          lblson1;
       // getpoint(l.getp, retval);
          getpointp(vmode_edit, True, l.getp, retval); //Don't change view to Ortho
          {Dispatcher will call as soon as it has control, go to Aagain: 1}
        end;  { 1 }
        2:
        begin
           varForm := TvarForm.Create(Application);
           varForm.ShowModal;
           varForm.Free;
           callNone(retval);{ You have to ask the Dispatcher to do something. }
                           { In this case, ask the dispatcher to do nothing. }
          {Dispatcher will call as soon as it has control, go to Aagain: 2}
        end;  { 2 }
      else
        retval := XDone; //Don't go back to Aagain
      end; { Case }
    end; { Action section }
    Result := retval;
end; { varBrowser_main }
//End Main Function (Re-entrant State Machine)

function Main(dcalstate : asint; act : action; pl, pargs : Pointer) : wantType; stdcall;
begin
   case dcalstate of
      XDcalStateBegin : Result := varBrowser_main(act, pl, pargs);
         else
            Result := XDone;{Necessary}
   end;
end;
//End of Main Function (Re-entrant State Machine)

exports
   Main;{This is the entry function that will be called by DataCAD.
         All DCAL Dlls will have this function.}

begin

end.


Here is the source code for the main form 'varBrowserFrom.pas'
Code: Select allunit varBrowserForm;

interface

uses
   // Delphi Units
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls,

   // DCAL for Delphi Units
   UConstants, UInterfaces, UInterfacesRecords, URecords, UVariables, Grids,
   ValEdit;

type
   TvarForm = class(TForm)
      ValueListEditor1: TValueListEditor;
      procedure FormShow(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   varForm: TvarForm;

implementation

{$R *.dfm}

procedure TvarForm.FormShow(Sender: TObject);
var
   SL: TStringList;
begin
   ValueListEditor1.InsertRow('headerversion', IntToStr(PGSavevar.headerversion), True);
   ValueListEditor1.InsertRow('strtype', IntToStr(PGSavevar.strtype), True);
   ValueListEditor1.InsertRow('dimse1', BoolToStr(PGSavevar.dimse1, True), True);
   ValueListEditor1.InsertRow('dimse2', BoolToStr(PGSavevar.dimse2, True), True);
   ValueListEditor1.InsertRow('dimtih', BoolToStr(PGSavevar.dimtih, True), True);
   ValueListEditor1.InsertRow('dimtoh', BoolToStr(PGSavevar.dimtoh, True), True);
   ValueListEditor1.InsertRow('dimtad', BoolToStr(PGSavevar.dimtad, True), True);
   ValueListEditor1.InsertRow('dimtxtauto', BoolToStr(PGSavevar.dimtxtauto, True), True);
   ValueListEditor1.InsertRow('dimtol', BoolToStr(PGSavevar.dimtol, True), True);
   ValueListEditor1.InsertRow('stakfrac', BoolToStr(PGSavevar.stakfrac, True), True);
   ValueListEditor1.InsertRow('dimasz', FloatToStr(PGSavevar.dimasz), True);
   ValueListEditor1.InsertRow('boxclr', IntToStr(PGSavevar.boxclr), True);
   ValueListEditor1.InsertRow('boxsiz', IntToStr(PGSavevar.boxsiz), True);
   ValueListEditor1.InsertRow('dimcen', FloatToStr(PGSavevar.dimcen), True);
   ValueListEditor1.InsertRow('dimexo1', FloatToStr(PGSavevar.dimexo1), True);
   ValueListEditor1.InsertRow('dimexo2', FloatToStr(PGSavevar.dimexo2), True);
   ValueListEditor1.InsertRow('dimexe', FloatToStr(PGSavevar.dimexe), True);
   ValueListEditor1.InsertRow('dimdli', FloatToStr(PGSavevar.dimdli), True);
   ValueListEditor1.InsertRow('dimtp', FloatToStr(PGSavevar.dimtp), True);
   ValueListEditor1.InsertRow('dimtm', FloatToStr(PGSavevar.dimtm), True);
   ValueListEditor1.InsertRow('dmlntyp', IntToStr(PGSavevar.dmlntyp), True);
   ValueListEditor1.InsertRow('dimtype', IntToStr(PGSavevar.dimtype), True);
   ValueListEditor1.InsertRow('dimangl', FloatToStr(PGSavevar.dimangl), True);
   ValueListEditor1.InsertRow('dimtic', IntToStr(PGSavevar.dimtic), True);
   ValueListEditor1.InsertRow('srch', BoolToStr(PGSavevar.srch, True), True);
   ValueListEditor1.InsertRow('XrefDragCtr', BoolToStr(PGSavevar.XrefDragCtr, True), True);
   ValueListEditor1.InsertRow('aline', IntToStr(PGSavevar.aline), True);
   ValueListEditor1.InsertRow('gridclr', IntToStr(PGSavevar.gridclr), True);
   ValueListEditor1.InsertRow('grd1clr', IntToStr(PGSavevar.grd1clr), True);
   ValueListEditor1.InsertRow('grid1sz', IntToStr(PGSavevar.grid1sz), True);
   ValueListEditor1.InsertRow('htchorg', FloatToStr(PGSavevar.htchorg.x), True);
   ValueListEditor1.InsertRow('drwsnap', BoolToStr(PGSavevar.drwsnap, True), True);
   ValueListEditor1.InsertRow('mirtext', BoolToStr(PGSavevar.mirtext, True), True);
   ValueListEditor1.InsertRow('allorgs', BoolToStr(PGSavevar.allorgs, True), True);
   ValueListEditor1.InsertRow('ofsdyn', BoolToStr(PGSavevar.ofsdyn, True), True);
   ValueListEditor1.InsertRow('symbinc', FloatToStr(PGSavevar.symbinc), True);
   ValueListEditor1.InsertRow('curssiz', IntToStr(PGSavevar.curssiz), True);
   ValueListEditor1.InsertRow('doortyp', IntToStr(PGSavevar.doortyp), True);
   ValueListEditor1.InsertRow('chamfra', FloatToStr(PGSavevar.chamfra), True);
   ValueListEditor1.InsertRow('chamfrb', FloatToStr(PGSavevar.chamfrb), True);
   ValueListEditor1.InsertRow('wallcln', IntToStr(PGSavevar.wallcln), True);
   ValueListEditor1.InsertRow('ovrdraw', BoolToStr(PGSavevar.ovrdraw, True), True);
   ValueListEditor1.InsertRow('LastXrefDyn', BoolToStr(PGSavevar.LastXrefDyn, True), True);
   ValueListEditor1.InsertRow('inpstyl', FloatToStr(PGSavevar.inpstyl), True);
   ValueListEditor1.InsertRow('dimmovr', FloatToStr(PGSavevar.dimmovr), True);
   ValueListEditor1.InsertRow('plincover', BoolToStr(PGSavevar.plincover, True), True);
   ValueListEditor1.InsertRow('showref', BoolToStr(PGSavevar.showref, True), True);
   ValueListEditor1.InsertRow('sym_enl', FloatToStr(PGSavevar.sym_enl.x), True);
   ValueListEditor1.InsertRow('jambthk', FloatToStr(PGSavevar.jambthk), True);
   ValueListEditor1.InsertRow('select', IntToStr(PGSavevar.select), True);
   ValueListEditor1.InsertRow('dimtxtsz', FloatToStr(PGSavevar.dimtxtsz), True);
   ValueListEditor1.InsertRow('dimstrdis', FloatToStr(PGSavevar.dimstrdis), True);
   ValueListEditor1.InsertRow('arrtype', IntToStr(PGSavevar.arrtype), True);
   ValueListEditor1.InsertRow('arratio', FloatToStr(PGSavevar.arratio), True);
   ValueListEditor1.InsertRow('filrad', FloatToStr(PGSavevar.filrad), True);
   ValueListEditor1.InsertRow('filcut', BoolToStr(PGSavevar.filcut, True), True);
   ValueListEditor1.InsertRow('plinrect', BoolToStr(PGSavevar.plinrect, True), True);
   ValueListEditor1.InsertRow('doorang', FloatToStr(PGSavevar.doorang), True);
   ValueListEditor1.InsertRow('wallwidth', FloatToStr(PGSavevar.wallwidth), True);
   ValueListEditor1.InsertRow('doorwidth', FloatToStr(PGSavevar.doorwidth), True);
   ValueListEditor1.InsertRow('windwidth', FloatToStr(PGSavevar.windwidth), True);
   ValueListEditor1.InsertRow('drawmarks', BoolToStr(PGSavevar.drawmarks, True), True);
   ValueListEditor1.InsertRow('multilayer', BoolToStr(PGSavevar.multilayer, True), True);
   ValueListEditor1.InsertRow('smallgrid', IntToStr(PGSavevar.smallgrid), True);
   ValueListEditor1.InsertRow('scroll', FloatToStr(PGSavevar.scroll), True);
   ValueListEditor1.InsertRow('numdivs', IntToStr(PGSavevar.numdivs), True);
   ValueListEditor1.InsertRow('hatchmode', IntToStr(PGSavevar.hatchmode), True);
   ValueListEditor1.InsertRow('hatchsc', FloatToStr(PGSavevar.hatchsc), True);
   ValueListEditor1.InsertRow('hatchang', FloatToStr(PGSavevar.hatchang), True);
   ValueListEditor1.InsertRow('findhatch', BoolToStr(PGSavevar.findhatch, True), True);
   ValueListEditor1.InsertRow('showall', BoolToStr(PGSavevar.showall, True), True);
   ValueListEditor1.InsertRow('basez', FloatToStr(PGSavevar.basez), True);
   ValueListEditor1.InsertRow('hitez', FloatToStr(PGSavevar.hitez), True);
   ValueListEditor1.InsertRow('scalefacx', FloatToStr(PGSavevar.scalefacx), True);
   ValueListEditor1.InsertRow('scalefacy', FloatToStr(PGSavevar.scalefacy), True);
   ValueListEditor1.InsertRow('scalefacz', FloatToStr(PGSavevar.scalefacz), True);
   ValueListEditor1.InsertRow('numsides', IntToStr(PGSavevar.numsides), True);
   ValueListEditor1.InsertRow('temprot', FloatToStr(PGSavevar.temprot), True);
   ValueListEditor1.InsertRow('arrowsize', FloatToStr(PGSavevar.arrowsize), True);
   ValueListEditor1.InsertRow('userlines', BoolToStr(PGSavevar.userlines, True), True);
   ValueListEditor1.InsertRow('autocalc', BoolToStr(PGSavevar.autocalc, True), True);
   ValueListEditor1.InsertRow('snapangs', IntToStr(PGSavevar.snapangs), True);
   ValueListEditor1.InsertRow('jambin', BoolToStr(PGSavevar.jambin, True), True);
   ValueListEditor1.InsertRow('jamb', BoolToStr(PGSavevar.jamb, True), True);
   ValueListEditor1.InsertRow('jambwth', FloatToStr(PGSavevar.jambwth), True);
   ValueListEditor1.InsertRow('rotang', FloatToStr(PGSavevar.rotang), True);
   ValueListEditor1.InsertRow('cutout', BoolToStr(PGSavevar.cutout, True), True);
   ValueListEditor1.InsertRow('popmess', BoolToStr(PGSavevar.popmess, True), True);
   ValueListEditor1.InsertRow('outsill', FloatToStr(PGSavevar.outsill), True);
   ValueListEditor1.InsertRow('insill', FloatToStr(PGSavevar.insill), True);
   ValueListEditor1.InsertRow('glssthk', FloatToStr(PGSavevar.glssthk), True);
   ValueListEditor1.InsertRow('tmpstrx', FloatToStr(PGSavevar.tmpstrx), True);
   ValueListEditor1.InsertRow('tmpstry', FloatToStr(PGSavevar.tmpstry), True);
   ValueListEditor1.InsertRow('tmpstrz', FloatToStr(PGSavevar.tmpstrz), True);
   ValueListEditor1.InsertRow('sidewnd', BoolToStr(PGSavevar.sidewnd, True), True);
   ValueListEditor1.InsertRow('InsXClip', BoolToStr(PGSavevar.InsXClip, True), True);
   ValueListEditor1.InsertRow('swngtype', IntToStr(PGSavevar.swngtype), True);
   ValueListEditor1.InsertRow('texton', BoolToStr(PGSavevar.texton, True), True);
   ValueListEditor1.InsertRow('curvdts', BoolToStr(PGSavevar.curvdts, True), True);
   ValueListEditor1.InsertRow('showwgt', BoolToStr(PGSavevar.showwgt, True), True);
   ValueListEditor1.InsertRow('fillon', BoolToStr(PGSavevar.fillon, True), True);
   ValueListEditor1.InsertRow('lytsize', IntToStr(PGSavevar.lytsize), True);
   ValueListEditor1.InsertRow('txtang', FloatToStr(PGSavevar.txtang), True);
   ValueListEditor1.InsertRow('txtsiz', FloatToStr(PGSavevar.txtsiz), True);
   ValueListEditor1.InsertRow('txtwgt', IntToStr(PGSavevar.txtwgt), True);
   ValueListEditor1.InsertRow('txtslnt', FloatToStr(PGSavevar.txtslnt), True);
   ValueListEditor1.InsertRow('txtaspt', FloatToStr(PGSavevar.txtaspt), True);
   ValueListEditor1.InsertRow('swngcolr', IntToStr(PGSavevar.swngcolr), True);
   ValueListEditor1.InsertRow('orthmode', BoolToStr(PGSavevar.orthmode, True), True);
   ValueListEditor1.InsertRow('refresh', BoolToStr(PGSavevar.refresh, True), True);
   ValueListEditor1.InsertRow('constref', BoolToStr(PGSavevar.constref, True), True);
   ValueListEditor1.InsertRow('bitmapon', BoolToStr(PGSavevar.bitmapon, True), True);
   ValueListEditor1.InsertRow('refpnt', FloatToStr(PGSavevar.refpnt.x), True);
   ValueListEditor1.InsertRow('missdis', IntToStr(PGSavevar.missdis), True);
   ValueListEditor1.InsertRow('scaletype', IntToStr(PGSavevar.scaletype), True);
   ValueListEditor1.InsertRow('phase', IntToStr(PGSavevar.phase), True);
   ValueListEditor1.InsertRow('service', IntToStr(PGSavevar.service), True);
   ValueListEditor1.InsertRow('dept', IntToStr(PGSavevar.dept), True);
   ValueListEditor1.InsertRow('lf_fact', FloatToStr(PGSavevar.lf_fact), True);
   ValueListEditor1.InsertRow('noposttime', IntToStr(PGSavevar.noposttime), True);
   ValueListEditor1.InsertRow('totime', IntToStr(PGSavevar.totime), True);
   ValueListEditor1.InsertRow('rate', IntToStr(PGSavevar.rate), True);
   ValueListEditor1.InsertRow('delay', IntToStr(PGSavevar.delay), True);
   ValueListEditor1.InsertRow('centline', IntToStr(PGSavevar.centline), True);
   ValueListEditor1.InsertRow('noisy', BoolToStr(PGSavevar.noisy, True), True);
   ValueListEditor1.InsertRow('bigcurs', BoolToStr(PGSavevar.bigcurs, True), True);
   ValueListEditor1.InsertRow('f_delay', IntToStr(PGSavevar.f_delay), True);
   ValueListEditor1.InsertRow('lyrview', BoolToStr(PGSavevar.lyrview, True), True);
   ValueListEditor1.InsertRow('FilledArrow', BoolToStr(PGSavevar.FilledArrow, True), True);
   ValueListEditor1.InsertRow('numscales', IntToStr(PGSavevar.numscales), True);
   ValueListEditor1.InsertRow('wall', IntToStr(PGSavevar.wall), True);
   ValueListEditor1.InsertRow('osnap.val', IntToStr(PGSavevar.osnap.val), True);
   ValueListEditor1.InsertRow('osnap.num', IntToStr(PGSavevar.osnap.num), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.saveview, True), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.yr, True), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.scalei, True), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.desc, True), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.active, True), True);
   ValueListEditor1.InsertRow('LastXref.ang', FloatToStr(PGSavevar.LastXref.ang), True);
   ValueListEditor1.InsertRow('LastXref.scl', FloatToStr(PGSavevar.LastXref.scl), True);
   ValueListEditor1.InsertRow('angstyl', IntToStr(PGSavevar.angstyl), True);
   ValueListEditor1.InsertRow('nounits', BoolToStr(PGSavevar.nounits, True), True);
   ValueListEditor1.InsertRow('typemode', BoolToStr(PGSavevar.typemode, True), True);
   ValueListEditor1.InsertRow('mindimm', FloatToStr(PGSavevar.mindimm), True);
   ValueListEditor1.InsertRow('automis', FloatToStr(PGSavevar.automis), True);
   ValueListEditor1.InsertRow('autosty', FloatToStr(PGSavevar.autosty), True);
   ValueListEditor1.InsertRow('dmnopts', BoolToStr(PGSavevar.dmnopts, True), True);
   ValueListEditor1.InsertRow('fixddis', BoolToStr(PGSavevar.fixddis, True), True);
   ValueListEditor1.InsertRow('lyoutx', IntToStr(PGSavevar.lyoutx), True);
   ValueListEditor1.InsertRow('lyouty', IntToStr(PGSavevar.lyouty), True);
   ValueListEditor1.InsertRow('autolyr', BoolToStr(PGSavevar.autolyr, True), True);
   ValueListEditor1.InsertRow('assoc', BoolToStr(PGSavevar.assoc, True), True);
   ValueListEditor1.InsertRow('ptsonly', BoolToStr(PGSavevar.ptsonly, True), True);
   ValueListEditor1.InsertRow('fromdim', BoolToStr(PGSavevar.fromdim, True), True);
   ValueListEditor1.InsertRow('dimmon', BoolToStr(PGSavevar.dimmon, True), True);
   ValueListEditor1.InsertRow('autodim', BoolToStr(PGSavevar.autodim, True), True);
   ValueListEditor1.InsertRow('doorhgt', FloatToStr(PGSavevar.doorhgt), True);
   ValueListEditor1.InsertRow('sillhgt', FloatToStr(PGSavevar.sillhgt), True);
   ValueListEditor1.InsertRow('headhgt', FloatToStr(PGSavevar.headhgt), True);
   ValueListEditor1.InsertRow('plt.scalei', IntToStr(PGSavevar.plt.scalei), True);
   ValueListEditor1.InsertRow('plt.xr', FloatToStr(PGSavevar.plt.xr), True);
   ValueListEditor1.InsertRow('plt.yr', FloatToStr(PGSavevar.plt.yr), True);
   ValueListEditor1.InsertRow('plt.penspeed', IntToStr(PGSavevar.plt.penspeed), True);
   ValueListEditor1.InsertRow('plt.penwidth', IntToStr(PGSavevar.plt.penwidth), True);
   ValueListEditor1.InsertRow('plt.papersize', IntToStr(PGSavevar.plt.papersize), True);
   ValueListEditor1.InsertRow('plt.color', BoolToStr(PGSavevar.plt.color, True), True);
   ValueListEditor1.InsertRow('plt.pensort', BoolToStr(PGSavevar.plt.pensort, True), True);
   ValueListEditor1.InsertRow('dynam', BoolToStr(PGSavevar.dynam, True), True);
   ValueListEditor1.InsertRow('symbperp2ply', BoolToStr(PGSavevar.symbperp2ply, True), True);
   ValueListEditor1.InsertRow('currlayer', IntToStr(PGSavevar.currlayer.page) + ',' +
                                           IntToStr(PGSavevar.currlayer.ofs), True);
   ValueListEditor1.InsertRow('sym_exp', BoolToStr(PGSavevar.sym_exp, True), True);
   ValueListEditor1.InsertRow('symbz2ply', BoolToStr(PGSavevar.symbz2ply, True), True);
   ValueListEditor1.InsertRow('symname_addr', IntToStr(PGSavevar.symname_addr.page) + ',' +
                                              IntToStr(PGSavevar.symname_addr.ofs), True);
   ValueListEditor1.InsertRow('usrfact', BoolToStr(PGSavevar.usrfact, True), True);
   ValueListEditor1.InsertRow('hatchon', BoolToStr(PGSavevar.hatchon, True), True);
   ValueListEditor1.InsertRow('ts_create', IntToStr(PGSavevar.ts_create), True);
   ValueListEditor1.InsertRow('ts_update', IntToStr(PGSavevar.ts_update), True);
   ValueListEditor1.InsertRow('arrowgt', IntToStr(PGSavevar.arrowgt), True);
   ValueListEditor1.InsertRow('arroclr', IntToStr(PGSavevar.arroclr), True);
   ValueListEditor1.InsertRow('pltlim.x', FloatToStr(PGSavevar.pltlim.x), True);
   ValueListEditor1.InsertRow('pltlim.y', FloatToStr(PGSavevar.pltlim.y), True);
   ValueListEditor1.InsertRow('dmticwt', IntToStr(PGSavevar.dmticwt), True);
   ValueListEditor1.InsertRow('dim2lns', IntToStr(PGSavevar.dim2lns), True);
   ValueListEditor1.InsertRow('maxdrag', IntToStr(PGSavevar.maxdrag), True);
   ValueListEditor1.InsertRow('boxsym', IntToStr(PGSavevar.boxsym), True);
   ValueListEditor1.InsertRow('plyVert', BoolToStr(PGSavevar.plyVert, True), True);
   ValueListEditor1.InsertRow('plyInsd', BoolToStr(PGSavevar.plyInsd, True), True);
   ValueListEditor1.InsertRow('plyDiam', BoolToStr(PGSavevar.plyDiam, True), True);
   ValueListEditor1.InsertRow('plyCntr', BoolToStr(PGSavevar.plyCntr, True), True);
   ValueListEditor1.InsertRow('aperture', BoolToStr(PGSavevar.aperture, True), True);
   ValueListEditor1.InsertRow('autoInc', BoolToStr(PGSavevar.autoInc, True), True);
   ValueListEditor1.InsertRow('matchwall', BoolToStr(PGSavevar.matchwall, True), True);
   ValueListEditor1.InsertRow('matchdoor', BoolToStr(PGSavevar.matchdoor, True), True);
   ValueListEditor1.InsertRow('loc_error', IntToStr(PGSavevar.loc_error), True);
   ValueListEditor1.InsertRow('dinstd', BoolToStr(PGSavevar.dinstd, True), True);
   ValueListEditor1.InsertRow('dmtxtoff', FloatToStr(PGSavevar.dmtxtoff), True);
   ValueListEditor1.InsertRow('dmtxtwt', IntToStr(PGSavevar.dmtxtwt), True);
   ValueListEditor1.InsertRow('showneg', BoolToStr(PGSavevar.showneg, True), True);
   ValueListEditor1.InsertRow('plyrect', BoolToStr(PGSavevar.plyrect, True), True);
   ValueListEditor1.InsertRow('goodies.srch', BoolToStr(PGSavevar.goodies.srch, True), True);
   ValueListEditor1.InsertRow('goodies.lyr.ofs', IntToStr(PGSavevar.goodies.lyr.page) + ',' +
                                                 IntToStr(PGSavevar.goodies.lyr.ofs), True);
   ValueListEditor1.InsertRow('copflag', BoolToStr(PGSavevar.copflag, True), True);
   ValueListEditor1.InsertRow('dmslant', FloatToStr(PGSavevar.dmslant), True);
   ValueListEditor1.InsertRow('dmaspct', FloatToStr(PGSavevar.dmaspct), True);
   ValueListEditor1.InsertRow('inwall', BoolToStr(PGSavevar.inwall, True), True);
   ValueListEditor1.InsertRow('showz', BoolToStr(PGSavevar.showz, True), True);
   ValueListEditor1.InsertRow('rotplot.on1', BoolToStr(PGSavevar.rotplot.on1, True), True);
   ValueListEditor1.InsertRow('rotplot.ang', FloatToStr(PGSavevar.rotplot.ang), True);
   ValueListEditor1.InsertRow('rotplot.cent.x', FloatToStr(PGSavevar.rotplot.cent.x), True);
   ValueListEditor1.InsertRow('ssactive', IntToStr(PGSavevar.ssactive), True);
   ValueListEditor1.InsertRow('showins', BoolToStr(PGSavevar.showins, True), True);
   ValueListEditor1.InsertRow('crcfact', FloatToStr(PGSavevar.crcfact), True);
   ValueListEditor1.InsertRow('doacres', BoolToStr(PGSavevar.doacres, True), True);
   ValueListEditor1.InsertRow('frmwinfont', BoolToStr(PGSavevar.frmwinfont, True), True);
   ValueListEditor1.InsertRow('txtWinFont', BoolToStr(PGSavevar.txtWinFont, True), True);
   ValueListEditor1.InsertRow('dmwinfont', BoolToStr(PGSavevar.dmwinfont, True), True);
   ValueListEditor1.InsertRow('lastdist', FloatToStr(PGSavevar.lastdist.x), True);
   ValueListEditor1.InsertRow('snapsrch', BoolToStr(PGSavevar.snapsrch, True), True);
   ValueListEditor1.InsertRow('symfact', FloatToStr(PGSavevar.symfact), True);
   ValueListEditor1.InsertRow('atrDraw', BoolToStr(PGSavevar.atrDraw, True), True);
   ValueListEditor1.InsertRow('autopath', BoolToStr(PGSavevar.autopath, True), True);
   ValueListEditor1.InsertRow('frstAtr', IntToStr(PGSavevar.frstAtr.page) + ',' +
                                         IntToStr(PGSavevar.frstAtr.ofs), True);
   ValueListEditor1.InsertRow('lastAtr', IntToStr(PGSavevar.lastAtr.page) + ',' +
                                         IntToStr(PGSavevar.lastAtr.ofs), True);
   ValueListEditor1.InsertRow('disSync', BoolToStr(PGSavevar.disSync, True), True);
   ValueListEditor1.InsertRow('dxfFact', FloatToStr(PGSavevar.dxfFact), True);
   ValueListEditor1.InsertRow('symRotate', BoolToStr(PGSavevar.symRotate, True), True);
   ValueListEditor1.InsertRow('multimov', BoolToStr(PGSavevar.multimov, True), True);
   ValueListEditor1.InsertRow('noSingle', BoolToStr(PGSavevar.noSingle, True), True);
   ValueListEditor1.InsertRow('sigdigits', IntToStr(PGSavevar.sigdigits), True);
   ValueListEditor1.InsertRow('line_enlg', FloatToStr(PGSavevar.line_enlg), True);
   ValueListEditor1.InsertRow('dimmpts', BoolToStr(PGSavevar.dimmpts, True), True);
   ValueListEditor1.InsertRow('txtuseplt', BoolToStr(PGSavevar.txtuseplt, True), True);
   ValueListEditor1.InsertRow('dynamtxt', BoolToStr(PGSavevar.dynamtxt, True), True);
   ValueListEditor1.InsertRow('LastEnlPt', FloatToStr(PGSavevar.LastEnlPt.x), True);
   ValueListEditor1.InsertRow('dimtxtclr', IntToStr(PGSavevar.dimtxtclr), True);
   ValueListEditor1.InsertRow('dimticclr', IntToStr(PGSavevar.dimticclr), True);
   ValueListEditor1.InsertRow('dimlim', BoolToStr(PGSavevar.dimlim, True), True);
   ValueListEditor1.InsertRow('persviewoption', IntToStr(PGSavevar.persviewoption), True);
   ValueListEditor1.InsertRow('dimangtp', FloatToStr(PGSavevar.dimangtp), True);
   ValueListEditor1.InsertRow('dimangtm', FloatToStr(PGSavevar.dimangtm), True);
   ValueListEditor1.InsertRow('LastRotPt', FloatToStr(PGSavevar.LastRotPt.x), True);
   ValueListEditor1.InsertRow('StartAng', FloatToStr(PGSavevar.StartAng), True);
   ValueListEditor1.InsertRow('ClkWise', BoolToStr(PGSavevar.ClkWise, True), True);
   ValueListEditor1.InsertRow('crvpts', BoolToStr(PGSavevar.crvpts, True), True);
   ValueListEditor1.InsertRow('regen_order', IntToStr(PGSavevar.regen_order), True);
   ValueListEditor1.InsertRow('layout_exts', BoolToStr(PGSavevar.layout_exts, True), True);
   ValueListEditor1.InsertRow('dl_fact', IntToStr(PGSavevar.dl_fact), True);
   ValueListEditor1.InsertRow('copy_ctr', BoolToStr(PGSavevar.copy_ctr, True), True);
   ValueListEditor1.InsertRow('dimautorot', BoolToStr(PGSavevar.dimautorot, True), True);
   ValueListEditor1.InsertRow('freehandtyp', IntToStr(PGSavevar.freehandtyp), True);
   ValueListEditor1.InsertRow('plottime', IntToStr(PGSavevar.plottime), True);
   ValueListEditor1.InsertRow('hidetime', IntToStr(PGSavevar.hidetime), True);
   ValueListEditor1.InsertRow('perstime', IntToStr(PGSavevar.perstime), True);
   ValueListEditor1.InsertRow('offsdis', FloatToStr(PGSavevar.offsdis), True);
   ValueListEditor1.InsertRow('globpara', FloatToStr(PGSavevar.globpara.x), True);
   ValueListEditor1.InsertRow('globpers', FloatToStr(PGSavevar.globpers.x), True);
   ValueListEditor1.InsertRow('goldcut', BoolToStr(PGSavevar.goldcut, True), True);
   ValueListEditor1.InsertRow('dmdirect', BoolToStr(PGSavevar.dmdirect, True), True);
// ValueListEditor1.InsertRow('', (PGSavevar.TextMask), True);
   ValueListEditor1.InsertRow('srchwinfont', BoolToStr(PGSavevar.srchwinfont, True), True);
   ValueListEditor1.InsertRow('txtsizMask', FloatToStr(PGSavevar.txtsizMask), True);
   ValueListEditor1.InsertRow('SelGreedy', BoolToStr(PGSavevar.SelGreedy, True), True);
   ValueListEditor1.InsertRow('refmarks', BoolToStr(PGSavevar.refmarks, True), True);
   ValueListEditor1.InsertRow('cutmarks', BoolToStr(PGSavevar.cutmarks, True), True);
   ValueListEditor1.InsertRow('LyrFilterOn', BoolToStr(PGSavevar.LyrFilterOn, True), True);
   ValueListEditor1.InsertRow('lastver', IntToStr(PGSavevar.lastver), True);
   ValueListEditor1.InsertRow('walltype', IntToStr(PGSavevar.walltype), True);
   ValueListEditor1.InsertRow('hilite.on1', BoolToStr(PGSavevar.hilite.on1, True), True);
   ValueListEditor1.InsertRow('hilite.outside', BoolToStr(PGSavevar.hilite.outside, True), True);
   ValueListEditor1.InsertRow('hilite.color', IntToStr(PGSavevar.hilite.color), True);
   ValueListEditor1.InsertRow('hilite.Width', IntToStr(PGSavevar.hilite.Width), True);
   ValueListEditor1.InsertRow('hilite.linetype', IntToStr(PGSavevar.hilite.linetype), True);
   ValueListEditor1.InsertRow('cwall.ext_width', FloatToStr(PGSavevar.cwall.ext_width), True);
   ValueListEditor1.InsertRow('cwall.int_width', FloatToStr(PGSavevar.cwall.int_width), True);
   ValueListEditor1.InsertRow('cwall.cav_width', FloatToStr(PGSavevar.cwall.cav_width), True);
   ValueListEditor1.InsertRow('cwall.color', IntToStr(PGSavevar.cwall.color), True);
   ValueListEditor1.InsertRow('cwall.lnwidth', IntToStr(PGSavevar.cwall.lnwidth), True);
   ValueListEditor1.InsertRow('cwall.lntype', IntToStr(PGSavevar.cwall.lntype), True);
   ValueListEditor1.InsertRow('cntrline.color', IntToStr(PGSavevar.cntrline.color), True);
   ValueListEditor1.InsertRow('cntrline.lnwidth', IntToStr(PGSavevar.cntrline.lnwidth), True);
   ValueListEditor1.InsertRow('cntrline.lntype', IntToStr(PGSavevar.cntrline.lntype), True);
   ValueListEditor1.InsertRow('multilayout', BoolToStr(PGSavevar.multilayout, True), True);
   ValueListEditor1.InsertRow('currsheet', IntToStr(PGSavevar.currsheet), True);
   ValueListEditor1.InsertRow('PaletteData', IntToStr(PGSavevar.PaletteData.page) + ',' +
                                             IntToStr(PGSavevar.PaletteData.ofs), True);
   ValueListEditor1.InsertRow('strings_stored_location', IntToStr(PGSavevar.strings_stored_location.page) + ',' +
                                                         IntToStr(PGSavevar.strings_stored_location.ofs), True);
   ValueListEditor1.InsertRow('Areasigdigits', IntToStr(PGSavevar.Areasigdigits), True);
   ValueListEditor1.InsertRow('DrawHatchPlin', BoolToStr(PGSavevar.DrawHatchPlin, True), True);
   ValueListEditor1.InsertRow('sym_exp_currlyr', BoolToStr(PGSavevar.sym_exp_currlyr, True), True);
   ValueListEditor1.InsertRow('sym_exp_oldAttrib', BoolToStr(PGSavevar.sym_exp_oldAttrib, True), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.txttype, True), True);
   ValueListEditor1.InsertRow('ZbyLayer', BoolToStr(PGSavevar.ZbyLayer, True), True);
   ValueListEditor1.InsertRow('MoveAutoRefresh', BoolToStr(PGSavevar.MoveAutoRefresh, True), True);
   ValueListEditor1.InsertRow('SymZOffset', IntToStr(PGSavevar.SymZOffset), True);
   ValueListEditor1.InsertRow('OffsPerp', BoolToStr(PGSavevar.OffsPerp, True), True);
   ValueListEditor1.InsertRow('First_LineDef', IntToStr(PGSavevar.First_LineDef.page) + ',' +
                                               IntToStr(PGSavevar.First_LineDef.ofs), True);
   ValueListEditor1.InsertRow('Last_LineDef', IntToStr(PGSavevar.Last_LineDef.page) + ',' +
                                              IntToStr(PGSavevar.Last_LineDef.ofs), True);
   ValueListEditor1.InsertRow('XRefNoNested', BoolToStr(PGSavevar.XRefNoNested, True), True);
   ValueListEditor1.InsertRow('GlobalOvershoot', BoolToStr(PGSavevar.GlobalOvershoot, True), True);
   ValueListEditor1.InsertRow('First_HatchDef', IntToStr(PGSavevar.First_HatchDef.page) + ',' +
                                                IntToStr(PGSavevar.First_HatchDef.ofs), True);
   ValueListEditor1.InsertRow('Last_HatchDef', IntToStr(PGSavevar.Last_HatchDef.page) + ',' +
                                               IntToStr(PGSavevar.Last_HatchDef.ofs), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.StandardLineTypesFactor, True), True);
   ValueListEditor1.InsertRow('OvershootHatch', BoolToStr(PGSavevar.OvershootHatch, True), True);
   ValueListEditor1.InsertRow('LockHatch', IntToStr(PGSavevar.LockHatch), True);
   ValueListEditor1.InsertRow('RotSelBox', BoolToStr(PGSavevar.RotSelBox, True), True);
   ValueListEditor1.InsertRow('OpenRFM', BoolToStr(PGSavevar.OpenRFM, True), True);
   ValueListEditor1.InsertRow('ShowHatchOrigin', BoolToStr(PGSavevar.ShowHatchOrigin, True), True);
   ValueListEditor1.InsertRow('smallfrac', FloatToStr(PGSavevar.smallfrac), True);
   ValueListEditor1.InsertRow('Trim1LineByEnt', BoolToStr(PGSavevar.Trim1LineByEnt, True), True);
   ValueListEditor1.InsertRow('XRefZOffset', IntToStr(PGSavevar.XRefZOffset), True);
   ValueListEditor1.InsertRow('XRefz2ply', BoolToStr(PGSavevar.XRefz2ply, True), True);
   ValueListEditor1.InsertRow('xrefinc', FloatToStr(PGSavevar.xrefinc), True);
   ValueListEditor1.InsertRow('ClipBZOffset', IntToStr(PGSavevar.ClipBZOffset), True);
   ValueListEditor1.InsertRow('ClipBz2ply', BoolToStr(PGSavevar.ClipBz2ply, True), True);
   ValueListEditor1.InsertRow('ClipBinc', FloatToStr(PGSavevar.ClipBinc), True);
   ValueListEditor1.InsertRow('symexp_currlyr', IntToStr(PGSavevar.symexp_currlyr), True);
   ValueListEditor1.InsertRow('xref_multi', BoolToStr(PGSavevar.xref_multi, True), True);
   ValueListEditor1.InsertRow('KeepGroups', BoolToStr(PGSavevar.KeepGroups, True), True);
   ValueListEditor1.InsertRow('frstmaterial', IntToStr(PGSavevar.frstmaterial.page) + ',' +
                                              IntToStr(PGSavevar.frstmaterial.ofs), True);
   ValueListEditor1.InsertRow('lastmaterial', IntToStr(PGSavevar.lastmaterial.page) + ',' +
                                              IntToStr(PGSavevar.lastmaterial.ofs), True);
   ValueListEditor1.InsertRow('frstwinline', IntToStr(PGSavevar.frstwinline.page) + ',' +
                                             IntToStr(PGSavevar.frstwinline.ofs), True);
   ValueListEditor1.InsertRow('dimscaletype', IntToStr(PGSavevar.dimscaletype), True);
   ValueListEditor1.InsertRow('dimnounits', BoolToStr(PGSavevar.dimnounits, True), True);
   ValueListEditor1.InsertRow('dimstakfrac', BoolToStr(PGSavevar.dimstakfrac, True), True);
   ValueListEditor1.InsertRow('dimsmallfrac', FloatToStr(PGSavevar.dimsmallfrac), True);
   ValueListEditor1.InsertRow('dimnosingle', BoolToStr(PGSavevar.dimnosingle, True), True);
   ValueListEditor1.InsertRow('dimsigdigits', IntToStr(PGSavevar.dimsigdigits), True);
   ValueListEditor1.InsertRow('smartwalls', BoolToStr(PGSavevar.smartwalls, True), True);
   ValueListEditor1.InsertRow('symuseplt', BoolToStr(PGSavevar.symuseplt, True), True);
   ValueListEditor1.InsertRow('symscale', FloatToStr(PGSavevar.symscale), True);
   ValueListEditor1.InsertRow('syminview', BoolToStr(PGSavevar.syminview, True), True);
   ValueListEditor1.InsertRow('smartdatastorage', IntToStr(PGSavevar.smartdatastorage.page) + ',' +
                                                  IntToStr(PGSavevar.smartdatastorage.ofs), True);
   ValueListEditor1.InsertRow('rotate_quick', BoolToStr(PGSavevar.rotate_quick, True), True);
   ValueListEditor1.InsertRow('rotate_by_center', BoolToStr(PGSavevar.rotate_by_center, True), True);
   ValueListEditor1.InsertRow('rotate_to_absolute', BoolToStr(PGSavevar.rotate_to_absolute, True), True);
   ValueListEditor1.InsertRow('doorjambin', BoolToStr(PGSavevar.doorjambin, True), True);
   ValueListEditor1.InsertRow('Nested_Xref_Hilite', BoolToStr(PGSavevar.Nested_Xref_Hilite, True), True);
   ValueListEditor1.InsertRow('XRef_Name', BoolToStr(PGSavevar.XRef_Name, True), True);
   ValueListEditor1.InsertRow('Layer_Menu_Offset', IntToStr(PGSavevar.Layer_Menu_Offset), True);
   ValueListEditor1.InsertRow('bindmaterial2ent_read', BoolToStr(PGSavevar.bindmaterial2ent_read, True), True);
   ValueListEditor1.InsertRow('bindmaterial2ent_write', BoolToStr(PGSavevar.bindmaterial2ent_write, True), True);
   ValueListEditor1.InsertRow('ClipRotate', BoolToStr(PGSavevar.ClipRotate, True), True);
   ValueListEditor1.InsertRow('SnapOffset', BoolToStr(PGSavevar.SnapOffset, True), True);
   ValueListEditor1.InsertRow('SnapOffsetDis', FloatToStr(PGSavevar.SnapOffsetDis), True);
   ValueListEditor1.InsertRow('rottext', BoolToStr(PGSavevar.rottext, True), True);
   ValueListEditor1.InsertRow('SnapOnScreen', BoolToStr(PGSavevar.SnapOnScreen, True), True);
   ValueListEditor1.InsertRow('OffLayersOn', BoolToStr(PGSavevar.OffLayersOn, True), True);
   ValueListEditor1.InsertRow('enlarge_by_center', BoolToStr(PGSavevar.enlarge_by_center, True), True);
   ValueListEditor1.InsertRow('AnyLayer', BoolToStr(PGSavevar.AnyLayer, True), True);
   ValueListEditor1.InsertRow('BindMaterial', BoolToStr(PGSavevar.BindMaterial, True), True);
   ValueListEditor1.InsertRow('DoorSideByStrike', BoolToStr(PGSavevar.DoorSideByStrike, True), True);
   ValueListEditor1.InsertRow('DoorCenterByStrike', BoolToStr(PGSavevar.DoorCenterByStrike, True), True);
   ValueListEditor1.InsertRow('HideNodeText', BoolToStr(PGSavevar.HideNodeText, True), True);
   ValueListEditor1.InsertRow('ClipBoardEnl', FloatToStr(PGSavevar.ClipBoardEnl.x), True);
   ValueListEditor1.InsertRow('isSingleDL', BoolToStr(PGSavevar.isSingleDL, True), True);
   ValueListEditor1.InsertRow('ScaleIndOvershoot', BoolToStr(PGSavevar.ScaleIndOvershoot, True), True);
   ValueListEditor1.InsertRow('SymAttrAllCaps', BoolToStr(PGSavevar.SymAttrAllCaps, True), True);
   ValueListEditor1.InsertRow('DynamicSymFlip', BoolToStr(PGSavevar.DynamicSymFlip, True), True);
   ValueListEditor1.InsertRow('AreaPerimSelect', BoolToStr(PGSavevar.AreaPerimSelect, True), True);
   ValueListEditor1.InsertRow('perimsign', IntToStr(PGSavevar.perimsign), True);
   ValueListEditor1.InsertRow('areasign', IntToStr(PGSavevar.areasign), True);
   ValueListEditor1.InsertRow('ShowAxis', BoolToStr(PGSavevar.ShowAxis, True), True);
   ValueListEditor1.InsertRow('ShowZero', BoolToStr(PGSavevar.ShowZero, True), True);
   ValueListEditor1.InsertRow('createvoid', BoolToStr(PGSavevar.createvoid, True), True);
   ValueListEditor1.InsertRow('MaterialData', IntToStr(PGSavevar.MaterialData.page) + ',' +
                                              IntToStr(PGSavevar.MaterialData.ofs), True);
   ValueListEditor1.InsertRow('SymKeepGroup', BoolToStr(PGSavevar.SymKeepGroup, True), True);
   ValueListEditor1.InsertRow('PasteKeepGroup', BoolToStr(PGSavevar.PasteKeepGroup, True), True);
   ValueListEditor1.InsertRow('ExplodeKeepGroup', BoolToStr(PGSavevar.ExplodeKeepGroup, True), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.BrowseType, True), True);
   ValueListEditor1.InsertRow('BrowserAutoDivisions', BoolToStr(PGSavevar.BrowserAutoDivisions, True), True);
   ValueListEditor1.InsertRow('BrowserPerDrawing', BoolToStr(PGSavevar.BrowserPerDrawing, True), True);
   ValueListEditor1.InsertRow('BrowserIso', BoolToStr(PGSavevar.BrowserIso, True), True);
   ValueListEditor1.InsertRow('SymbolExplode2DOnly', BoolToStr(PGSavevar.SymbolExplode2DOnly, True), True);
   ValueListEditor1.InsertRow('SymbolExplode3DOnly', BoolToStr(PGSavevar.SymbolExplode3DOnly, True), True);
   ValueListEditor1.InsertRow('ViewDependency', BoolToStr(PGSavevar.ViewDependency, True), True);
   ValueListEditor1.InsertRow('CalibrateByPoints', BoolToStr(PGSavevar.CalibrateByPoints, True), True);
   ValueListEditor1.InsertRow('AutoDimJambs', BoolToStr(PGSavevar.AutoDimJambs, True), True);
   ValueListEditor1.InsertRow('LockTextAngle', BoolToStr(PGSavevar.LockTextAngle, True), True);
   ValueListEditor1.InsertRow('PasteSymbolByCenter', BoolToStr(PGSavevar.PasteSymbolByCenter, True), True);
   ValueListEditor1.InsertRow('ClipBoardCtrRefPnt', BoolToStr(PGSavevar.ClipBoardCtrRefPnt, True), True);
   ValueListEditor1.InsertRow('LockTextSize', BoolToStr(PGSavevar.LockTextSize, True), True);
   ValueListEditor1.InsertRow('XrefsRememberGTV', BoolToStr(PGSavevar.XrefsRememberGTV, True), True);
   ValueListEditor1.InsertRow('DetailLinked2GTV', BoolToStr(PGSavevar.DetailLinked2GTV, True), True);
   ValueListEditor1.InsertRow('ArrowsAtHead', BoolToStr(PGSavevar.ArrowsAtHead, True), True);
   ValueListEditor1.InsertRow('SymCreateLeaveEnts', BoolToStr(PGSavevar.SymCreateLeaveEnts, True), True);
   ValueListEditor1.InsertRow('lFunktionFirst', IntToStr(PGSavevar.lFunktionFirst), True);
   ValueListEditor1.InsertRow('ToLayerColor', BoolToStr(PGSavevar.ToLayerColor, True), True);
   ValueListEditor1.InsertRow('Arrows1stOrtho', BoolToStr(PGSavevar.Arrows1stOrtho, True), True);
   ValueListEditor1.InsertRow('SmartArrows', BoolToStr(PGSavevar.SmartArrows, True), True);
   ValueListEditor1.InsertRow('AreaNoFloat', BoolToStr(PGSavevar.AreaNoFloat, True), True);
   ValueListEditor1.InsertRow('MTextPTextCrosshair', BoolToStr(PGSavevar.MTextPTextCrosshair, True), True);
   ValueListEditor1.InsertRow('HideNodeMark', BoolToStr(PGSavevar.HideNodeMark, True), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.UnusedDataBytes, True), True);
   ValueListEditor1.InsertRow('LastDataByteBeforeStringData', IntToStr(PGSavevar.LastDataByteBeforeStringData), True);
   ValueListEditor1.InsertRow('frmname', (PGSavevar.frmname), True);
   ValueListEditor1.InsertRow('fname', (PGSavevar.fname), True);
   ValueListEditor1.InsertRow('fname_all', (PGSavevar.fname_all), True);
   ValueListEditor1.InsertRow('hatchstr', (PGSavevar.hatchstr), True);
   ValueListEditor1.InsertRow('sectionhatchstr', (PGSavevar.sectionhatchstr), True);
   ValueListEditor1.InsertRow('empinits', (PGSavevar.empinits), True);
   ValueListEditor1.InsertRow('projnum', (PGSavevar.projnum), True);
   ValueListEditor1.InsertRow('projname', (PGSavevar.projname), True);
   ValueListEditor1.InsertRow('password', (PGSavevar.password), True);
   ValueListEditor1.InsertRow('dcxName', (PGSavevar.dcxName), True);
// ValueListEditor1.InsertRow('', BoolToStr(PGSavevar.setname, True), True);
   ValueListEditor1.InsertRow('fontname', (PGSavevar.fontname), True);
   ValueListEditor1.InsertRow('dimfont', (PGSavevar.dimfont), True);
   ValueListEditor1.InsertRow('formfont', (PGSavevar.formfont), True);
   ValueListEditor1.InsertRow('searchFont', (PGSavevar.searchFont), True);
   ValueListEditor1.InsertRow('symname', (PGSavevar.symname), True);
   ValueListEditor1.InsertRow('sympath1', (PGSavevar.sympath1), True);
   ValueListEditor1.InsertRow('lastsymins', (PGSavevar.lastsymins), True);
   ValueListEditor1.InsertRow('dimscript', (PGSavevar.dimscript), True);
   ValueListEditor1.InsertRow('searchText', (PGSavevar.searchText), True);
   ValueListEditor1.InsertRow('LyrFilter', (PGSavevar.LyrFilter), True);
   ValueListEditor1.InsertRow('arttype', (PGSavevar.arttype), True);
   ValueListEditor1.InsertRow('artname', (PGSavevar.artname), True);
   ValueListEditor1.InsertRow('artdbname', (PGSavevar.artdbname), True);
   ValueListEditor1.InsertRow('arttypelbl', (PGSavevar.arttypelbl), True);
   ValueListEditor1.InsertRow('activewallstylename', (PGSavevar.activewallstylename), True);
   ValueListEditor1.InsertRow('activedoorstylename', (PGSavevar.activedoorstylename), True);
   ValueListEditor1.InsertRow('activewindowstylename', (PGSavevar.activewindowstylename), True);
   ValueListEditor1.InsertRow('rendergroundmaterialini', (PGSavevar.rendergroundmaterialini), True);
   ValueListEditor1.InsertRow('renderbackimage', (PGSavevar.renderbackimage), True);
   ValueListEditor1.InsertRow('SymbolFolder', (PGSavevar.SymbolFolder), True);
   ValueListEditor1.InsertRow('TemplateFile', (PGSavevar.TemplateFile), True);
   ValueListEditor1.InsertRow('ArrowSymbol', (PGSavevar.ArrowSymbol), True);
   ValueListEditor1.InsertRow('SymBrowserFName', (PGSavevar.SymBrowserFName), True);
// ValueListEditor1.InsertRow('', (PGSavevar.DispTTF), True);
   ValueListEditor1.InsertRow('DoCapsIniMessage', BoolToStr(PGSavevar.DoCapsIniMessage, True), True);
   ValueListEditor1.InsertRow('DisplayShaderLights', BoolToStr(PGSavevar.DisplayShaderLights, True), True);

   ValueListEditor1.InsertRow('hlrcrop', BoolToStr(PGSv.hlrcrop, True), True);
   ValueListEditor1.InsertRow('no_penaway', BoolToStr(PGSv.no_penaway, True), True);
   ValueListEditor1.InsertRow('viewmode', IntToStr(PGSv.viewmode), True);
   ValueListEditor1.InsertRow('circldiv1', IntToStr(PGSv.circldiv1), True);
   ValueListEditor1.InsertRow('circldiv2', IntToStr(PGSv.circldiv2), True);
   ValueListEditor1.InsertRow('hideon', BoolToStr(PGSv.hideon, True), True);
   ValueListEditor1.InsertRow('quicksrch', BoolToStr(PGSv.quicksrch, True), True);
   ValueListEditor1.InsertRow('shelon', BoolToStr(PGSv.shelon, True), True);
   ValueListEditor1.InsertRow('drawmarks', BoolToStr(PGSv.drawmarks, True), True);
   ValueListEditor1.InsertRow('divover', BoolToStr(PGSv.divover, True), True);
   ValueListEditor1.InsertRow('bezgrdon', BoolToStr(PGSv.bezgrdon, True) + ' - Display Mesh Surface Grid', True);
   ValueListEditor1.InsertRow('bezpnton', BoolToStr(PGSv.bezpnton, True) + ' - Display Mesh Surface Control Points', True);
   ValueListEditor1.InsertRow('modelon', BoolToStr(PGSv.modelon, True), True);
   ValueListEditor1.InsertRow('targon', BoolToStr(PGSv.targon, True), True);
   ValueListEditor1.InsertRow('LayoutMarks', BoolToStr(PGSv.LayoutMarks, True), True);
   ValueListEditor1.InsertRow('mindivs', IntToStr(PGSv.mindivs), True);
// ValueListEditor1.InsertRow('frstview', (PGSv.frstview), True);
   ValueListEditor1.InsertRow('modlevel', IntToStr(PGSv.modlevel), True);
   ValueListEditor1.InsertRow('relzero', FloatToStr(PGSv.relzero), True);
   ValueListEditor1.InsertRow('zerofact', FloatToStr(PGSv.zerofact), True);
   ValueListEditor1.InsertRow('sqrzero', FloatToStr(PGSv.sqrzero), True);
   ValueListEditor1.InsertRow('contcyc', BoolToStr(PGSv.contcyc, True), True);
   ValueListEditor1.InsertRow('fixcone', BoolToStr(PGSv.fixcone, True), True);
   ValueListEditor1.InsertRow('srchtype', IntToStr(PGSv.srchtype), True);
   ValueListEditor1.InsertRow('quicksnap', BoolToStr(PGSv.quicksnap, True), True);
   ValueListEditor1.InsertRow('slabthick', FloatToStr(PGSv.slabthick), True);
   ValueListEditor1.InsertRow('shelclosed', BoolToStr(PGSv.shelclosed, True), True);
   ValueListEditor1.InsertRow('cylsidclo', BoolToStr(PGSv.cylsidclo, True), True);
   ValueListEditor1.InsertRow('contstiff', FloatToStr(PGSv.contstiff), True);
   ValueListEditor1.InsertRow('cylrad', FloatToStr(PGSv.cylrad), True);
   ValueListEditor1.InsertRow('cylbang', FloatToStr(PGSv.cylbang), True);
   ValueListEditor1.InsertRow('cyleang', FloatToStr(PGSv.cyleang), True);
   ValueListEditor1.InsertRow('hplymode', IntToStr(PGSv.hplymode), True);
   ValueListEditor1.InsertRow('contindx', FloatToStr(PGSv.contindx), True);
   ValueListEditor1.InsertRow('dombang', FloatToStr(PGSv.dombang), True);
   ValueListEditor1.InsertRow('domeang', FloatToStr(PGSv.domeang), True);
   ValueListEditor1.InsertRow('torradius', FloatToStr(PGSv.torradius), True);
   ValueListEditor1.InsertRow('torbang', FloatToStr(PGSv.torbang), True);
   ValueListEditor1.InsertRow('toreang', FloatToStr(PGSv.toreang), True);
   ValueListEditor1.InsertRow('autohite', BoolToStr(PGSv.autohite, True), True);
   ValueListEditor1.InsertRow('roofstyle', IntToStr(PGSv.roofstyle), True);
   ValueListEditor1.InsertRow('edgemode', IntToStr(PGSv.edgemode), True);
   ValueListEditor1.InsertRow('plnemode', IntToStr(PGSv.plnemode), True);
   ValueListEditor1.InsertRow('userz1', FloatToStr(PGSv.userz1), True);
   ValueListEditor1.InsertRow('userz2', FloatToStr(PGSv.userz2), True);
   ValueListEditor1.InsertRow('sdiv', IntToStr(PGSv.sdiv), True);
   ValueListEditor1.InsertRow('tdiv', IntToStr(PGSv.tdiv), True);
   ValueListEditor1.InsertRow('rotmode', IntToStr(PGSv.rotmode), True);
   ValueListEditor1.InsertRow('rotang', FloatToStr(PGSv.rotang.x), True);
   ValueListEditor1.InsertRow('rotctr', FloatToStr(PGSv.rotctr.x), True);
   ValueListEditor1.InsertRow('enlfact', FloatToStr(PGSv.enlfact.x), True);
   ValueListEditor1.InsertRow('expltype', IntToStr(PGSv.expltype), True);
   ValueListEditor1.InsertRow('circledgs', BoolToStr(PGSv.circledgs, True), True);
   ValueListEditor1.InsertRow('addtodwg', BoolToStr(PGSv.addtodwg, True), True);
   ValueListEditor1.InsertRow('slabref', BoolToStr(PGSv.slabref, True), True);
   ValueListEditor1.InsertRow('orthoflip', BoolToStr(PGSv.orthoflip, True), True);
   ValueListEditor1.InsertRow('rotangle', FloatToStr(PGSv.rotangle), True);
   ValueListEditor1.InsertRow('markmode', IntToStr(PGSv.markmode), True);
   ValueListEditor1.InsertRow('vplymode', IntToStr(PGSv.vplymode), True);
   ValueListEditor1.InsertRow('persdis', FloatToStr(PGSv.persdis), True);
   ValueListEditor1.InsertRow('targ', FloatToStr(PGSv.targ.x), True);
   ValueListEditor1.InsertRow('oblqang', FloatToStr(PGSv.oblqang), True);
   ValueListEditor1.InsertRow('oblqfact', FloatToStr(PGSv.oblqfact), True);
   ValueListEditor1.InsertRow('zflag', IntToStr(PGSv.zflag), True);
   ValueListEditor1.InsertRow('oblqtype', IntToStr(PGSv.oblqtype), True);
   ValueListEditor1.InsertRow('planang', FloatToStr(PGSv.planang), True);
   ValueListEditor1.InsertRow('perscent', FloatToStr(PGSv.perscent.x), True);
   ValueListEditor1.InsertRow('perseye', FloatToStr(PGSv.perseye.y), True);
   ValueListEditor1.InsertRow('hidehead', IntToStr(PGSv.hidehead.page) + ',' +
                                          IntToStr(PGSv.hidehead.ofs), True);
   ValueListEditor1.InsertRow('pierceon', BoolToStr(PGSv.pierceon, True), True);
   ValueListEditor1.InsertRow('arctogon2', BoolToStr(PGSv.arctogon2, True), True);
   ValueListEditor1.InsertRow('arctogon3', BoolToStr(PGSv.arctogon3, True), True);
   ValueListEditor1.InsertRow('ellptogon', BoolToStr(PGSv.ellptogon, True), True);
   ValueListEditor1.InsertRow('drawhidden', BoolToStr(PGSv.drawhidden, True), True);
   ValueListEditor1.InsertRow('hidefact', FloatToStr(PGSv.hidefact), True);
   ValueListEditor1.InsertRow('hidetype', IntToStr(PGSv.hidetype), True);
   ValueListEditor1.InsertRow('hidecolor', IntToStr(PGSv.hidecolor), True);
   ValueListEditor1.InsertRow('memerr', BoolToStr(PGSv.memerr, True), True);
   ValueListEditor1.InsertRow('broken', BoolToStr(PGSv.broken, True), True);
   ValueListEditor1.InsertRow('numents', IntToStr(PGSv.numents), True);
   ValueListEditor1.InsertRow('clipon', BoolToStr(PGSv.clipon, True), True);
   ValueListEditor1.InsertRow('clipmin', FloatToStr(PGSv.clipmin.x), True);
   ValueListEditor1.InsertRow('clipmax', FloatToStr(PGSv.clipmax.y), True);
   ValueListEditor1.InsertRow('strtview', IntToStr(PGSv.strtview.page) + ',' +
                                          IntToStr(PGSv.strtview.ofs), True);
   ValueListEditor1.InsertRow('lastview', IntToStr(PGSv.lastview.page) + ',' +
                                          IntToStr(PGSv.lastview.ofs), True);
   ValueListEditor1.InsertRow('numviews', IntToStr(PGSv.numviews), True);
   ValueListEditor1.InsertRow('linemode', IntToStr(PGSv.linemode), True);
   ValueListEditor1.InsertRow('chain', BoolToStr(PGSv.chain, True), True);
   ValueListEditor1.InsertRow('boxmode', IntToStr(PGSv.boxmode), True);
   ValueListEditor1.InsertRow('circmode', IntToStr(PGSv.circmode), True);
   ValueListEditor1.InsertRow('polymode', IntToStr(PGSv.polymode), True);
   ValueListEditor1.InsertRow('wallmode', IntToStr(PGSv.wallmode), True);
   ValueListEditor1.InsertRow('lasteview', IntToStr(PGSv.lasteview), True);
   ValueListEditor1.InsertRow('perseyez', FloatToStr(PGSv.perseyez), True);
   ValueListEditor1.InsertRow('perscenz', FloatToStr(PGSv.perscenz), True);
   ValueListEditor1.InsertRow('viewcent', FloatToStr(PGSv.viewcent.x), True);
   ValueListEditor1.InsertRow('targclr', IntToStr(PGSv.targclr), True);
   ValueListEditor1.InsertRow('lyrborder', BoolToStr(PGSv.lyrborder, True), True);
   ValueListEditor1.InsertRow('lyrextent', BoolToStr(PGSv.lyrextent, True), True);
   ValueListEditor1.InsertRow('lyrvrefresh', BoolToStr(PGSv.lyrvrefresh, True), True);
   ValueListEditor1.InsertRow('cliprefresh', BoolToStr(PGSv.cliprefresh, True), True);
   ValueListEditor1.InsertRow('lyrvsize', FloatToStr(PGSv.lyrvsize), True);
   ValueListEditor1.InsertRow('numdetails', IntToStr(PGSv.numdetails), True);
   ValueListEditor1.InsertRow('MSPX', IntToStr(PGSv.MSPX), True);
   ValueListEditor1.InsertRow('MSPY', IntToStr(PGSv.MSPY), True);
   ValueListEditor1.InsertRow('TxtAllCaps', BoolToStr(PGSv.TxtAllCaps, True), True);
   ValueListEditor1.InsertRow('PlotSnap', BoolToStr(PGSv.PlotSnap, True), True);
   ValueListEditor1.InsertRow('coneang', FloatToStr(PGSv.coneang), True);
   ValueListEditor1.InsertRow('revtype', IntToStr(PGSv.revtype), True);
   ValueListEditor1.InsertRow('revbang', FloatToStr(PGSv.revbang), True);
   ValueListEditor1.InsertRow('reveang', FloatToStr(PGSv.reveang), True);
   ValueListEditor1.InsertRow('hidewidth', IntToStr(PGSv.hidewidth), True);
   ValueListEditor1.InsertRow('hidemode', IntToStr(PGSv.hidemode), True);
   ValueListEditor1.InsertRow('cubemode', IntToStr(PGSv.cubemode), True);
   ValueListEditor1.InsertRow('lyrrefresh', BoolToStr(PGSv.lyrrefresh, True), True);
   ValueListEditor1.InsertRow('revsector', BoolToStr(PGSv.revsector, True), True);
   ValueListEditor1.InsertRow('contmode', IntToStr(PGSv.contmode), True);
   ValueListEditor1.InsertRow('strmode', IntToStr(PGSv.strmode), True);
   ValueListEditor1.InsertRow('contfixz', BoolToStr(PGSv.contfixz, True), True);
   ValueListEditor1.InsertRow('movcopy', BoolToStr(PGSv.movcopy, True), True);
   ValueListEditor1.InsertRow('pipedest', IntToStr(PGSv.pipedest), True);
// ValueListEditor1.InsertRow('viewaddr', (PGSv.viewaddr), True);
   ValueListEditor1.InsertRow('snapmode', IntToStr(PGSv.snapmode), True);
   ValueListEditor1.InsertRow('linehead', IntToStr(PGSv.linehead.page) + ',' +
                                          IntToStr(PGSv.linehead.ofs), True);
   ValueListEditor1.InsertRow('hither', FloatToStr(PGSv.hither), True);
   ValueListEditor1.InsertRow('holemode', IntToStr(PGSv.holemode), True);
   ValueListEditor1.InsertRow('perslay', IntToStr(PGSv.perslay.page) + ',' +
                                         IntToStr(PGSv.perslay.ofs), True);
   ValueListEditor1.InsertRow('contzsor', IntToStr(PGSv.contzsor), True);
   ValueListEditor1.InsertRow('contdivs', IntToStr(PGSv.contdivs), True);
   ValueListEditor1.InsertRow('rotcopy', BoolToStr(PGSv.rotcopy, True), True);
   ValueListEditor1.InsertRow('mircopy', BoolToStr(PGSv.mircopy, True), True);
   ValueListEditor1.InsertRow('dynamrot', BoolToStr(PGSv.dynamrot, True), True);
   ValueListEditor1.InsertRow('symlevel', IntToStr(PGSv.symlevel), True);
   ValueListEditor1.InsertRow('persfact', FloatToStr(PGSv.persfact), True);
   ValueListEditor1.InsertRow('perswalk', FloatToStr(PGSv.perswalk), True);
   ValueListEditor1.InsertRow('persturn', FloatToStr(PGSv.persturn), True);
// ValueListEditor1.InsertRow('perscmat', (PGSv.perscmat), True);
   ValueListEditor1.InsertRow('ccw', BoolToStr(PGSv.ccw, True), True);
   ValueListEditor1.InsertRow('enlcopy', BoolToStr(PGSv.enlcopy, True), True);
   ValueListEditor1.InsertRow('inclmode', IntToStr(PGSv.inclmode), True);
   ValueListEditor1.InsertRow('stepdist', FloatToStr(PGSv.stepdist), True);
   ValueListEditor1.InsertRow('lookang', FloatToStr(PGSv.lookang), True);
   ValueListEditor1.InsertRow('inpstyl3', IntToStr(PGSv.inpstyl3), True);
Last edited by Mark F. Madura on Mon Nov 22, 2010 5:15 pm, edited 8 times in total.
#51134 by Tony Blasio
Mon Nov 22, 2010 7:57 am
This would be extremely cool if we could save the settings from one drawing and load it into another.

Who is online

Users browsing this forum: No registered users and 2 guests

About DataCAD Forum

The DataCAD Forum is a FREE online community we provide to enhance your experience with DataCAD.

We hope you'll visit often to get answers, share ideas, and interact with other DataCAD users around the world.

DataCAD

Software for AEC Professionals Since 1984