vwemirror/TeslaRel410
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
110ecec2ca3edc135e260e0f3ee07e7945cbf4ec
TeslaRel410/BORLAND/BC45/INCLUDE/OWL/VBXCTL.H
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

522 lines
13 KiB
C++
Raw Blame History

//----------------------------------------------------------------------------
// ObjectWindows
// (C) Copyright 1993, 1994 by Borland International, All Rights Reserved
//
// Defines TVbxControl and associated classes
//----------------------------------------------------------------------------
#if !defined(OWL_VBXCTL_H)
#define OWL_VBXCTL_H
#define __OWL_VBXCTL_H // Old-style define for VbxGen compatibility
#if !defined(OWL_CONTROL_H)
# include <owl/control.h>
#endif
#if !defined(__BIVBX_H)
# include <bivbx.h>
#endif
#if !defined(BI_PLAT_MSW)
# error VBX supported only under MS Windows
#endif
//
// class TBIVbxLibrary
// ----- -------------
//
class TBIVbxLibrary : public TModule {
public:
class _OWLCLASS_RTL TXVbxLibrary : public TXOwl {
public:
TXVbxLibrary();
TXOwl* Clone();
void Throw();
};
TBIVbxLibrary();
~TBIVbxLibrary();
};
//
// class TVbxEventHandler
// ----- ----------------
//
class TVbxEventHandler : virtual public TEventHandler {
protected:
LRESULT EvVbxDispatch(WPARAM wp, LPARAM lp);
LRESULT EvVbxInitForm(WPARAM wp, LPARAM lp);
DECLARE_RESPONSE_TABLE(TVbxEventHandler);
};
//
// class TVbxControl
// ----- -----------
//
class TVbxControl : public TControl, public TVbxEventHandler {
public:
TVbxControl(TWindow* parent,
int id,
const char far* vbxName,
const char far* vbxClass,
const char far* title,
int x,
int y,
int w,
int h,
long initLen = 0,
void far* initData = 0,
TModule* module = 0);
TVbxControl(TWindow* parent, int resourceId, TModule* module = 0);
~TVbxControl();
void SetupWindow();
// properties
int GetNumProps();
int GetPropIndex(const char far* name);
#if defined(BI_PLAT_WIN16)
const char far* GetPropName(int propIndex);
#endif
void GetPropName(int propIndex, string& str);
int GetPropType(int propIndex);
int GetPropType(char far* name);
bool IsArrayProp(int propIndex);
bool IsArrayProp(char far* name);
// get properties by index
bool GetProp(int propIndex, int& value, int arrayIndex=-1);
bool GetProp(int propIndex, long& value, int arrayIndex=-1);
#if defined(BI_UNIQUE_BOOL)
bool GetProp(int propIndex, bool& value, int arrayIndex=-1);
#endif
bool GetProp(int propIndex, ENUM& value, int arrayIndex=-1);
bool GetProp(int propIndex, HPIC& value, int arrayIndex=-1);
bool GetProp(int propIndex, float& value, int arrayIndex=-1);
bool GetProp(int propIndex, string& value, int arrayIndex=-1);
bool GetProp(int propIndex, COLORREF& value, int arrayIndex=-1);
// get properties by name
bool GetProp(const char far* name, int& value, int arrayIndex=-1);
bool GetProp(const char far* name, long& value, int arrayIndex=-1);
#if defined(BI_UNIQUE_BOOL)
bool GetProp(const char far* name, bool& value, int arrayIndex=-1);
#endif
bool GetProp(const char far* name, ENUM& value, int arrayIndex=-1);
bool GetProp(const char far* name, HPIC& value, int arrayIndex=-1);
bool GetProp(const char far* name, float& value, int arrayIndex=-1);
bool GetProp(const char far* name, string& value, int arrayIndex=-1);
bool GetProp(const char far* name, COLORREF& value, int arrayIndex=-1);
// set properties by index
bool SetProp(int propIndex, int value, int arrayIndex=-1);
bool SetProp(int propIndex, long value, int arrayIndex=-1);
bool SetProp(int propIndex, ENUM value, int arrayIndex=-1);
bool SetProp(int propIndex, HPIC value, int arrayIndex=-1);
bool SetProp(int propIndex, float value, int arrayIndex=-1);
bool SetProp(int propIndex, const string& value, int arrayIndex=-1);
bool SetProp(int propIndex, const char far* value, int arrayIndex=-1);
bool SetProp(int propIndex, COLORREF value, int arrayIndex=-1);
// set properties by name
bool SetProp(const char far* name, int value, int arrayIndex=-1);
bool SetProp(const char far* name, long value, int arrayIndex=-1);
bool SetProp(const char far* name, ENUM value, int arrayIndex=-1);
bool SetProp(const char far* name, HPIC value, int arrayIndex=-1);
bool SetProp(const char far* name, float value, int arrayIndex=-1);
bool SetProp(const char far* name, const string& value, int arrayIndex=-1);
bool SetProp(const char far* name, const char far* value, int arrayIndex=-1);
bool SetProp(const char far*, COLORREF value, int arrayIndex=-1);
// events
int GetNumEvents();
int GetEventIndex(const char far* name);
#if defined(BI_PLAT_WIN16)
const char far* GetEventName(int eventIndex);
#endif
void GetEventName(int eventIndex, string& str);
// methods
bool AddItem(int index, const char far* item);
bool Drag(int action);
bool Move(long x, long y, long w, long h);
bool Refresh();
bool RemoveItem(int index);
// control
HCTL GetHCTL() {return HCtl;}
protected:
char far* GetClassName();
void PerformCreate(int menuOrId);
bool GetVBXProperty(int propIndex, void far *value, int arrayIndex=-1);
bool SetVBXProperty(int propIndex, int32 value, int arrayIndex=-1);
private:
HCTL HCtl;
char far* VbxName;
char far* VbxClass;
long InitLen;
void far* InitData;
LRESULT EvDefaultProcessing(WPARAM, LPARAM);
DECLARE_RESPONSE_TABLE(TVbxControl);
DECLARE_CASTABLE;
};
//
// Response table macros for VBX events
//
#define EV_VBXEVENTNAME(id,name,method)\
{WM_VBXNAME,id,(TAnyDispatcher)name,(TMyPMF)VbxSig(&TMyClass::method)}
#define EV_VBXEVENTINDEX(id,event,method)\
{WM_VBXBASE+event,id,(TAnyDispatcher)::i_LPARAM_Dispatch,\
(TMyPMF)VbxSig(&TMyClass::method)}
//
// WM_VBXFIREEVENT signature template
//
template <class T>
inline void(T::*VbxSig(void(T::*pmf)(VBXEVENT FAR*))) (VBXEVENT FAR*)
{
return pmf;
}
//
// VBXDispatch - dispatch function to crack a WM_VBXFIREEVENT message and
// pass control to a pointer to member function.
//
LRESULT
VBXDispatch(GENERIC& generic,
void (GENERIC::*pmf)(VBXEVENT FAR*),
WPARAM wParam,
LPARAM lParam);
//
// TVbxControl Inlines
//
inline int TVbxControl::GetNumProps()
{
return ::VBXGetNumProps(HCtl);
}
inline int TVbxControl::GetPropIndex(const char far* name)
{
return ::VBXGetPropIndex(HCtl, name);
}
#if defined(BI_PLAT_WIN16)
inline const char far* TVbxControl::GetPropName(int propIndex)
{
return ::VBXGetPropName(HCtl, propIndex);
}
#endif
inline void TVbxControl::GetPropName(int propIndex, string& str)
{
char buff[64];
::VBXGetPropNameBuf(HCtl, propIndex, buff, sizeof buff);
str = buff;
}
inline int TVbxControl::GetPropType(int propIndex)
{
return ::VBXGetPropType(HCtl, propIndex);
}
inline int TVbxControl::GetPropType(char far* name)
{
return GetPropType(GetPropIndex(name));
}
inline bool TVbxControl::IsArrayProp(int propIndex)
{
return ::VBXIsArrayProp(HCtl, propIndex);
}
inline bool TVbxControl::IsArrayProp(char far* name)
{
return IsArrayProp(GetPropIndex(name));
}
// get properties by id
inline bool
TVbxControl::GetProp(int propIndex, int& value, int arrayIndex)
{
#if defined(BI_PLAT_WIN32)
int16 temp;
bool rv = GetVBXProperty(propIndex, &temp, arrayIndex);
value = temp;
return rv;
#else
return GetVBXProperty(propIndex, &value, arrayIndex);
#endif
}
inline bool
TVbxControl::GetProp(int propIndex, long& value, int arrayIndex)
{
return GetVBXProperty(propIndex, &value, arrayIndex);
}
#if defined(BI_UNIQUE_BOOL)
inline bool
TVbxControl::GetProp(int propIndex, bool& value, int arrayIndex)
{
#if defined(BI_PLAT_WIN32)
int16 temp;
bool rv = GetVBXProperty(propIndex, &temp, arrayIndex);
value = temp;
return rv;
#else
return GetVBXProperty(propIndex, &value, arrayIndex);
#endif
}
#endif
inline bool
TVbxControl::GetProp(int propIndex, ENUM& value, int arrayIndex)
{
int16 temp;
bool rv = GetVBXProperty(propIndex, &temp, arrayIndex);
value = (ENUM)temp;
return rv;
}
inline bool
TVbxControl::GetProp(int propIndex, HPIC& value, int arrayIndex)
{
return GetVBXProperty(propIndex, &value, arrayIndex);
}
inline bool
TVbxControl::GetProp(int propIndex, float& value, int arrayIndex)
{
return GetVBXProperty(propIndex, &value, arrayIndex);
}
inline bool
TVbxControl::GetProp(int propIndex, COLORREF& value, int arrayIndex)
{
return GetVBXProperty(propIndex, &value, arrayIndex);
}
// get properties by name
#if defined(BI_UNIQUE_BOOL)
inline bool
TVbxControl::GetProp(const char far* name, int& value, int arrayIndex)
{
return GetProp(GetPropIndex(name), value, arrayIndex);
}
#endif
inline bool
TVbxControl::GetProp(const char far* name, long& value, int arrayIndex)
{
return GetProp(GetPropIndex(name), value, arrayIndex);
}
inline bool
TVbxControl::GetProp(const char far* name, bool& value, int arrayIndex)
{
return GetProp(GetPropIndex(name), value, arrayIndex);
}
inline bool
TVbxControl::GetProp(const char far* name, ENUM& value, int arrayIndex)
{
return GetProp(GetPropIndex(name), value, arrayIndex);
}
inline bool
TVbxControl::GetProp(const char far* name, HPIC& value, int arrayIndex)
{
return GetProp(GetPropIndex(name), value, arrayIndex);
}
inline bool
TVbxControl::GetProp(const char far* name, float& value, int arrayIndex)
{
return GetProp(GetPropIndex(name), value, arrayIndex);
}
inline bool
TVbxControl::GetProp(const char far* name, string& value, int arrayIndex)
{
return GetProp(GetPropIndex(name), value, arrayIndex);
}
inline bool
TVbxControl::GetProp(const char far* name, COLORREF& value, int arrayIndex)
{
return GetProp(GetPropIndex(name), value, arrayIndex);
}
// set properties by id
inline bool
TVbxControl::SetProp(int propIndex, int value, int arrayIndex)
{
return SetVBXProperty(propIndex, value, arrayIndex);
}
inline bool
TVbxControl::SetProp(int propIndex, long value, int arrayIndex)
{
return SetVBXProperty(propIndex, value, arrayIndex);
}
inline bool
TVbxControl::SetProp(int propIndex, HPIC value, int arrayIndex)
{
return SetVBXProperty(propIndex, value, arrayIndex);
}
inline bool
TVbxControl::SetProp(int propIndex, ENUM value, int arrayIndex)
{
return SetVBXProperty(propIndex, (long)value, arrayIndex);
}
inline bool
TVbxControl::SetProp(int propIndex, float value, int arrayIndex)
{
return SetVBXProperty(propIndex, *((long*)&value), arrayIndex);
}
inline bool
TVbxControl::SetProp(int propIndex, const string& value, int arrayIndex)
{
return SetVBXProperty(propIndex, long(value.c_str()), arrayIndex);
}
inline bool
TVbxControl::SetProp(int propIndex, const char far* value, int arrayIndex)
{
return SetVBXProperty(propIndex, (long)value, arrayIndex);
}
inline bool
TVbxControl::SetProp(int propIndex, COLORREF value, int arrayIndex)
{
return SetVBXProperty(propIndex, (long)value, arrayIndex);
}
// set properties by name
inline bool
TVbxControl::SetProp(const char far* name, int value, int arrayIndex)
{
return SetProp(GetPropIndex(name), value);
}
inline bool
TVbxControl::SetProp(const char far* name, long value, int arrayIndex)
{
return SetProp(GetPropIndex(name), value);
}
inline bool
TVbxControl::SetProp(const char far* name, ENUM value, int arrayIndex)
{
return SetProp(GetPropIndex(name), value);
}
inline bool
TVbxControl::SetProp(const char far* name, HPIC value, int arrayIndex)
{
return SetProp(GetPropIndex(name), value);
}
inline bool
TVbxControl::SetProp(const char far* name, float value, int arrayIndex)
{
return SetProp(GetPropIndex(name), value);
}
inline bool
TVbxControl::SetProp(const char far* name, const string& value, int arrayIndex)
{
return SetProp(GetPropIndex(name), value.c_str());
}
inline bool
TVbxControl::SetProp(const char far* name, const char far* value, int arrayIndex)
{
return SetProp(GetPropIndex(name), value);
}
inline bool
TVbxControl::SetProp(const char far* name, COLORREF value, int arrayIndex)
{
return SetProp(GetPropIndex(name), value);
}
inline int
TVbxControl::GetNumEvents()
{
return ::VBXGetNumEvents(HCtl);
}
inline int
TVbxControl::GetEventIndex(const char far* name)
{
return ::VBXGetEventIndex(HCtl, name);
}
#if defined(BI_PLAT_WIN16)
inline const char far*
TVbxControl::GetEventName(int eventIndex)
{
return ::VBXGetEventName(HCtl, eventIndex);
}
#endif
inline void
TVbxControl::GetEventName(int eventIndex, string& str)
{
char buff[64];
::VBXGetEventNameBuf(HCtl, eventIndex, buff, sizeof buff);
str = buff;
}
inline bool
TVbxControl::AddItem(int index, const char far* item)
{
return ::VBXMethodAddItem(HCtl, index, item);
}
inline bool
TVbxControl::Drag(int action)
{
return ::VBXMethodDrag(HCtl, action);
}
inline bool
TVbxControl::Move(long x, long y, long w, long h)
{
return ::VBXMethodMove(HCtl, x, y, w, h);
}
inline bool
TVbxControl::Refresh()
{
return ::VBXMethodRefresh(HCtl);
}
inline bool
TVbxControl::RemoveItem(int index)
{
return ::VBXMethodRemoveItem(HCtl, index);
}
#endif // OWL_VBXCTL_H
Reference in New Issue View Git Blame Copy Permalink