From 485b2da13ec091ec7fd39bba8f05cb177d1bdd0b Mon Sep 17 00:00:00 2001 From: George Hazan Date: Tue, 4 Feb 2014 11:52:44 +0000 Subject: additional fix for pascal headers git-svn-id: http://svn.miranda-ng.org/main/trunk@8038 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_database.inc | 7 ------- include/delphi/m_db_int.inc | 16 ++++++++-------- 2 files changed, 8 insertions(+), 15 deletions(-) diff --git a/include/delphi/m_database.inc b/include/delphi/m_database.inc index f02c506806..82744a43d6 100644 --- a/include/delphi/m_database.inc +++ b/include/delphi/m_database.inc @@ -44,13 +44,6 @@ const MS_DB_CHECKPROFILE:PAnsiChar = 'DB/CheckProfile'; type - PDBCONTACTGETSETTING = ^TDBCONTACTGETSETTING; - TDBCONTACTGETSETTING = record - szModule : PAnsiChar; // name of the module that wrote the setting to get - szSetting: PAnsiChar; // the name of the setting to get - pValue : PDBVARIANT; // pointer to DBVARIANT to receive the value - end; - PDBCONTACTWRITESETTING = ^TDBCONTACTWRITESETTING; TDBCONTACTWRITESETTING = record szModule : PAnsiChar; // module sig to write this setting under diff --git a/include/delphi/m_db_int.inc b/include/delphi/m_db_int.inc index 865b5b2c85..3b5dd22df1 100644 --- a/include/delphi/m_db_int.inc +++ b/include/delphi/m_db_int.inc @@ -90,16 +90,16 @@ type EnumModuleNames:function(pFunc:TDBMODULEENUMPROC; pParam:pointer):bool; stdcall; - GetContactSetting :function(hContact:THANDLE; dbcgs:PDBCONTACTGETSETTING):bool; stdcall; - GetContactSettingStr :function(hContact:THANDLE; dbcgs:PDBCONTACTGETSETTING):bool; stdcall; - GetContactSettingStatic:function(hContact:THANDLE; dbcgs:PDBCONTACTGETSETTING):bool; stdcall; + GetContactSetting:function(hContact:THANDLE; szModule, szSetting:pAnsiChar; dbv:PDBVARIANT):bool; stdcall; + GetContactSettingStr:function(hContact:THANDLE; szModule, szSetting:pAnsiChar; dbv:PDBVARIANT):bool; stdcall; + GetContactSettingStatic:function(hContact:THANDLE; szModule, szSetting:pAnsiChar; dbv:PDBVARIANT):bool; stdcall; FreeVariant:function(dbv:PDBVARIANT):bool; stdcall; - WriteContactSetting :function(hContact:THANDLE; dbcws:PDBCONTACTWRITESETTING):bool; stdcall; - DeleteContactSetting:function(hContact:THANDLE; dbcgs:PDBCONTACTGETSETTING):bool; stdcall; - EnumContactSettings :function(hContact:THANDLE; dbces:PDBCONTACTENUMSETTINGS):bool; stdcall; - SetSettingResident :function(bIsResident:bool; const pszSettingName:PAnsiChar):bool; stdcall; + WriteContactSetting:function(hContact:THANDLE; dbcws:PDBCONTACTWRITESETTING):bool; stdcall; + DeleteContactSetting:function(hContact:THANDLE; szModule, szSetting:pAnsiChar):bool; stdcall; + EnumContactSettings:function(hContact:THANDLE; dbces:PDBCONTACTENUMSETTINGS):bool; stdcall; + SetSettingResident:function(bIsResident:bool; const pszSettingName:PAnsiChar):bool; stdcall; EnumResidentSettings:function(pFunc:TDBMODULEENUMPROC; pParam:pointer):bool; stdcall; - IsSettingEncrypted :function(szModule:PAnsiChar; szSetting:pAnsiChar):bool; stdcall; + IsSettingEncrypted:function(szModule:PAnsiChar; szSetting:pAnsiChar):bool; stdcall; end; /////////////////////////////////////////////////////////////////////////////// -- cgit v1.2.3