mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
552 lines
12 KiB
552 lines
12 KiB
#include <windows.h>
|
|
#include <stdarg.h>
|
|
#include <string.h>
|
|
#include "winp.h"
|
|
#include "saverest.h"
|
|
#include "logger.h"
|
|
|
|
LRESULT far pascal zDefDlgProc( HWND pp1, UINT pp2, WPARAM pp3, LPARAM pp4 )
|
|
{
|
|
LRESULT r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:DefDlgProc HWND+UINT+WPARAM+LPARAM+",
|
|
pp1, pp2, pp3, pp4 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = DefDlgProc(pp1,pp2,pp3,pp4);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:DefDlgProc LRESULT+++++",
|
|
r, (short)0, (short)0, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
int far pascal zDlgDirList( HWND pp1, LPSTR pp2, int pp3, int pp4, UINT pp5 )
|
|
{
|
|
int r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:DlgDirList HWND+LPSTR+int+int+UINT+",
|
|
pp1, pp2, pp3, pp4, pp5 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = DlgDirList(pp1,pp2,pp3,pp4,pp5);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:DlgDirList int++++++",
|
|
r, (short)0, (short)0, (short)0, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
int far pascal zDlgDirListComboBox( HWND pp1, LPSTR pp2, int pp3, int pp4, UINT pp5 )
|
|
{
|
|
int r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:DlgDirListComboBox HWND+LPSTR+int+int+UINT+",
|
|
pp1, pp2, pp3, pp4, pp5 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = DlgDirListComboBox(pp1,pp2,pp3,pp4,pp5);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:DlgDirListComboBox int++++++",
|
|
r, (short)0, (short)0, (short)0, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
BOOL far pascal zDlgDirSelect( HWND pp1, LPSTR pp2, int pp3 )
|
|
{
|
|
BOOL r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:DlgDirSelect HWND++int+",
|
|
pp1, (short)0, pp3 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = DlgDirSelect(pp1,pp2,pp3);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:DlgDirSelect BOOL++LPSTR++",
|
|
r, (short)0, pp2, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
BOOL far pascal zDlgDirSelectComboBox( HWND pp1, LPSTR pp2, int pp3 )
|
|
{
|
|
BOOL r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:DlgDirSelectComboBox HWND++int+",
|
|
pp1, (short)0, pp3 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = DlgDirSelectComboBox(pp1,pp2,pp3);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:DlgDirSelectComboBox BOOL++LPSTR++",
|
|
r, (short)0, pp2, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
void far pascal zEndDialog( HWND pp1, int pp2 )
|
|
{
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:EndDialog HWND+int+",
|
|
pp1, pp2 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
EndDialog(pp1,pp2);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:EndDialog ++",
|
|
(short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return;
|
|
}
|
|
|
|
DWORD far pascal zGetDialogBaseUnits()
|
|
{
|
|
DWORD r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:GetDialogBaseUnits " );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = GetDialogBaseUnits();
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:GetDialogBaseUnits DWORD+", r );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
int far pascal zGetDlgCtrlID( HWND pp1 )
|
|
{
|
|
int r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:GetDlgCtrlID HWND+",
|
|
pp1 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = GetDlgCtrlID(pp1);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:GetDlgCtrlID int++",
|
|
r, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
HWND far pascal zGetDlgItem( HWND pp1, int pp2 )
|
|
{
|
|
HWND r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:GetDlgItem HWND+int+",
|
|
pp1, pp2 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = GetDlgItem(pp1,pp2);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:GetDlgItem HWND+++",
|
|
r, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
UINT far pascal zGetDlgItemInt( HWND pp1, int pp2, BOOL far* pp3, BOOL pp4 )
|
|
{
|
|
UINT r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:GetDlgItemInt HWND+int++BOOL+",
|
|
pp1, pp2, (short)0, pp4 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = GetDlgItemInt(pp1,pp2,pp3,pp4);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:GetDlgItemInt UINT+++BOOL far*++",
|
|
r, (short)0, (short)0, pp3, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
int far pascal zGetDlgItemText( HWND pp1, int pp2, LPSTR pp3, int pp4 )
|
|
{
|
|
int r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:GetDlgItemText HWND+int++int+",
|
|
pp1, pp2, (short)0, pp4 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = GetDlgItemText(pp1,pp2,pp3,pp4);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:GetDlgItemText int+++LPSTR++",
|
|
r, (short)0, (short)0, pp3, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
HWND far pascal zGetNextDlgGroupItem( HWND pp1, HWND pp2, BOOL pp3 )
|
|
{
|
|
HWND r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:GetNextDlgGroupItem HWND+HWND+BOOL+",
|
|
pp1, pp2, pp3 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = GetNextDlgGroupItem(pp1,pp2,pp3);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:GetNextDlgGroupItem HWND++++",
|
|
r, (short)0, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
HWND far pascal zGetNextDlgTabItem( HWND pp1, HWND pp2, BOOL pp3 )
|
|
{
|
|
HWND r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:GetNextDlgTabItem HWND+HWND+BOOL+",
|
|
pp1, pp2, pp3 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = GetNextDlgTabItem(pp1,pp2,pp3);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:GetNextDlgTabItem HWND++++",
|
|
r, (short)0, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
BOOL far pascal zIsDialogMessage( HWND pp1, MSG far* pp2 )
|
|
{
|
|
BOOL r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:IsDialogMessage HWND+MSG far*+",
|
|
pp1, pp2 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = IsDialogMessage(pp1,pp2);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:IsDialogMessage BOOL+++",
|
|
r, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
UINT far pascal zIsDlgButtonChecked( HWND pp1, int pp2 )
|
|
{
|
|
UINT r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:IsDlgButtonChecked HWND+int+",
|
|
pp1, pp2 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = IsDlgButtonChecked(pp1,pp2);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:IsDlgButtonChecked UINT+++",
|
|
r, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
void far pascal zMapDialogRect( HWND pp1, LPRECT pp2 )
|
|
{
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:MapDialogRect HWND+LPRECT+",
|
|
pp1, pp2 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
MapDialogRect(pp1,pp2);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:MapDialogRect +LPRECT+",
|
|
(short)0, pp2 );
|
|
|
|
RestoreRegs();
|
|
return;
|
|
}
|
|
|
|
LRESULT far pascal zSendDlgItemMessage( HWND pp1, int pp2, UINT pp3, WPARAM pp4, LPARAM pp5 )
|
|
{
|
|
LRESULT r;
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:SendDlgItemMessage HWND+int+UINT+WPARAM+LPARAM+",
|
|
pp1, pp2, pp3, pp4, pp5 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
r = SendDlgItemMessage(pp1,pp2,pp3,pp4,pp5);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:SendDlgItemMessage LRESULT++++++",
|
|
r, (short)0, (short)0, (short)0, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return( r );
|
|
}
|
|
|
|
void far pascal zSetDlgItemInt( HWND pp1, int pp2, UINT pp3, BOOL pp4 )
|
|
{
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:SetDlgItemInt HWND+int+UINT+BOOL+",
|
|
pp1, pp2, pp3, pp4 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
SetDlgItemInt(pp1,pp2,pp3,pp4);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:SetDlgItemInt ++++",
|
|
(short)0, (short)0, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return;
|
|
}
|
|
|
|
void far pascal zSetDlgItemText( HWND pp1, int pp2, LPCSTR pp3 )
|
|
{
|
|
|
|
SaveRegs();
|
|
/*
|
|
** Log IN Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogIn( (LPSTR)"APICALL:SetDlgItemText HWND+int+LPCSTR+",
|
|
pp1, pp2, pp3 );
|
|
|
|
/*
|
|
** Call the API!
|
|
*/
|
|
RestoreRegs();
|
|
GrovelDS();
|
|
SetDlgItemText(pp1,pp2,pp3);
|
|
UnGrovelDS();
|
|
SaveRegs();
|
|
/*
|
|
** Log Return Code & OUT Parameters (No Create/Destroy Checking Yet!)
|
|
*/
|
|
LogOut( (LPSTR)"APIRET:SetDlgItemText +++",
|
|
(short)0, (short)0, (short)0 );
|
|
|
|
RestoreRegs();
|
|
return;
|
|
}
|
|
|