Browse Source

Cleanup

oldchat
Mikanoshi 6 years ago
parent
commit
f47847cf47
  1. 1
      RnQ/HistAllSearch.pas
  2. 1
      RnQ/ICQ/ICQClients.pas
  3. 4
      RnQ/ICQ/ICQConsts.pas
  4. 2
      RnQ/ICQ/ICQContacts.pas
  5. 1
      RnQ/ICQ/ICQflap.pas
  6. 128
      RnQ/ICQ/ICQv9.pas
  7. 1
      RnQ/ICQ/MenuStickers.pas
  8. 1
      RnQ/ICQ/Stickers.pas
  9. 1
      RnQ/ICQ/viewinfoDlg.pas
  10. 1
      RnQ/MenuSmiles.pas
  11. 1
      RnQ/NewAccount.pas
  12. 2
      RnQ/NoRTTI.inc
  13. 1
      RnQ/Prefs/antispam_fr.pas
  14. 1
      RnQ/Prefs/autoaway_fr.pas
  15. 1
      RnQ/Prefs/chat_frOld.pas
  16. 1
      RnQ/Prefs/connection_fr.pas
  17. 1
      RnQ/Prefs/design_fr.pas
  18. 1
      RnQ/Prefs/events_fr.pas
  19. 1
      RnQ/Prefs/hotkeys_fr.pas
  20. 1
      RnQ/Prefs/other_fr.pas
  21. 1
      RnQ/Prefs/plugins_fr.pas
  22. 1
      RnQ/Prefs/security_fr.pas
  23. 1
      RnQ/Prefs/start_fr.pas
  24. 1
      RnQ/Prefs/themedit_fr.pas
  25. 1
      RnQ/Prefs/tips_fr.pas
  26. 1
      RnQ/Prefs/update_fr.pas
  27. 4
      RnQ/RnQBuiltTime.inc
  28. 1
      RnQ/RnQMacros.pas
  29. 6
      RnQ/RnQProtocol.pas
  30. 1
      RnQ/RnQTips.pas
  31. 1
      RnQ/RnQ_Avatars.pas
  32. 1
      RnQ/RnQdbDlg.pas
  33. BIN
      RnQ/RnQx64.res
  34. 1
      RnQ/addContactDlg.pas
  35. 1
      RnQ/automsgDlg.pas
  36. 1
      RnQ/changepwddlg.pas
  37. 22
      RnQ/groupsLib.pas
  38. 142
      RnQ/hook.pas
  39. 5
      RnQ/iniLib.pas
  40. 2
      RnQ/langLib.pas
  41. 1
      RnQ/lockDlg.pas
  42. 1
      RnQ/outboxDlg.pas
  43. 3
      RnQ/pluginLib.pas
  44. 39
      RnQ/prefDlg.pas
  45. 1
      RnQ/pwdDlg.pas
  46. 24
      RnQ/utilLib.pas
  47. 730
      for.RnQ/Compilers.inc
  48. 73
      for.RnQ/ForRnQConfig.inc
  49. 96
      for.RnQ/Graphics32/GR32_Compiler.inc
  50. 2
      for.RnQ/NoRTTI.inc
  51. 1
      for.RnQ/RDtrayLib.pas
  52. 20
      for.RnQ/RQMenuItem.pas
  53. 73
      for.RnQ/RQThemes.pas
  54. 9
      for.RnQ/RQUtil.pas
  55. 2
      for.RnQ/RQmsgs.pas
  56. 1
      for.RnQ/RTL/AnsiClasses.pas
  57. 32
      for.RnQ/RTL/RDGlobal.pas
  58. 59
      for.RnQ/RTL/RDUtils.pas
  59. 2
      for.RnQ/RTL/RnQBinUtils.pas
  60. 313
      for.RnQ/RTL/RnQGraphics32.pas
  61. 1
      for.RnQ/RTL/RnQHttpAuth.pas
  62. 6
      for.RnQ/RTL/cHash.pas
  63. 14
      for.RnQ/RTL/litegif1.pas
  64. 11
      for.RnQ/RnQButtons.pas
  65. 2
      for.RnQ/RnQDialogs.pas
  66. 20
      for.RnQ/RnQLangs.pas
  67. 1
      for.RnQ/RnQNet.pas
  68. 21
      for.RnQ/RnQPrefsLib.pas
  69. 2
      for.RnQ/RnQStrings.pas
  70. 44
      for.RnQ/VTV/Source/VirtualTrees.pas
  71. 1
      for.RnQ/pluginutil.pas

1
RnQ/HistAllSearch.pas

@ -3,7 +3,6 @@
Under same license
}
unit HistAllSearch;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/ICQ/ICQClients.pas

@ -1,6 +1,5 @@
unit ICQClients;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

4
RnQ/ICQ/ICQConsts.pas

@ -976,7 +976,7 @@ var
) }
);
function CAPS_sm2big(i: byte): RawByteString; {$IFDEF DELPHI_9_UP} inline; {$ENDIF DELPHI_9_UP}
function CAPS_sm2big(i: byte): RawByteString; inline;
var
// ExtStsStrings : array[low(aXStatus)..High(aXStatus),0..1] of string;
// ExtStsStrings : array[low(XStatus6)..High(XStatus6)] of string;
@ -1025,7 +1025,7 @@ const
implementation
function CAPS_sm2big(i: byte): RawByteString; {$IFDEF DELPHI_9_UP} inline; {$ENDIF DELPHI_9_UP}
function CAPS_sm2big(i: byte): RawByteString; inline;
begin
result := CapsMakeBig1 + CapsSmall[i].v + CapsMakeBig2;
end;

2
RnQ/ICQ/ICQContacts.pas

@ -158,7 +158,7 @@ type
function canEdit : Boolean; override;
function getGMT:TdateTime;
function GMTavailable:boolean;
function uinAsStr:string; {$IFDEF DELPHI_9_UP} inline; {$ENDIF DELPHI_9_UP}
function uinAsStr:string; inline;
function uin2Show:string; OverRide; Final;
function getStatusName : String; OverLoad; OverRide; final;
function statusImg : TPicName; OverRide; final;

1
RnQ/ICQ/ICQflap.pas

@ -2,7 +2,6 @@
This file is part of R&Q.
Under same license
}
{$I Compilers.inc}
{$I RnQConfig.inc}
unit ICQflap;

128
RnQ/ICQ/ICQv9.pas

@ -100,7 +100,7 @@ type
// wrote,lastmodify:Tdatetime;
// filepos:integer;
constructor Create;// override;
destructor Destroy; override; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
destructor Destroy; override; final;
// function toString:string;
// procedure fromString(s:string);
function Clone : TSSIEvent;
@ -113,8 +113,8 @@ type
function empty:boolean;
destructor Destroy; override; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure Clear; override; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
destructor Destroy; override; final;
procedure Clear; override; final;
// procedure clearU;
// function add(kind: Integer; dest:TUID; flags:integer=0; const info:string=''):TSSIEvent; overload;
// function add(kind: Integer; dest:TUID; flags:integer; cl:TRnQCList):TSSIEvent; overload;
@ -476,18 +476,18 @@ type
AvatarsAutoGetSWF : Boolean;
myAvatarHash : RawByteString;
class function NewInstance: TObject; override; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function NewInstance: TObject; override; final;
// class function GetId: Word; override;
class function _GetProtoName: string; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function _GetProtoName: string; OverRide; final;
// class function _isValidUid(var uin:TUID):boolean; OverRide; final;
class function _isProtoUid(var uin:TUID):boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function _isValidUid1(const uin:TUID):boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function _getDefHost : Thostport; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function _getContactClass : TRnQCntClass; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function _getProtoServers : String; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function _getProtoID : Byte; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function _CreateProto(const uid : TUID) : TRnQProtocol; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function _RegisterUser(var pUID : TUID; var pPWD : String) : Boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
class function _isProtoUid(var uin:TUID):boolean; OverRide; final;
class function _isValidUid1(const uin:TUID):boolean; OverRide; final;
class function _getDefHost : Thostport; OverRide; final;
class function _getContactClass : TRnQCntClass; OverRide; final;
class function _getProtoServers : String; OverRide; final;
class function _getProtoID : Byte; OverRide; final;
class function _CreateProto(const uid : TUID) : TRnQProtocol; OverRide; final;
class function _RegisterUser(var pUID : TUID; var pPWD : String) : Boolean; OverRide; final;
class function _MaxPWDLen: Integer; OverRide; final;
// class function isValidUid(var uin:TUID):boolean;
// function isValidUid(var uin:TUID):boolean;
@ -497,10 +497,10 @@ type
function getICQContact(const uid : TUID) : TICQContact; OverLoad;
function getICQContact(uin : Integer) : TICQContact; OverLoad;
function getContact(const UID : TUID) : TRnQContact; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getContactClass : TRnQCntClass; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getContact(const UID : TUID) : TRnQContact; OverRide; final;
function getContactClass : TRnQCntClass; OverRide; final;
function pwdEqual(const pass : String) : Boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function pwdEqual(const pass : String) : Boolean; OverRide; final;
property DCmode:TicqDCmode read P_dcmode write setDCmode;
property DCfakeIP:TInAddr read fDC_Fake_ip write set_DCfakeIP;
@ -517,16 +517,16 @@ type
// constructor Create; override;
// destructor Destroy; override;
constructor Create(const id : TUID; subType : TICQSessionSubType);
destructor Destroy; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure ResetPrefs; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure GetPrefs(var pp : TRnQPref); OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure SetPrefs(pp : TRnQPref); OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure Clear; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
destructor Destroy; OverRide; final;
procedure ResetPrefs; OverRide; final;
procedure GetPrefs(var pp : TRnQPref); OverRide; final;
procedure SetPrefs(pp : TRnQPref); OverRide; final;
procedure Clear; OverRide; final;
procedure connect;
// procedure connect(createUIN:boolean; avt_session : Boolean = false); overload;
procedure disconnect; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure disconnect; OverRide; final;
// procedure setStatus(s:Tstatus; inv:boolean);
procedure setStatus(st: byte); overload; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure setStatus(st: byte); overload; OverRide; final;
procedure setStatus(s:TICQstatus; vis: Tvisibility); overload;
function getPwd : String; OverRide; Final;
function getPwdOnly : String; OverRide; Final;
@ -534,43 +534,43 @@ type
procedure refreshSessionSecret();
function getSession: TSessionParams; OverRide; Final;
function getStatus: byte; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getVisibility : byte; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function IsInvisible : Boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function isOnline:boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function isOffline:boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function isReady:boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP} // we can send commands
function isConnecting:boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function isSSCL:boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function imVisibleTo(c:TRnQContact):boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getStatusName: String; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getStatusImg : TPicName; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getXStatus:byte; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getStatus: byte; OverRide; final;
function getVisibility : byte; OverRide; final;
function IsInvisible : Boolean; OverRide; final;
function isOnline:boolean; OverRide; final;
function isOffline:boolean; OverRide; final;
function isReady:boolean; OverRide; final; // we can send commands
function isConnecting:boolean; OverRide; final;
function isSSCL:boolean; OverRide; final;
function imVisibleTo(c:TRnQContact):boolean; OverRide; final;
function getStatusName: String; OverRide; final;
function getStatusImg : TPicName; OverRide; final;
function getXStatus:byte; OverRide; final;
public
// manage contact lists
function readList(l : TLIST_TYPES) : TRnQCList; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function readList(l : TLIST_TYPES) : TRnQCList; OverRide; final;
procedure AddToList(l : TLIST_TYPES; cl:TRnQCList); OverLoad; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure RemFromList(l : TLIST_TYPES; cl:TRnQCList); OverLoad; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure AddToList(l : TLIST_TYPES; cl:TRnQCList); OverLoad; OverRide; final;
procedure RemFromList(l : TLIST_TYPES; cl:TRnQCList); OverLoad; OverRide; final;
// manage contacts
// function validUid(var uin:TUID):boolean; inline;
// function validUid1(const uin:TUID):boolean; {$IFDEF DELPHI_9_UP} inline; {$ENDIF DELPHI_9_UP}
// function validUid1(const uin:TUID):boolean; inline;
// class function isValidUid(var uin:TUID):boolean; Static;
procedure AddToList(l : TLIST_TYPES; cnt:TRnQContact); OverLoad; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure RemFromList(l : TLIST_TYPES; cnt:TRnQContact); OverLoad; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function isInList(l : TLIST_TYPES; cnt:TRnQContact) : Boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure AddToList(l : TLIST_TYPES; cnt:TRnQContact); OverLoad; OverRide; final;
procedure RemFromList(l : TLIST_TYPES; cnt:TRnQContact); OverLoad; OverRide; final;
function isInList(l : TLIST_TYPES; cnt:TRnQContact) : Boolean; OverRide; final;
function addContact(c:TRnQContact; isLocal : Boolean = false):boolean; overload;OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function removeContact(cnt:TRnQContact):boolean;OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function addContact(c:TRnQContact; isLocal : Boolean = false):boolean; overload;OverRide; final;
function removeContact(cnt:TRnQContact):boolean;OverRide; final;
procedure InputChangedFor(cnt :TRnQContact; InpIsEmpty : Boolean; timeOut : boolean = false); OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure UpdateGroupOf(cnt : TRnQContact); OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure getClientPicAndDesc4(cnt:TRnQContact; var pPic : TPicName; var CliDesc : String); OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function maxCharsFor(const c:TRnQContact; isBin : Boolean = false):integer; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function compareStatusFor(cnt1, Cnt2 : TRnqContact) : Smallint; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure sendkeepalive;OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function canAddCntOutOfGroup : Boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure InputChangedFor(cnt :TRnQContact; InpIsEmpty : Boolean; timeOut : boolean = false); OverRide; final;
procedure UpdateGroupOf(cnt : TRnQContact); OverRide; final;
procedure getClientPicAndDesc4(cnt:TRnQContact; var pPic : TPicName; var CliDesc : String); OverRide; final;
function maxCharsFor(const c:TRnQContact; isBin : Boolean = false):integer; OverRide; final;
function compareStatusFor(cnt1, Cnt2 : TRnqContact) : Smallint; OverRide; final;
procedure sendkeepalive;OverRide; final;
function canAddCntOutOfGroup : Boolean; OverRide; final;
{$IFDEF UNICODE}
// procedure notificationForMsgW(msgtype:byte; flags:byte; urgent:boolean;
@ -581,7 +581,7 @@ type
function getLocalIPstr:string;
{$IFDEF usesDC}
function getNewDirect : TProtoDirect; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getNewDirect : TProtoDirect; OverRide; final;
function directTo(c:TICQContact):TICQDirect;
{$ENDIF usesDC}
public // ICQ Only
@ -830,21 +830,21 @@ type
function getFullStatusCode:dword;
public // All
function sendMsg(cnt : TRnQContact; var flags:dword; const msg:string; var requiredACK:boolean):integer; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP} // returns handle
function sendMsg(cnt : TRnQContact; var flags:dword; const msg:string; var requiredACK:boolean):integer; OverRide; final; // returns handle
function sendBuzz(cnt: TRnQContact): Boolean;
procedure SetListener(l : TProtoNotify); OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure AuthGrant(Cnt : TRnQContact); OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure AuthRequest(cnt : TRnQContact; const reason : String); OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
procedure SetListener(l : TProtoNotify); OverRide; final;
procedure AuthGrant(Cnt : TRnQContact); OverRide; final;
procedure AuthRequest(cnt : TRnQContact; const reason : String); OverRide; final;
function isMyAcc(c : TRnQContact) : Boolean; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getMyInfo : TRnQContact; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function isMyAcc(c : TRnQContact) : Boolean; OverRide; final;
function getMyInfo : TRnQContact; OverRide; final;
// procedure setMyInfo(cnt : TRnQContact);
function getStatuses : TStatusArray; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getVisibilitis : TStatusArray; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getStatusMenu : TStatusMenu; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getVisMenu : TStatusMenu; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getStatusDisable : TOnStatusDisable; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getPrefPage : TPrefFrameClass; OverRide; {$IFDEF DELPHI_9_UP} final; {$ENDIF DELPHI_9_UP}
function getStatuses : TStatusArray; OverRide; final;
function getVisibilitis : TStatusArray; OverRide; final;
function getStatusMenu : TStatusMenu; OverRide; final;
function getVisMenu : TStatusMenu; OverRide; final;
function getStatusDisable : TOnStatusDisable; OverRide; final;
function getPrefPage : TPrefFrameClass; OverRide; final;
function GenSSID : Integer;
procedure applyBalloon;

1
RnQ/ICQ/MenuStickers.pas

@ -3,7 +3,6 @@
Under same license
}
unit MenuStickers;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/ICQ/Stickers.pas

@ -1,5 +1,4 @@
unit Stickers;
{$I Compilers.inc}
{$I forRnQConfig.inc}
interface

1
RnQ/ICQ/viewinfoDlg.pas

@ -3,7 +3,6 @@
Under same license
}
unit viewinfoDlg;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/MenuSmiles.pas

@ -3,7 +3,6 @@
Under same license
}
unit MenuSmiles;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/NewAccount.pas

@ -4,7 +4,6 @@
}
unit NewAccount;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

2
RnQ/NoRTTI.inc

@ -1,4 +1,2 @@
{$IFDEF COMPILER_14_UP}
{$WEAKLINKRTTI ON}
{$RTTI EXPLICIT METHODS([]) FIELDS([]) PROPERTIES([])}
{$ENDIF COMPILER_14_UP}

1
RnQ/Prefs/antispam_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit antispam_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/autoaway_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit autoaway_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/chat_frOld.pas

@ -3,7 +3,6 @@
Under same license
}
unit chat_frOld;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/connection_fr.pas

@ -1,5 +1,4 @@
unit connection_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/design_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit design_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/events_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit events_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/hotkeys_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit hotkeys_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/other_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit other_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/plugins_fr.pas

@ -2,7 +2,6 @@
This file is part of R&Q.
Under same license
}
{$I Compilers.inc}
{$I RnQConfig.inc}
unit plugins_fr;

1
RnQ/Prefs/security_fr.pas

@ -2,7 +2,6 @@
This file is part of R&Q.
Under same license
}
{$I Compilers.inc}
{$I RnQConfig.inc}
unit security_fr;

1
RnQ/Prefs/start_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit start_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/themedit_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit themedit_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/tips_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit tips_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/Prefs/update_fr.pas

@ -3,7 +3,6 @@
Under same license
}
unit update_fr;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

4
RnQ/RnQBuiltTime.inc

@ -1,2 +1,2 @@
{ 08.09.2015 21:31:15 }
BuiltTime = 42255.8967045139;
{ 11.09.2015 21:52:33 }
BuiltTime = 42258.9115038542;

1
RnQ/RnQMacros.pas

@ -1,5 +1,4 @@
unit RnQMacros;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

6
RnQ/RnQProtocol.pas

@ -413,7 +413,7 @@ type
function getContact(const UID : TUID) : TRnQContact; Virtual; Abstract;
// function ProtoName : String; Virtual; Abstract;
function ProtoName : String; inline;
function ProtoElem : TRnQProtocol; {$IFDEF DELPHI_9_UP} inline; {$ENDIF DELPHI_9_UP}
function ProtoElem : TRnQProtocol; inline;
procedure GetPrefs(var pp : TRnQPref); Virtual;
procedure SetPrefs(pp : TRnQPref); Virtual;
procedure ResetPrefs; Virtual;
@ -606,11 +606,7 @@ type
end;
TcontactProc=procedure(c:TRnQContact);
{$IFDEF DELPHI_9_UP}
TRnQContactType = type of TRnQContact;
{$ELSE DELPHI_9_DOWN}
TRnQContactType = class of TRnQContact;
{$ENDIF DELPHI_9_UP}
TRnQCList=class(Tlist)
protected
enumIdx:integer;

1
RnQ/RnQTips.pas

@ -3,7 +3,6 @@
Under same license
}
unit RnQTips;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/RnQ_Avatars.pas

@ -3,7 +3,6 @@
Under same license
}
unit RnQ_Avatars;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/RnQdbDlg.pas

@ -3,7 +3,6 @@
Under same license
}
unit RnQdbDlg;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

BIN
RnQ/RnQx64.res

Binary file not shown.

1
RnQ/addContactDlg.pas

@ -3,7 +3,6 @@
Under same license
}
unit addContactDlg;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/automsgDlg.pas

@ -3,7 +3,6 @@
Under same license
}
unit automsgDlg;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/changepwddlg.pas

@ -4,7 +4,6 @@
}
unit changepwddlg;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

22
RnQ/groupsLib.pas

@ -17,7 +17,6 @@
along with &RQ; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
{$I Compilers.inc}
{$I RnQConfig.inc}
unit groupsLib;
@ -39,16 +38,9 @@ type
order: integer;
node: array [Tdivisor] of Tnode;
expanded: array [Tdivisor] of boolean;
{$IFDEF DELPHI_9_UP}
procedure ServerUpdate;
{$ENDIF DELPHI_9_UP}
end;
{$IFNDEF DELPHI_9_UP}
procedure ServerUpdate(grp: integer);
{$ENDIF DELPHI_9_DOWN}
type
Tgroups = class
public
@ -329,8 +321,6 @@ end;
{ Tgroup }
{$IFDEF DELPHI_9_UP}
procedure Tgroup.ServerUpdate;
begin
// ICQ.SSIRenameGroup(ssiID, name);
@ -342,16 +332,4 @@ begin
TicqSession(Account.AccProto.ProtoElem).SSIUpdateGroup(id);
end;
{$ELSE DELPHI_9_DOWN}
procedure ServerUpdate(grp: integer);
begin
if Account.AccProto is TicqSession then
{$IFDEF UseNotSSI}
if TicqSession(Account.AccProto).useSSI then
{$ENDIF UseNotSSI}
TicqSession(Account.AccProto).SSIUpdateGroup(grp);
end;
{$ENDIF DELPHI_9_DOWN}
end.

142
RnQ/hook.pas

@ -18,7 +18,6 @@
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit hook;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface
@ -27,32 +26,14 @@ uses
windows, sysutils, messages, classes;
{$I NoRTTI.inc}
{$IFNDEF NO_WIN98}
const
HOOK_VER = 5;
DLLname = 'hook.dll';
mapfile = 'andrqHook5';
type
Tshared = record
sign: array [1 .. 3] of char;
ver: integer;
runs: integer;
keyMoved: integer;
end;
{$ENDIF WIN98}
procedure installHook(hdl: THandle);
// procedure installHook;
procedure uninstallHook;
// function isHooked:boolean; {$IFDEF DELPHI_9_UP} inline; {$ENDIF DELPHI_9_UP}
// function isHooked:boolean; inline;
function isMoved: Boolean;
var
{$IFNDEF NO_WIN98}
shared: ^Tshared;
{$ENDIF WIN98}
isHooked: Boolean;
isLocked: Boolean = false;
@ -89,46 +70,13 @@ const
NOTIFY_FOR_ALL_SESSIONS = 1;
var
{$IFNDEF NO_WIN98}
hookOn, hookOff, hookVer: procedure; stdcall;
fileHnd, DLLhnd: THandle;
{$ENDIF NO_WIN98}
oldHook: Boolean;
FRegisteredSessionNotification: Boolean;
SessNotifHndl: THandle;
{$IFNDEF NO_WIN98}
lastMousePos: Tpoint;
lastKeybPos: integer;
{$ENDIF NO_WIN98}
GetLII: function(var plii: TLastInputInfo): BOOL; stdcall;
// GetLastInputInfo
{$IFNDEF NO_WIN98}
procedure unload;
begin
if shared <> NIL then
begin
if shared^.runs = 0 then
hookOff;
UnmapViewOfFile(shared);
shared := NIL;
end;
if fileHnd <> 0 then
begin
CloseHandle(fileHnd);
fileHnd := 0;
end;
if DLLhnd <> 0 then
begin
loggaEvt('hook.dll: unloading');
FreeLibrary(DLLhnd);
DLLhnd := 0;
end;
end; // unload
{$ENDIF WIN98}
procedure installHook(hdl: THandle);
var
hndl: THandle;
@ -144,60 +92,6 @@ begin
isHooked := TRUE;
oldHook := false;
end
{$IFNDEF NO_WIN98}
else
begin
// load DLL
DLLhnd := LoadLibrary(PChar(DLLname));
if DLLhnd = 0 then
begin
loggaEvt('hook.dll: unable to load');
unload;
Exit;
end;
@hookOn := GetProcAddress(DLLhnd, 'hookOn');
@hookOff := GetProcAddress(DLLhnd, 'hookOff');
@hookVer := GetProcAddress(DLLhnd, 'hookVer');
if not assigned(hookOn) or not assigned(hookOff) or not assigned(hookVer) or (TintFun(hookVer) <> HOOK_VER) then
begin
loggaEvt('hook.dll: wrong version');
unload;
Exit;
end;
// open mapped file
fileHnd := OpenFileMapping(FILE_MAP_WRITE, false, mapfile);
if fileHnd = 0 then
begin
if TintFun(hookOn) <> 0 then
begin
loggaEvt('hook.dll: unable to init');
unload;
Exit;
end;
fileHnd := OpenFileMapping(FILE_MAP_WRITE, false, mapfile);
if fileHnd = 0 then
begin
loggaEvt('hook.dll: unable to communicate');
unload;
Exit;
end;
end;
shared := MapViewOfFile(fileHnd, FILE_MAP_WRITE, 0, 0, 0);
if shared = NIL then
loggaEvt('hook.dll: unable to communicate(2)')
else if (shared^.sign <> '&RQ') or (shared^.ver <> HOOK_VER) then
loggaEvt('hook.dll: wrong version')
else
begin
loggaEvt('hook.dll: on');
inc(shared^.runs);
oldHook := TRUE;
isHooked := TRUE;
Exit;
end;
unload;
end;
{$ENDIF NO_WIN98}
end; // installHook
procedure uninstallHook;
@ -208,17 +102,9 @@ begin
UnRegisterSessionNotification(SessNotifHndl);
SessNotifHndl := 0;
isHooked := false;
{$IFNDEF NO_WIN98}
if oldHook then
begin
dec(shared^.runs);
loggaEvt('hook.dll: off');
unload;
end;
{$ENDIF WIN98}
end; // uninstallHook
// function isHooked:boolean; {$IFDEF DELPHI_9_UP} inline; {$ENDIF DELPHI_9_UP}
// function isHooked:boolean; inline;
// begin result:=hooked end;
//
@ -232,26 +118,8 @@ begin
end;
function isMoved: Boolean;
{$IFNDEF NO_WIN98}
var
pt: Tpoint;
{$ENDIF NO_WIN98}
begin
Result := false;
{$IFNDEF NO_WIN98}
if oldHook then
begin
pt := mousePos;
// track mouse activity
if (pt.x <> lastMousePos.x) or (pt.y <> lastMousePos.y) or (shared^.keyMoved <> lastKeybPos) then
begin
lastMousePos := pt;
lastKeybPos := shared^.keyMoved;
Result := TRUE;
end;
end
else
{$ENDIF WIN98}
if (LastInput + 5 < autoaway.time) then
Result := TRUE;
end;
@ -344,10 +212,4 @@ begin
isHooked := false;
SessNotifHndl := 0;
FRegisteredSessionNotification := false;
{$IFNDEF NO_WIN98}
shared := NIL;
DLLhnd := 0;
fileHnd := 0;
{$ENDIF WIN98}
end.

5
RnQ/iniLib.pas

@ -3,7 +3,6 @@
Under same license
}
unit iniLib;
{$I Compilers.inc}
{$I RnQConfig.inc}
{$WARN SYMBOL_PLATFORM OFF}
@ -2428,10 +2427,6 @@ begin
applyTransparency;
for i := 0 to screen.FormCount - 1 do
applyCommonSettings(screen.forms[i]);
{$IFNDEF NO_WIN98}
if not isHooked then
msgDlg('Error loading HOOK.DLL\nSome features won''t work', True, mtWarning);
{$ENDIF NO_WIN98}
SoundInit;
// ShowHintsInChat2 := True;
end; // afterWindowsCreation

2
RnQ/langLib.pas

@ -37,7 +37,7 @@ uses
RnQButtons, RQUtil, RQLog, RDGlobal, Types, VirtualTrees,
stdctrls, ExtCtrls, menus, controls, sysUtils;
function trans(const s: string): string; {$IFDEF DELPHI_9_UP} inline; {$ENDIF DELPHI_9_UP}
function trans(const s: string): string; inline;
begin
{ if AnsiStartsStr('___',s) then
result:=getTranslation(copy(s,4,9999))

1
RnQ/lockDlg.pas

@ -18,7 +18,6 @@
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit lockDlg;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

1
RnQ/outboxDlg.pas

@ -18,7 +18,6 @@
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit outboxDlg;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface

3
RnQ/pluginLib.pas

@ -2,15 +2,12 @@
This file is part of R&Q.
Under same license
}
{$I Compilers.inc}
{$I RnQConfig.inc}
unit pluginLib;
{$IFDEF COMPILER_12_UP}
{$WARN IMPLICIT_STRING_CAST OFF}
{$WARN IMPLICIT_STRING_CAST_LOSS OFF}
{$WARN SUSPICIOUS_TYPECAST ERROR}
{$ENDIF}
interface

39
RnQ/prefDlg.pas

@ -3,7 +3,6 @@
Under same license
}
unit prefDlg;
{$I Compilers.inc}
{$I RnQConfig.inc}
interface
@ -137,39 +136,20 @@ end;
procedure TprefFrm.reset;
var
{$IFDEF DELPHI_9_UP}
pp: TPrefPage;
{$ELSE DELPHI_9_UP}
i: byte;
{$ENDIF DELPHI_9_UP}
begin
SetBtnEnable(False);
try
{$IFDEF DELPHI_9_UP}
for pp in arrPages do
if Assigned(pp.frame) then
{$ELSE DELPHI_9_UP}
for i := 0 to Length(arrPages) - 1 do
if Assigned(arrPages[i].frame) then
{$ENDIF DELPHI_9_UP}
try
{$IFDEF DELPHI_9_UP}
pp.frame.resetPage;
pp.frame.updateVisPage;
{$ELSE DELPHI_9_UP}
arrPages[i].frame.resetPage;
arrPages[i].frame.updateVisPage;
{$ENDIF DELPHI_9_UP}
Application.ProcessMessages;
except
msgDlg(getTranslation('Error on reset page') + ' "' +
{$IFDEF DELPHI_9_UP}
getTranslation(pp.Caption) + '"!', False, mtError);
{$ELSE DELPHI_9_UP}
getTranslation(arrPages[i].Caption) + '"!', mtError)
;
{$ENDIF DELPHI_9_UP}
end;
finally
SetBtnEnable(True);
@ -178,38 +158,19 @@ end; // reset
procedure TprefFrm.apply;
var
{$IFDEF DELPHI_9_UP}
pp: TPrefPage;
{$ELSE DELPHI_9_UP}
i: byte;
{$ENDIF DELPHI_9_UP}
begin
SetBtnEnable(False);
try
{$IFDEF DELPHI_9_UP}
for pp in arrPages do
if Assigned(pp) then
if Assigned(pp.frame) then
{$ELSE DELPHI_9_UP}
for i := 0 to Length(arrPages) - 1 do
if Assigned(arrPages[i]) then
if Assigned(arrPages[i].frame) then
{$ENDIF DELPHI_9_UP}
try
{$IFDEF DELPHI_9_UP}
pp.frame.applyPage;
{$ELSE DELPHI_9_UP}
arrPages[i].frame.applyPage;
{$ENDIF DELPHI_9_UP}
Application.ProcessMessages;
except
msgDlg(getTranslation('Error on apply page') + ' "' +
{$IFDEF DELPHI_9_UP}
getTranslation(pp.Caption) + '"!', False, mtError);
{$ELSE DELPHI_9_UP}
getTranslation(arrPages[i].Caption) + '"!', mtError)
;
{$ENDIF DELPHI_9_UP}
end;
// repaintAllWindows;

1
RnQ/pwdDlg.pas

@ -18,7 +18,6 @@
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
unit pwdDlg;
{$I Compilers.inc}
{$I RnQConfig.inc}
{ $DEFINE USE_TKB }

24
RnQ/utilLib.pas

@ -172,8 +172,7 @@ procedure applyDocking(Undock: Boolean = False);
function whatStatusPanel(statusbar: Tstatusbar; x: integer): integer;
// graphic
procedure wallpaperize(canvas: Tcanvas); overload;
procedure wallpaperize(DC: THandle; r: Trect); {$IFDEF DELPHI_9_UP} inline;
{$ENDIF DELPHI_9_UP} overload;
procedure wallpaperize(DC: THandle; r: Trect); inline; overload;
// file management
function delSUBtree(subPath: string): Boolean;
function deltree(path: string): Boolean;
@ -1491,13 +1490,7 @@ begin
r.Top := 0;
r.Right := w;
r.Bottom := h;
{$IFDEF DELPHI_9_UP}
bmp.SetSize(w, h);
{$ELSE DELPHI_9_UP}
bmp.Height := 0;
bmp.Width := w;
bmp.Height := h;
{$ENDIF DELPHI_9_UP}
pic.Render(bmp.canvas.Handle, 0, 0, w, h, 0, b, a, -b, r);
pic := NIL;
@ -3846,15 +3839,13 @@ begin
end;
end; // setRosterAnimation
procedure wallpaperize(canvas: Tcanvas); {$IFDEF DELPHI_9_UP} inline;
{$ENDIF DELPHI_9_UP}
procedure wallpaperize(canvas: Tcanvas); inline;
begin
if texturizedWindows then
theme.Draw_wallpaper(canvas.Handle, canvas.ClipRect);
end; // wallpaperize
procedure wallpaperize(DC: THandle; r: Trect); {$IFDEF DELPHI_9_UP} inline;
{$ENDIF DELPHI_9_UP}
procedure wallpaperize(DC: THandle; r: Trect); inline;
begin
if texturizedWindows then
theme.Draw_wallpaper(DC, r);
@ -4367,8 +4358,7 @@ begin
result := (pluginReply > '') and (byte(pluginReply[1]) = PM_ABORT)
end;
procedure unroundWindow(hnd: THandle); {$IFDEF DELPHI_9_UP} inline;
{$ENDIF DELPHI_9_UP}
procedure unroundWindow(hnd: THandle); inline;
begin
SetWindowRgn(hnd, 0, True)
end;
@ -4401,9 +4391,7 @@ var
rr.Bottom := y; // + 100;
s := dupAmperstand(s);
// rr.Right := r.Left + 10;
{$IFDEF DELPHI_9_UP}
cnv.TextRect(rr, s, [tfCalcRect, tfBottom, tfLeft, tfWordBreak, tfEndEllipsis, tfEditControl]);
{$ENDIF DELPHI_9_UP}
xdy := rr.Bottom - rr.Top;
// if rr.Right > maxWidth then
begin
@ -4413,13 +4401,9 @@ var
// rr.Bottom := y + 100;
inc(rr.Right, 2);
if calcOnly then
{$IFDEF DELPHI_9_UP}
// cnv.TextRect(rr, s, [tfBottom, tfLeft, tfWordBreak, tfEndEllipsis, tfEditControl, tfCalcRect])
{$ENDIF DELPHI_9_UP}
else
{$IFDEF DELPHI_9_UP}
cnv.TextRect(rr, s, [tfBottom, tfLeft, tfWordBreak, tfEndEllipsis, tfEditControl]);
{$ENDIF DELPHI_9_UP}
// xdy := rr.Bottom - rr.Top;
x := rr.Right;
end;

730
for.RnQ/Compilers.inc

@ -1,730 +0,0 @@
//----------------------------------------------------------------------------------------------------------------------
// Include file to determine which compiler is currently being used to build the project/component.
// This file uses ideas from Brad Stowers DFS.inc file.
//
// Portions created by Mike Lischke are
// Copyright (C) 1999, 2008 Mike Lischke. All Rights Reserved.
// Portions created by Jim Kueneman are
// Copyright (C) 2005, 2008 Jim Kueneman. All Rights Reserved.
//
//----------------------------------------------------------------------------------------------------------------------
//
// This unit is released under the MIT license:
// Copyright (c) 1999, 2008 Mike Lischke (support@soft-gems.net, www.soft-gems.net).
//
// Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated
// documentation files (the "Software"), to deal in the Software without restriction, including without limitation the
// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
// permit persons to whom the Software is furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in all copies or substantial portions of the
// Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
// WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS
// OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
// OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
//
// You are asked to give the author(s) the due credit. This means that you acknowledge the work of the author(s)
// in the product documentation, about box, help or wherever a prominent place is.
//
//----------------------------------------------------------------------------------------------------------------------
//
// The following symbols are defined:
//
// - COMPILER_1 : Kylix/Delphi/BCB 1.x is the compiler.
// - COMPILER_1_UP : Kylix/Delphi/BCB 1.x or higher is the compiler.
// - COMPILER_2 : Kylix/Delphi 2.x or BCB 1.x is the compiler.
// - COMPILER_2_UP : Kylix/Delphi 2.x or higher, or BCB 1.x or higher is the compiler.
// - COMPILER_3 : Kylix/Delphi/BCB 3.x is the compiler.
// - COMPILER_3_UP : Kylix/Delphi/BCB 3.x or higher is the compiler.
// - COMPILER_4 : Kylix/Delphi/BCB 4.x is the compiler.
// - COMPILER_4_UP : Kylix/Delphi/BCB 4.x or higher is the compiler.
// - COMPILER_5 : Kylix/Delphi/BCB 5.x is the compiler.
// - COMPILER_5_UP : Kylix/Delphi/BCB 5.x or higher is the compiler.
// - COMPILER_6 : Kylix/Delphi/BCB 6.x is the compiler.
// - COMPILER_6_UP : Kylix/Delphi/BCB 6.x or higher is the compiler.
// - COMPILER_7 : Kylix/Delphi/BCB 7.x is the compiler.
// - COMPILER_7_UP : Kylix/Delphi/BCB 7.x or higher is the compiler.
// - COMPILER_8 : Kylix/Delphi/BCB 8.x is the compiler.
// - COMPILER_8_UP : Kylix/Delphi/BCB 8.x or higher is the compiler.
// - COMPILER_9 : Kylix/Delphi/BCB 9.x is the compiler.
// - COMPILER_9_UP : Kylix/Delphi/BCB 9.x or higher is the compiler.
// - COMPILER_10 : Kylix/Delphi/BCB 10.x is the compiler.
// - COMPILER_10_UP : Kylix/Delphi/BCB 10.x or higher is the compiler.
// - COMPILER_11 : Kylix/Delphi/BCB 11.x is the compiler.
// - COMPILER_11_UP : Kylix/Delphi/BCB 11.x or higher is the compiler.
// - COMPILER_12 : Kylix/Delphi/BCB 12.x is the compiler.
// - COMPILER_12_UP : Kylix/Delphi/BCB 12.x or higher is the compiler.
// - COMPILER_14 : Kylix/Delphi/BCB 14.x is the compiler.
// - COMPILER_14_UP : Kylix/Delphi/BCB 14.x or higher is the compiler.
// - COMPILER_15 : Kylix/Delphi/BCB 15.x is the compiler.
// - COMPILER_15_UP : Kylix/Delphi/BCB 15.x or higher is the compiler.
//
// Only defined if Windows is the target:
// - CPPB : Any version of BCB is being used.
// - CPPB_1 : BCB v1.x is being used.
// - CPPB_3 : BCB v3.x is being used.
// - CPPB_3_UP : BCB v3.x or higher is being used.
// - CPPB_4 : BCB v4.x is being used.
// - CPPB_4_UP : BCB v4.x or higher is being used.
// - CPPB_5 : BCB v5.x is being used.
// - CPPB_5_UP : BCB v5.x or higher is being used.
// - CPPB_6 : BCB v6.x is being used.
// - CPPB_6_UP : BCB v6.x or higher is being used.
// - CPPB_XXX is not used any more, use the COMPILER_XXX defines
//
// Only defined if Windows is the target:
// - DELPHI : Any version of Delphi is being used.
// - DELPHI_1 : Delphi v1.x is being used.
// - DELPHI_2 : Delphi v2.x is being used.
// - DELPHI_2_UP : Delphi v2.x or higher is being used.
// - DELPHI_3 : Delphi v3.x is being used.
// - DELPHI_3_UP : Delphi v3.x or higher is being used.
// - DELPHI_4 : Delphi v4.x is being used.
// - DELPHI_4_UP : Delphi v4.x or higher is being used.
// - DELPHI_5 : Delphi v5.x is being used.
// - DELPHI_5_UP : Delphi v5.x or higher is being used.
// - DELPHI_6 : Delphi v6.x is being used.
// - DELPHI_6_UP : Delphi v6.x or higher is being used.
// - DELPHI_7 : Delphi v7.x is being used.
// - DELPHI_7_UP : Delphi v7.x or higher is being used.
// - DELPHI_8 : Delphi v8.x is being used.
// - DELPHI_8_UP : Delphi v8.x or higher is being used.
// - DELPHI_9 : Delphi v9.x is being used.
// - DELPHI_9_UP : Delphi v9.x or higher is being used.
// - DELPHI_XXX is not used any more, use the COMPILER_XXX defines
//
// Only defined if Linux is the target:
// - KYLIX : Any version of Kylix is being used.
// - KYLIX_1 : Kylix 1.x is being used.
// - KYLIX_1_UP : Kylix 1.x or higher is being used.
// - KYLIX_2 : Kylix 2.x is being used.
// - KYLIX_2_UP : Kylix 2.x or higher is being used.
// - KYLIX_3 : Kylix 3.x is being used.
// - KYLIX_3_UP : Kylix 3.x or higher is being used.
//
// Only defined if Linux is the target:
// - QT_CLX : Trolltech's QT library is being used.
//
// Only defined if Delphi.NET is the target:
// - DELPHI.NET : Any version of Delphi.NET is being used.
// - DELPHI.NET_1 : Delphi.NET version 1.x is being used.
// - DELPHI.NET_1_UP : Delphi.NET version 1.x is being used.
//----------------------------------------------------------------------------------------------------------------------
{$ifdef CLR} // The common language runtime symbol is only defined for the .NET platform.
{$define DELPHI.NET}
{$ifdef VER160}
{$define DELPHI.NET_1}
{$endif VER160}
// Compiler defines common to all .NET versions.
{$ifdef DELPHI.NET_1}
{$define DELHI.NET_1_UP}
{$endif DELPHI.NET_1}
{$endif CLR}
{$ifdef Win32}
// Compiler defines not specific to a particlular platform.
// Delphi XE5 / 19
{$ifdef VER260}
{$define COMPILER_16}
{$define COMPILER_15}
{$endif VER260}
// Delphi XE4 / 18
{$ifdef VER250}
{$define COMPILER_16}
{$define COMPILER_15}
{$endif VER250}
// Delphi XE3 / 17
{$ifdef VER240}
{$define COMPILER_16}
{$define COMPILER_15}
{$endif VER240}
{$ifdef VER230}
{$define COMPILER_16}
{$define COMPILER_15}
{$endif VER230}
// RAD Studio XE (BDS 8.0) DELPHI and BCB are no longer defined, only COMPILER
{$ifdef VER220}
{$define COMPILER_15}
{$endif VER220}
// RAD Studio 2010 (BDS 7.0) DELPHI and BCB are no longer defined, only COMPILER
{$ifdef VER210}
{$define COMPILER_14}
{$endif VER210}
// RAD Studio 2009 (BDS 6.0) DELPHI and BCB are no longer defined, only COMPILER
{$ifdef VER200}
{$define COMPILER_12}
{$endif VER200}
// RAD Studio 2007 (BDS 5.0) DELPHI and BCB are no longer defined, only COMPILER
{$ifdef VER190}
{$define COMPILER_11}
{$endif VER190}
// DELPHI and BCB are no longer defined, only COMPILER
{$ifdef VER180}
{$define COMPILER_10}
{$endif VER180}
{$ifdef VER170}
{$define COMPILER_9}
{$define DELPHI}
{$define DELPHI_9}
{$endif VER170}
{$ifdef VER160}
{$define COMPILER_8}
{$define DELPHI}
{$define DELPHI_8}
{$endif VER160}
{$ifdef VER150}
{$define COMPILER_7}
{$define DELPHI}
{$define DELPHI_7}
{$endif}
{$ifdef VER140}
{$define COMPILER_6}
{$ifdef BCB}
{$define CPPB}
{$define CPPB_6}
{$else}
{$define DELPHI}
{$define DELPHI_6}
{$endif}
{$endif}
{$ifdef VER130}
{$define COMPILER_5}
{$ifdef BCB}
{$define CPPB}
{$define CPPB_5}
{$else}
{$define DELPHI}
{$define DELPHI_5}
{$endif}
{$endif}
{$ifdef VER125}
{$define COMPILER_4}
{$define CPPB}
{$define CPPB_4}
{$endif}
{$ifdef VER120}
{$define COMPILER_4}
{$define DELPHI}
{$define DELPHI_4}
{$endif}
{$ifdef VER110}
{$define COMPILER_3}
{$define CPPB}
{$define CPPB_3}
{$endif}
{$ifdef VER100}
{$define COMPILER_3}
{$define DELPHI}
{$define DELPHI_3}
{$endif}
{$ifdef VER93}
{$define COMPILER_2} // C++ Builder v1 compiler is really v2
{$define CPPB}
{$define CPPB_1}
{$endif}
{$ifdef VER90}
{$define COMPILER_2}
{$define DELPHI}
{$define DELPHI_2}
{$endif}
{$ifdef VER80}
{$define COMPILER_1}
{$define DELPHI}
{$define DELPHI_1}
{$endif}
{$ifdef DELPHI_2}
{$define DELPHI_2_UP}
{$endif}
{$ifdef DELPHI_3}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$endif}
{$ifdef DELPHI_4}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$endif}
{$ifdef DELPHI_5}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$endif}
{$ifdef DELPHI_6}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$endif}
{$ifdef DELPHI_7}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$define DELPHI_7_UP}
{$endif}
{$ifdef DELPHI_8}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$define DELPHI_7_UP}
{$define DELPHI_8_UP}
{$endif}
{$ifdef DELPHI_9}
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$define DELPHI_7_UP}
{$define DELPHI_8_UP}
{$define DELPHI_9_UP}
{$endif}
{$ifdef CPPB_3}
{$define CPPB_3_UP}
{$endif}
{$ifdef CPPB_4}
{$define CPPB_3_UP}
{$define CPPB_4_UP}
{$endif}
{$ifdef CPPB_5}
{$define CPPB_3_UP}
{$define CPPB_4_UP}
{$define CPPB_5_UP}
{$endif}
{$ifdef CPPB_6}
{$define CPPB_3_UP}
{$define CPPB_4_UP}
{$define CPPB_5_UP}
{$define CPPB_6_UP}
{$endif}
{$ifdef CPPB_3_UP}
// C++ Builder requires this if you use Delphi components in run-time packages.
{$ObjExportAll On}
{$endif}
{$else (not Windows)}
// Linux is the target
{$define QT_CLX}
{$define KYLIX}
{$ifdef VER140}
{$define COMPILER_6}
{$ifdef conditionalexpressions}
{$if Declared(RTLVersion) and (RTLVersion = 14)}
{$define KYLIX_1}
{$ifend}
{$if Declared(RTLVersion) and (RTLVersion = 14.2)}
{$define KYLIX_2}
{$ifend}
{$if Declared(RTLVersion) and (RTLVersion = 14.5)}
{$define KYLIX_3}
{$ifend}
{$endif}
{$endif}
{$ifdef VER150}
{$define COMPILER_7}
{$define KYLIX_3}
{$endif}
{$ifdef VER140}
{$define COMPILER_6}
{$define KYLIX_2}
{$endif}
{$ifdef KYLIX_1}
{$define KYLIX_1_UP}
{$endif}
{$ifdef KYLIX_2}
{$define KYLIX_2_UP}
{$endif}
{$ifdef KYLIX_3}
{$define KYLIX_2_UP}
{$define KYLIX_3_UP}
{$endif}
{$endif Win32}
{$ifdef COMPILER_1}
{$define COMPILER_1_UP}
{$endif}
{$ifdef COMPILER_2}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$endif}
{$ifdef COMPILER_3}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$endif}
{$ifdef COMPILER_4}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$endif}
{$ifdef COMPILER_5}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$endif}
{$ifdef COMPILER_6}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$endif}
{$ifdef COMPILER_7}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$define COMPILER_7_UP}
{$endif}
{$ifdef COMPILER_8}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$define COMPILER_7_UP}
{$define COMPILER_8_UP}
{$endif}
{$ifdef COMPILER_9}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$define COMPILER_7_UP}
{$define COMPILER_8_UP}
{$define COMPILER_9_UP}
{$endif}
{$ifdef COMPILER_10}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$define COMPILER_7_UP}
{$define COMPILER_8_UP}
{$define COMPILER_9_UP}
{$define COMPILER_10_UP}
// Backwards compatibility
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$define DELPHI_7_UP}
{$define DELPHI_8_UP}
{$define DELPHI_9_UP}
{$define CPPB_3_UP}
{$define CPPB_4_UP}
{$define CPPB_5_UP}
{$define CPPB_6_UP}
{$ifdef BCB}
{$define CPPB}
{$else}
{$define DELPHI}
{$endif}
{$endif}
{$ifdef COMPILER_11}
{$define COMPILER_1_UP}
{$define COMPILER_2_UP}
{$define COMPILER_3_UP}
{$define COMPILER_4_UP}
{$define COMPILER_5_UP}
{$define COMPILER_6_UP}
{$define COMPILER_7_UP}
{$define COMPILER_8_UP}
{$define COMPILER_9_UP}
{$define COMPILER_10_UP}
{$define COMPILER_11_UP}
// Backwards compatibility
{$define DELPHI_2_UP}
{$define DELPHI_3_UP}
{$define DELPHI_4_UP}
{$define DELPHI_5_UP}
{$define DELPHI_6_UP}
{$define DELPHI_7_UP}
{$define DELPHI_8_UP}
{$define DELPHI_9_UP}
{$define CPPB_3_UP}
{$define CPPB_4_UP}
{$define CPPB_5_UP}
{$define CPPB_6_UP}