You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
94 lines
1.8 KiB
Plaintext
94 lines
1.8 KiB
Plaintext
{
|
|
This file is part of R&Q.
|
|
Under same license
|
|
}
|
|
unit RnQGlobal;
|
|
{$I ForRnQConfig.inc}
|
|
|
|
{ $ DEFINE RNQ_PLAYER}
|
|
|
|
interface
|
|
uses
|
|
Forms, Classes, Messages, ExtCtrls, Types,
|
|
{$IFDEF RNQ_PLAYER}
|
|
BASSplayer,
|
|
{$ENDIF RNQ_PLAYER}
|
|
// fxRegistryFile,
|
|
// RQThemes,
|
|
// SXZipUtils,
|
|
Graphics;
|
|
|
|
{$I NoRTTI.inc}
|
|
|
|
const
|
|
eventslogFilename='events.log';
|
|
defaultThemePrefix='RQ.';
|
|
defaultThemePostfix='theme.ini';
|
|
// paths
|
|
themesPath='themes\';
|
|
pluginsPath='plugins\';
|
|
|
|
maxPICAVTW = 200;
|
|
maxPICAVTH = 200;
|
|
maxSWFAVTW = 100;
|
|
maxSWFAVTH = 100;
|
|
|
|
|
|
|
|
var
|
|
timeformat :record chat,info,clock,log,automsg:string; end;
|
|
logpref :record
|
|
pkts, evts :record
|
|
onFile,onWindow,clear:boolean;
|
|
end;
|
|
writehistory :boolean;
|
|
end;
|
|
|
|
|
|
var
|
|
myPath : String;
|
|
logPath : String;
|
|
RnQUser : String;
|
|
RnQMainPath : String;
|
|
// rqSmiles : TRQTheme;
|
|
ShowSmileCaption,
|
|
EnableImgLinksIn,
|
|
EnableImgLinksOut,
|
|
LimitMaxChatImgWidth,
|
|
LimitMaxChatImgHeight,
|
|
EnableStickers,
|
|
EnableStickersCache,
|
|
MenuHeightPerm,
|
|
MenuDrawExt,
|
|
bringInfoFrgd,
|
|
// MakeBakups,
|
|
{$IFDEF LANGDEBUG}
|
|
lang_debug,
|
|
{$ENDIF LANGDEBUG}
|
|
disableSounds,
|
|
playSounds,
|
|
showBalloons : Boolean;
|
|
MaxChatImgWidthVal, MaxChatImgHeightVal, StickerResolution: Integer;
|
|
audioPresent : Boolean = false;
|
|
picDrawFirstLtr : Boolean = false;
|
|
TranslitList : TStringList;
|
|
SoundVolume : Integer;
|
|
TextBGColor : TColor;
|
|
ResamplingFilter : Integer;
|
|
ServerToUpload : Integer;
|
|
JPEGTurbo : Boolean = False;
|
|
|
|
var
|
|
{$IFDEF RNQ_PLAYER}
|
|
RnQbPlayer : TBASSplayer;
|
|
{$ELSE RNQ_PLAYER}
|
|
Soundhndl : THandle;
|
|
{$ENDIF RNQ_PLAYER}
|
|
|
|
implementation
|
|
uses
|
|
Windows, Controls;
|
|
|
|
|
|
end.
|