IDR/TabNames.cpp at main · sarog/IDR · 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
#include "Main.h"
#include "Misc.h"

extern BYTE *Code;
extern DWORD CodeBase;
extern DWORD CodeSize;
extern MDisasm Disasm;
extern DWORD TotalSize;
extern DWORD *Flags;
extern PInfoRec *Infos;
extern DWORD CurUnitAdr;
extern TStringList *BSSInfos;
extern int cVmtSelfPtr;
extern int LastResStrNo;

void __fastcall TFMain_11011981::ShowNames(int idx) {
    int n, wid, maxwid = 0;
    PInfoRec recN;
    String line;
    TCanvas *canvas = lbNames->Canvas;

    lbNames->Clear();
    lbNames->Items->BeginUpdate();

    for (n = CodeSize; n < TotalSize; n++) {
        if (IsFlagSet(cfImport, n)) continue;
        recN = GetInfoRec(Pos2Adr(n));
        if (recN && recN->HasName()) {
            line = Val2Str8(Pos2Adr(n)) + " " + recN->GetName();
            if (recN->type != "") line += ":" + recN->type;
            lbNames->Items->Add(line);
            wid = canvas->TextWidth(line);
            if (wid > maxwid) maxwid = wid;
        }
    }
    for (n = 0; n < BSSInfos->Count; n++) {
        recN = (PInfoRec) BSSInfos->Objects[n];
        line = BSSInfos->Strings[n] + " " + recN->GetName();
        if (recN->type != "") line += ":" + recN->type;
        lbNames->Items->Add(line);
        wid = canvas->TextWidth(line);
        if (wid > maxwid) maxwid = wid;
    }
    lbNames->Items->EndUpdate();

    lbNames->ItemIndex = idx;
    lbNames->ScrollWidth = maxwid + 2;
}

//---------------------------------------------------------------------------
void __fastcall TFMain_11011981::ShowNameXrefs(DWORD Adr, int selIdx) {
    PInfoRec recN;

    lbNXrefs->Clear();

    recN = GetInfoRec(Adr);
    if (recN && recN->xrefs) {
        int wid, maxwid = 0;
        TCanvas *canvas = lbNXrefs->Canvas;
        DWORD pAdr = 0;
        char f = 2;

        lbNXrefs->Items->BeginUpdate();
        for (int m = 0; m < recN->xrefs->Count; m++) {
            PXrefRec recX = (PXrefRec) recN->xrefs->Items[m];
            String line = " " + Val2Str8(recX->adr + recX->offset) + " " + recX->type;
            wid = canvas->TextWidth(line);
            if (wid > maxwid) maxwid = wid;
            PUnitRec recU = GetUnit(recX->adr);
            if (recU && recU->kb) line[1] ^= 1;
            if (pAdr != recX->adr) f ^= 2;
            line[1] ^= f;
            pAdr = recX->adr;
            lbNXrefs->Items->Add(line);
        }
        lbNXrefs->Items->EndUpdate();

        lbNXrefs->ScrollWidth = maxwid + 2;
        lbNXrefs->ItemIndex = selIdx;
    }
}

//---------------------------------------------------------------------------
void __fastcall TFMain_11011981::lbNamesClick(TObject *Sender) {
    //NamesSearchFrom = lbNames->ItemIndex;
    //WhereSearch = SEARCH_NAMES;

    if (lbNames->ItemIndex >= 0) {
        DWORD adr;
        String line = lbNames->Items->Strings[lbNames->ItemIndex];
        sscanf(AnsiString(line).c_str() + 1, "%lX", &adr);
        ShowNameXrefs(adr, -1);
    }
}

//---------------------------------------------------------------------------