vwemirror/TeslaRel410
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
110ecec2ca3edc135e260e0f3ee07e7945cbf4ec
TeslaRel410/BORLAND/BDE/EXAMPLES/C/INVENTRY/INVENTRY.RC
T
CydandClaude Fable 5 63312e07f9 source410: literal 4.10 source reconstruction + BC++ 4.52 fleet toolchain archived 
- BORLAND/: Borland C++ 4.52 (chosen over 4.5 by byte-match: CODE/RP/CW32.LIB
  is identical to 4.52's install lib). BCC32/TLINK32/TLIB/MAKE run natively on
  Win11; CODE/BT/OPT.MAK is the shipped BTL4OPT.EXE's exact flag recipe
  (extender = Borland PowerPack DPMI32, not Phar Lap TNT).
- restoration/source410/: the literal 1995-form reconstruction of the missing
  BT game source (never mixed into CODE/). Round 1-3 state:
  * 6 of 10 surviving original TUs COMPILE CLEAN under the period toolchain
    (BTMSSN, BTCNSL, BTSCNRL, BTTEAM, BTL4MODE, BTL4ARND) - first builds
    since 1996.
  * BT_L4/BTL4APP.CPP pilot reconstruction: 12/12 functions, Fail() lands on
    its binary-recorded line 400 exactly.
  * BT/BTCNSL.HPP: console wire IDs recovered from the binary's ctors
    (Killed=9, Damaged=10, ScoreUpdate=13, DeathWithoutHonor=15 [T1];
    TeamScore=12 flagged [T4]).
  * MUNGA/: 8 engine-header backfills back-dated from the BT412 WinTesla tree
    (VDATA numbering decomp-verified; AUDREND's OpenAL-era virtual removed -
    the period compiler is the drift detector).
  * Tooling: backdate.py (WinTesla->1995 header transform), compile410.sh
    (per-TU verification sweep under authentic OPT.MAK flags).
  * README: corrected roadmap - MECH.HPP is the capstone grown with the mech
    TU reconstructions; BTREG.CPP green = the header-family milestone.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-19 07:33:26 -05:00

186 lines
8.0 KiB
Plaintext
Raw Blame History

// BDE - (C) Copyright 1995 by Borland International
#include "id_defs.h"
9999 ICON "inventry.ico"
MainMenu MENU
{
POPUP "Data&base"
{
MENUITEM "&Order", ID_ORDER
MENUITEM "&Search", ID_SEARCH
MENUITEM "Set &Range", ID_RANGE
MENUITEM "&Clear Range", ID_CLEAR_RANGE, GRAYED
MENUITEM SEPARATOR
MENUITEM "E&xit", ID_EXIT
}
POPUP "R&ecord"
{
MENUITEM "&Add Record", ID_ADD_REC
MENUITEM "&Delete Record", ID_DEL_REC
MENUITEM "&Commit Changes", ID_MOD_REC
MENUITEM "&Undo All Changes", ID_UNDO_REC
MENUITEM SEPARATOR
MENUITEM "&First Record", ID_FIRST_REC
MENUITEM "&Previous Record", ID_PREV_REC
MENUITEM "&Next Record", ID_NEXT_REC
MENUITEM "&Last Record", ID_LAST_REC
}
MENUITEM "&About", ID_ABOUT
}
AboutDlg DIALOG 35, 31, 171, 80
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CLASS ""
CAPTION "About"
{
PUSHBUTTON "&OK", IDOK, 60, 63, 50, 14
CTEXT "Inventory Manager", -1, 45, 10, 120, 8
CTEXT "Borland Database Engine 2.5 Sample Application", -1, 45, 21, 120, 16
ICON 9999, -1, 15, 15, 13, 13, SS_ICON | WS_CHILD | WS_VISIBLE | WS_GROUP
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 5, 5, 161, 55
CTEXT "BDE - (C) Copyright 1993 by Borland International", -1, 7, 46, 157, 9
}
MainDlg DIALOG 13, 24, 248, 205
STYLE WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX
CLASS "Inventory"
CAPTION "Inventory Manager"
MENU MainMenu
{
EDITTEXT IDE_ITEM, 51, 36, 187, 12, WS_BORDER | WS_GROUP | WS_TABSTOP
EDITTEXT IDE_ITEMID, 51, 50, 70, 12
EDITTEXT IDE_NOINSTOCK, 156, 50, 82, 12
EDITTEXT IDE_BUILDING, 51, 64, 70, 12
EDITTEXT IDE_COST, 156, 64, 82, 12
EDITTEXT IDE_ORDERDATE, 51, 78, 70, 12
EDITTEXT IDE_COMMENTS, 10, 105, 228, 51, ES_MULTILINE | ES_WANTRETURN | WS_BORDER | WS_TABSTOP
PUSHBUTTON "Set &Order", ID_ORDER, 30, 181, 45, 14, WS_GROUP | WS_TABSTOP
PUSHBUTTON "Searc&h", ID_SEARCH, 101, 181, 45, 14
PUSHBUTTON "Set &Range", ID_RANGE, 173, 181, 45, 14
PUSHBUTTON "O&k", IDOK, 51, 181, 50, 14, NOT WS_VISIBLE | WS_TABSTOP
PUSHBUTTON "&Cancel", IDCANCEL, 146, 181, 50, 14, NOT WS_VISIBLE | WS_TABSTOP
CTEXT "", IDS_NEW_REC_DESC, 6, 6, 234, 22, SS_CENTER | NOT WS_VISIBLE | WS_GROUP
PUSHBUTTON "&New", ID_ADD_REC, 19, 10, 30, 14, WS_GROUP | WS_TABSTOP
PUSHBUTTON "&Delete", ID_DEL_REC, 54, 10, 30, 14
PUSHBUTTON "|<", ID_FIRST_REC, 92, 10, 16, 14
PUSHBUTTON "<", ID_PREV_REC, 108, 10, 16, 14
PUSHBUTTON ">", ID_NEXT_REC, 124, 10, 16, 14
PUSHBUTTON ">|", ID_LAST_REC, 140, 10, 16, 14
PUSHBUTTON "&Save", ID_MOD_REC, 164, 10, 30, 14
PUSHBUTTON "&Cancel", ID_UNDO_REC, 199, 10, 30, 14
RTEXT "Item:", -1, 10, 38, 39, 8
RTEXT "Item ID:", -1, 10, 52, 39, 8
RTEXT "In Stock:", -1, 124, 52, 30, 8
RTEXT "Building:", -1, 10, 66, 39, 8
RTEXT "Cost:", -1, 124, 66, 30, 8
RTEXT "Order Date:", -1, 10, 80, 39, 8
CTEXT "Comments", -1, 10, 96, 228, 8
CTEXT "Database Operations", IDS_DATABASE_HDR, 5, 166, 238, 10, SS_CENTER | WS_BORDER | WS_GROUP
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 5, 5, 238, 156
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 5, 176, 238, 24
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 5, 30, 238, 1
}
OrderDlg DIALOG 18, 18, 226, 111
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CLASS ""
CAPTION "Select Index for Table Order"
{
COMBOBOX IDE_ORDER_COMBOBOX, 10, 18, 90, 50, CBS_DROPDOWNLIST | CBS_SORT | WS_VSCROLL | WS_GROUP | WS_TABSTOP
LTEXT "", IDE_ORDER_INFO, 105, 19, 109, 55, SS_NOPREFIX | WS_GROUP
PUSHBUTTON "&OK", IDOK, 42, 90, 50, 14, WS_GROUP | WS_TABSTOP
PUSHBUTTON "&Cancel", IDCANCEL, 134, 90, 50, 14
CTEXT "Indexes Available", -1, 10, 8, 90, 8, WS_CHILD | WS_VISIBLE | WS_GROUP
CTEXT "Description", -1, 105, 8, 109, 8, WS_CHILD | WS_VISIBLE | WS_GROUP
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 5, 5, 216, 78
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 103, 18, 113, 58
}
RangeDlg DIALOG 18, 18, 236, 138
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
CLASS ""
CAPTION "Define Range Values"
{
COMBOBOX IDE_RANGE_COMBO, 37, 10, 80, 39, CBS_DROPDOWNLIST | CBS_SORT | WS_VSCROLL | WS_GROUP | WS_TABSTOP
CHECKBOX "Include Value in Range", IDE_BM_LOW, 21, 40, 83, 8, BS_AUTOCHECKBOX | WS_GROUP | WS_TABSTOP
EDITTEXT IDE_LOWRANGE, 15, 52, 96, 12, ES_LEFT | ES_AUTOHSCROLL | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP
CHECKBOX "Include Value in Range", IDE_BM_HIGH, 133, 40, 83, 8, BS_AUTOCHECKBOX | WS_GROUP | WS_TABSTOP
EDITTEXT IDE_HIGHRANGE, 127, 52, 96, 12, ES_LEFT | ES_AUTOHSCROLL | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP
CTEXT "", IDS_RANGE_TEXT, 10, 75, 219, 33
DEFPUSHBUTTON "&OK", IDOK, 45, 120, 50, 14, BS_DEFPUSHBUTTON | WS_GROUP | WS_TABSTOP
PUSHBUTTON "&Cancel", IDCANCEL, 141, 120, 50, 14
RTEXT "Field:", -1, 10, 12, 25, 8, SS_RIGHT | WS_CHILD | WS_VISIBLE | WS_GROUP
CTEXT "Define Low Range", -1, 10, 27, 107, 10, SS_CENTER | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP
CTEXT "Define High Range", -1, 122, 27, 107, 10, SS_CENTER | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 5, 5, 229, 108
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 10, 37, 107, 33
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 122, 37, 107, 33
}
SearchDlg DIALOG 18, 18, 167, 124
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CLASS ""
CAPTION "Define Search Criteria"
{
COMBOBOX IDE_SEARCH_COMBO, 37, 10, 110, 50, CBS_DROPDOWNLIST | CBS_SORT | WS_VSCROLL | WS_GROUP | WS_TABSTOP
EDITTEXT IDE_SEARCH, 37, 24, 110, 12, WS_BORDER | WS_GROUP | WS_TABSTOP
CONTROL "Equal", IDC_EQUAL, "BUTTON", BS_AUTORADIOBUTTON | WS_GROUP | WS_TABSTOP, 11, 40, 33, 12
CONTROL "Greater or EQ", IDC_GREATEREQ, "BUTTON", BS_AUTORADIOBUTTON | WS_TABSTOP, 46, 40, 54, 12
CONTROL "Greater Than", IDC_GREATER, "BUTTON", BS_AUTORADIOBUTTON | WS_TABSTOP, 106, 40, 52, 12
PUSHBUTTON "&OK", IDOK, 22, 103, 50, 14, WS_GROUP | WS_TABSTOP
PUSHBUTTON "&Cancel", IDCANCEL, 95, 103, 50, 14
RTEXT "Field:", -1, 10, 12, 25, 8, SS_RIGHT | WS_CHILD | WS_VISIBLE | WS_GROUP
RTEXT "Value:", -1, 10, 26, 25, 8, SS_RIGHT | WS_CHILD | WS_VISIBLE | WS_GROUP
CTEXT "", IDS_SEARCH_TEXT, 10, 60, 147, 33
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 5, 5, 157, 91
CONTROL "", -1, "static", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 5, 55, 157, 1
}
STRINGTABLE
{
IDS_ITEM_1, "Hammer"
IDS_ITEMID_1, "1235"
IDS_NOINSTOCK_1, "7"
IDS_BUILDING_1, "1800"
IDS_COST_1, "23.50"
IDS_ORDERDATE_1, "None on Order"
IDS_COMMENTS_1, "Order when down to 5"
IDS_ITEM_2, "Nail"
IDS_ITEMID_2, "2235"
IDS_NOINSTOCK_2, "300"
IDS_BUILDING_2, "1800"
IDS_COST_2, ".10"
IDS_ORDERDATE_2, "08/12/93"
IDS_COMMENTS_2, "Order nails when down to 500"
IDS_ITEM_3, "Bolt"
IDS_ITEMID_3, "3235"
IDS_NOINSTOCK_3, "100"
IDS_BUILDING_3, "2000"
IDS_COST_3, ".23"
IDS_ORDERDATE_3, "10/22/93"
IDS_COMMENTS_3, "Order bolts when down to 500"
IDS_ITEM_4, "Screws"
IDS_ITEMID_4, "12100"
IDS_NOINSTOCK_4, "1000"
IDS_BUILDING_4, "1800"
IDS_COST_4, ".15"
IDS_ORDERDATE_4, "None on order"
IDS_COMMENTS_4, "Order screws when down to 800"
IDS_ITEM_5, "Screw driver"
IDS_ITEMID_5, "12101"
IDS_NOINSTOCK_5, "20"
IDS_BUILDING_5, "1700"
IDS_COST_5, "12.37"
IDS_ORDERDATE_5, "None on order"
IDS_COMMENTS_5, "Order screw drivers when down to 10"
IDS_RANGE, "Select the range field, then input the high and low range values. Indicate whether the range values should be included inside the final record set. Note that ranges are case sensitive: ""Z"" comes before ""a""."
IDS_SEARCH, "Only indexed fields can be searched on. The search will begin from BOF and will search until it finds something that is less than, greater than, or equal to the value string."
IDS_MAIN, "You must enter an Item and an Item ID (which has to be a number) before you will be allowed to save the record by pressing the OK key."
}
Reference in New Issue View Git Blame Copy Permalink