DcuilDecom/DCUOption.pas at master · sunveil/DcuilDecom · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
unit DCUOption;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  ConfUnit;

type
  TDCU2INTOption = class(TForm)
    GroupBox1: TGroupBox;
    c1: TCheckBox;
    c2: TCheckBox;
    c3: TCheckBox;
    C4: TCheckBox;
    C5: TCheckBox;
    C6: TCheckBox;
    C7: TCheckBox;
    C8: TCheckBox;
    C10: TCheckBox;
    C9: TCheckBox;
    OK: TButton;
    Cancel: TButton;
    procedure OKClick(Sender: TObject);
    procedure CancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
     sOPTIONS : String;
  end;

var
  DCU2INTOption: TDCU2INTOption;

implementation

uses
  DCU_Out;

{$R *.dfm}

procedure TDCU2INTOption.OKClick(Sender: TObject);
begin

  {InterfaceOnly: boolean=false;
  ShowImpNames: boolean=true;
  ShowTypeTbl: boolean=true;
  ShowAddrTbl: boolean=true;
  ShowDataBlock: boolean=true;
  ShowFixupTbl: boolean=true;
  ShowLocVarTbl: boolean=true;
  ShowFileOffsets: boolean=true;
  ShowAuxValues: boolean=true;
  ResolveMethods: boolean=true;
  ResolveConsts: boolean=true;
  ShowDotTypes: boolean=true;
  ShowSelf: boolean=true;
  ShowVMT: boolean=true;
  ShowHeuristicRefs: boolean=true;
  ShowImpNamesUnits: boolean=true;
  DasmMode: TDasmMode = dasmCtlFlow;
  OutFmt: TOutFmt = ofmtMem; }
  ShowImpNames:=c1.Checked;
  ShowTypeTbl:=c2.Checked;
  ShowAddrTbl:=c3.Checked;
  ShowDataBlock:=c4.Checked;
  ShowFixupTbl:=c5.Checked;
  ShowAuxValues:=c6.Checked;
  ResolveMethods:=c7.Checked;
  ResolveConsts:=c8.Checked;
  ShowDotTypes:=c9.Checked;
  ShowVMT:=c10.Checked;
  ModalResult:=mrOK;
end;

procedure TDCU2INTOption.CancelClick(Sender: TObject);
begin
  Close;
end;

procedure TDCU2INTOption.FormCreate(Sender: TObject);
begin
  c1.Checked := ShowImpNames;
  c2.Checked := ShowTypeTbl;
  c3.Checked := ShowAddrTbl;
  c4.Checked := ShowDataBlock;
  c5.Checked := ShowFixupTbl;
  c6.Checked := ShowAuxValues;
  c7.Checked := ResolveMethods;
  c8.Checked := ResolveConsts;
  c9.Checked := ShowDotTypes;
  c10.Checked := ShowVMT;
end;

initialization

   ReadIFile;

finalization

  //WriteIFile;

end.