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.
438 lines
13 KiB
Plaintext
438 lines
13 KiB
Plaintext
{
|
|
This file is part of R&Q.
|
|
Under same license
|
|
}
|
|
unit mainDlg;
|
|
{$I RnQConfig.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, System.Classes, System.SysUtils, System.DateUtils, Vcl.ExtCtrls;
|
|
|
|
{$I NoRTTI.inc}
|
|
|
|
type
|
|
// procedure AddContactsAction(Sender: TObject);
|
|
// procedure SendContactsAction(Sender: TObject);
|
|
|
|
// function AddMainMenuItem(wPar: WPARAM; lPar: LPARAM): Integer; cdecl;
|
|
//function AddContactMenuItem(pMI: PCLISTMENUITEM): Integer; // cdecl;
|
|
{ function AddContactMenuItem(pPluginProc : Pointer; menuIcon: hIcon; menuCaption:String;
|
|
menuHint:string; //procIdx : Integer;
|
|
position : Integer;
|
|
PopupName : String; popupPosition : Integer;
|
|
hotKey : DWORD; PicName : String = ''):integer; }
|
|
// function UpdateContactMenuItem(menuHandle: hmenu; pMI : PCLISTMENUITEM): Integer;// cdecl;
|
|
// procedure UpdateContactMenuItem(menuHandle: hmenu; pMI: PCLISTMENUITEM); // cdecl;
|
|
// procedure DelContactMenuItem(menuHandle: hmenu);
|
|
// procedure OnPluginMenuClick(Sender: TObject);
|
|
|
|
TTimerClass = class
|
|
public
|
|
procedure OnBlinkTimer(Sender: TObject);
|
|
procedure OnTimer(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
TimerClass: TTimerClass;
|
|
MainTimer: TTimer;
|
|
LastMonCnt: Integer;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Math, SciterLib, GlobalLib, OutboxLib, IniLib, RoasterLib, UtilLib,
|
|
RDUtils, RQUtil, RnQSysUtils, RnQGraphics32, RnQ_Avatars, RnQTrayLib, RnQNet, RQlog, Events, Nodes, Hook,
|
|
ICQCommon, ICQSession, ICQConsts, ICQContacts, viewinfoDlg, outboxDlg, RnQdbDlg, HiddenForm;
|
|
|
|
//procedure TRnQmain.SendContactsAction(Sender: TObject);
|
|
//var
|
|
// // i:integer;
|
|
// // s : String;
|
|
// s: RawByteString;
|
|
// cnt: TICQContact;
|
|
// wnd: TselectCntsFrm;
|
|
// cl: TRnQCList;
|
|
//begin
|
|
// wnd := (Sender as Tcontrol).parent as TselectCntsFrm;
|
|
// cl := wnd.selectedList;
|
|
// if not cl.empty then
|
|
// begin
|
|
// s := (wnd.extra as Tincapsulate).str;
|
|
// if s > '' then
|
|
// begin
|
|
// // cnt := contactsDB.get(TICQContact, s);
|
|
// cnt := wnd.proto.getContact(s);
|
|
// begin
|
|
// Account.outbox.add(OE_CONTACTS, cnt, 0, cl);
|
|
// if Assigned(outboxFrm) then
|
|
// outboxFrm.updateList;
|
|
// end;
|
|
// end;
|
|
// end;
|
|
// cl.free;
|
|
// wnd.extra.free;
|
|
// wnd.close;
|
|
//end;
|
|
|
|
procedure TTimerClass.OnTimer(Sender: TObject);
|
|
var
|
|
IsSSRuning: BOOL;
|
|
Minutes: Integer;
|
|
Contact: TICQContact;
|
|
ContactArr: TArray |
|
begin
|
|
if not Running or not Assigned(Account.AccProto) or (UserStartTime = 0) then
|
|
Exit;
|
|
|
|
if EventQ.Count > 0 then
|
|
EventQ.RemoveExpiredEvents;
|
|
|
|
if NoIncomingCounter > 0 then
|
|
Dec(NoIncomingCounter);
|
|
|
|
if ShowBalloonTime > 0 then
|
|
begin
|
|
Dec(ShowBalloonTime);
|
|
if ShowBalloonTime <= 0 then
|
|
StatusIcon.HideBalloon;
|
|
end;
|
|
|
|
Inc(InactiveTime, 10);
|
|
|
|
{ autohide triggers if
|
|
{ - it is enabled
|
|
{ - time set has passed
|
|
{ - the windows is visible
|
|
{ - the mouse is not over the window }
|
|
if InactiveHide and (InactiveTime >= InactiveHideTime) and UI.CL.Visible and not into(MousePos, UI.CL.GetBounds) then
|
|
UI.CL.ToggleVisible;
|
|
|
|
if InactiveTrim and (InactiveTime mod 36000 = 0) then
|
|
TrimWorkingSet;
|
|
|
|
// auto-away (isHooked is needed for keyboard handling)
|
|
if IsHooked and Account.AccProto.IsOnline then
|
|
begin
|
|
// SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, @IsSSActive, 0);
|
|
SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @IsSSRuning, 0);
|
|
Inc(autoaway.time, 5); // we are in delay-block then 0.5s
|
|
if IsMoved and not (autoaway.ss and (IsSSRuning or IsLocked)) and not (autoaway.boss and BossMode.isBossKeyOn) then
|
|
begin
|
|
autoaway.time := 0;
|
|
if (autoaway.autoexit) and (autoaway.triggered <> TR_NONE) then
|
|
ExitFromAutoaway;
|
|
end else if (autoaway.triggered = TR_NONE) and not (Account.AccProto.GetStatus in [Byte(SC_AWAY), Byte(SC_NA)]) or
|
|
(autoaway.triggered <> TR_NONE) then
|
|
begin
|
|
if autoaway.away and (autoaway.time >= autoaway.awayTime) and (autoaway.triggered = TR_NONE) then
|
|
begin
|
|
if autoaway.setxstatus then
|
|
begin
|
|
autoaway.bakxstatus := Account.AccProto.GetXStatus;
|
|
Account.AccProto.CurXStatus := autoaway.xstatus;
|
|
end;
|
|
autoaway.bakstatus := Account.AccProto.SetStatus(Byte(SC_AWAY), True);
|
|
autoaway.triggered := TR_AWAY; // has to be set AFTER setstatus
|
|
end;
|
|
if (autoaway.na and (autoaway.time >= autoaway.naTime) and (autoaway.triggered <> TR_NA)) or
|
|
(autoaway.ss and (isSSRuning or isLocked)) or (autoaway.boss and BossMode.isBossKeyOn) then
|
|
begin
|
|
if autoaway.triggered = TR_NONE then
|
|
begin
|
|
if autoaway.setxstatus then
|
|
begin
|
|
autoaway.bakxstatus := Account.AccProto.GetXStatus;
|
|
Account.AccProto.CurXStatus := autoaway.xstatus;
|
|
end;
|
|
autoaway.bakstatus := Account.AccProto.SetStatus(Byte(SC_NA), True);
|
|
end else
|
|
Account.AccProto.SetStatus(Byte(SC_NA));
|
|
autoaway.triggered := TR_NA; // has to be set AFTER setstatus
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
CheckTopMost;
|
|
|
|
if Assigned(UI) and Assigned(UI.Chat) then
|
|
UI.Chat.Chats.CheckTypingTimeAll;
|
|
|
|
// Every minute
|
|
if SecondsCount >= 60 then
|
|
begin
|
|
SecondsCount := 0;
|
|
|
|
CheckAutoconnect;
|
|
|
|
if Trunc(Now) - Trunc(LastMinuteCheck) = 1 then // Once after each midnight
|
|
begin
|
|
if Assigned(Account.AccProto) then
|
|
Account.AccProto.ApplyBalloon;
|
|
CheckBDays;
|
|
end;
|
|
LastMinuteCheck := Now;
|
|
|
|
//if Assigned(StatusIcon) and Assigned(StatusIcon.TrayIcon) then
|
|
// StatusIcon.TrayIcon.Update;
|
|
|
|
if EnableRecentlyOffline and Assigned(UI) and Assigned(UI.CL) then
|
|
begin
|
|
ContactArr := UI.CL.GetContacts(d_recent);
|
|
if Length(ContactArr) > 0 then
|
|
for Contact in ContactArr do
|
|
if Assigned(Contact) then
|
|
if not Contact.IsRecent then
|
|
roasterLib.Update(Contact);
|
|
SetLength(ContactArr, 0);
|
|
end;
|
|
|
|
// Check for updates every 24 hours
|
|
if CheckUpdate.Enabled and (Now - CheckUpdate.Last > CheckUpdate.Every) and not CheckUpdate.Checking and not StartingLock then
|
|
Check4Update;
|
|
|
|
// Resubscribe to xstatus changes
|
|
// Actively update only for the first hour when idle
|
|
if InactiveTime < 36000 then
|
|
Account.AccProto.CheckEventSubscribe;
|
|
|
|
// Full account save every 15 minutes
|
|
Minutes := MinutesBetween(Now, LastAccountSave);
|
|
if Minutes > 15 then
|
|
begin
|
|
SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @IsSSRuning, 0);
|
|
if (IsSSRuning or IsLocked) or not IsMoved(4*10*60) or BossMode.isBossKeyOn then
|
|
begin
|
|
// Extend to 1 hour during idle
|
|
if Minutes > 60 then
|
|
SaveAccountAsync;
|
|
end else
|
|
SaveAccountAsync;
|
|
end;
|
|
end;
|
|
|
|
Inc(SecondsCount);
|
|
end;
|
|
|
|
procedure TTimerClass.OnBlinkTimer(Sender: TObject);
|
|
begin
|
|
if not Running or not Assigned(Account.AccProto) or (UserStartTime = 0) then
|
|
Exit;
|
|
Blinking := not Blinking;
|
|
if Assigned(StatusIcon) then
|
|
StatusIcon.Update;
|
|
end;
|
|
|
|
//// Mute
|
|
//// Exec
|
|
// if Assigned(Account.AccProto) and Assigned(clickedContact) then
|
|
// Account.AccProto.SetMuted(clickedContact, not clickedContact.IsMuted);
|
|
//
|
|
//// Update
|
|
// TAction(Sender).Visible := False; Exit; // Unused
|
|
//
|
|
// if not Assigned(clickedContact) then
|
|
// Exit;
|
|
//
|
|
// TAction(Sender).Visible := not (clickedContact.UID2Cmp = spamsFilename);
|
|
// TAction(Sender).Enabled := Account.AccProto.IsOnline;
|
|
//
|
|
// if clickedContact.IsMuted then
|
|
// begin
|
|
// TAction(Sender).HelpKeyword := 'unmuted';
|
|
// TAction(Sender).Caption := GetTranslation('Unmute');
|
|
// end
|
|
// else
|
|
// begin
|
|
// TAction(Sender).HelpKeyword := 'muted';
|
|
// TAction(Sender).Caption := GetTranslation('Mute');
|
|
// end;
|
|
|
|
// if OnlFeature(Account.AccProto) then
|
|
// Account.AccProto.RemoveMeFromHisCL(clickedContact.uid)
|
|
|
|
// TODO: Plugin menu items
|
|
// function TRnQmain.AddMainMenuItem(wPar: WPARAM; lPar: LPARAM): Integer; cdecl;
|
|
//function TRnQmain.AddContactMenuItem(pMI: PCLISTMENUITEM): Integer; // cdecl;
|
|
//{ function TRnQmain.AddContactMenuItem(pPluginProc : Pointer; menuIcon: hIcon; menuCaption:String;
|
|
// menuHint:string; //procIdx : Integer;
|
|
// position : Integer;
|
|
// PopupName : String; popupPosition : Integer;
|
|
// hotKey : DWORD; PicName : String = ''):integer; }
|
|
//var
|
|
// // clMI : TCLISTMENUITEM;
|
|
// str, Str1: String;
|
|
// i: Integer;
|
|
// MI: TRQMenuItem;
|
|
// PM: TRQMenuItem;
|
|
// MM: TMenuItem;
|
|
// // Ic : TIcon;
|
|
// // bmp : TBitmap;
|
|
//begin
|
|
// // Str :=String(wPar);
|
|
// // clMI := PCLISTMENUITEM(lPar)^;
|
|
// if pMI.cbSize <> sizeof(TCLISTMENUITEM) then
|
|
// begin
|
|
// Result := 0;
|
|
// Exit;
|
|
// end;
|
|
// // Str := pMI.pszName;
|
|
// MI := TRQMenuItem.Create(Self);
|
|
// MI.caption := UnUTF(pMI.pszName);
|
|
// MI.Hint := UnUTF(pMI.pszHint);
|
|
// if (pMI.hIcon <> 0) then
|
|
// begin
|
|
// ico2bmp2(pMI.hIcon, MI.Bitmap);
|
|
// end;
|
|
// // MI.ServiceName := clMI.pszService;
|
|
// MI.PluginProc := pMI.Proc;
|
|
// // MI.Plugin := pPlugin;
|
|
// // MI.ProcIdx := procIdx;
|
|
// if pMI.Proc = NIL then
|
|
// MI.OnClick := NIL
|
|
// else
|
|
// MI.OnClick := OnPluginMenuClick;
|
|
// MI.ImageName := pMI.pszPic;
|
|
// MI.Enabled := (pMI.flags and RQFM_DISABLED) = 0;
|
|
// MI.visible := (pMI.flags and RQFM_HIDDEN) = 0;
|
|
// MM := contactMenu.Items;
|
|
// str := UnUTF(pMI.pszPopupName);
|
|
// if str <> '' then
|
|
// begin
|
|
// Str1 := str;
|
|
// while str > '' do
|
|
// begin
|
|
// i := pos('\', str);
|
|
// if i = 0 then
|
|
// i := length(str) + 1;
|
|
// Str1 := copy(str, 1, i - 1);
|
|
// delete(str, 1, i + length('\') - 1);
|
|
// if Assigned(MM.Find(Str1)) then
|
|
// MM := TMenuItem(MM.Find(Str1))
|
|
// else
|
|
// begin
|
|
// PM := TRQMenuItem.Create(contactMenu);
|
|
// PM.caption := Str1;
|
|
// MM.add(PM);
|
|
// MM := PM;
|
|
// // PM.Add(MI);
|
|
// end;
|
|
// end;
|
|
// end;
|
|
// // else
|
|
// // contactMenu.Items.Insert(12, MI);
|
|
// MM.add(MI);
|
|
// Result := MI.Handle;
|
|
//end;
|
|
//
|
|
//// function TRnQmain.UpdateContactMenuItem(menuHandle: hmenu; pMI : PCLISTMENUITEM ): Integer;// cdecl;
|
|
//Procedure TRnQmain.UpdateContactMenuItem(menuHandle: hmenu; pMI: PCLISTMENUITEM); // cdecl;
|
|
// function findItem(item: TMenuItem): TMenuItem;
|
|
// var
|
|
// i: Integer;
|
|
// begin
|
|
// Result := NIL;
|
|
// if item.Handle = menuHandle then
|
|
// Result := item
|
|
// else if item.Count > 0 then
|
|
// for i := 0 to item.Count - 1 do
|
|
// begin
|
|
// // if item.Items[i].Count > 0 then
|
|
// Result := findItem(item.Items[i]);
|
|
// if Result <> NIL then
|
|
// break;
|
|
// end;
|
|
// end;
|
|
//
|
|
//var
|
|
// MI: TMenuItem;
|
|
//begin
|
|
// MI := findItem(contactMenu.Items);
|
|
// if MI <> NIL then
|
|
// begin
|
|
// if (pMI.flags and RQFM_UPD_CAPTION) > 0 then
|
|
// MI.caption := UnUTF(pMI.pszName);
|
|
// if (pMI.flags and RQFM_UPD_HINT) > 0 then
|
|
// MI.Hint := UnUTF(pMI.pszHint);
|
|
// if (pMI.flags and RQFM_UPD_ENABLE) > 0 then
|
|
// MI.Enabled := (pMI.flags and RQFM_DISABLED) = 0;
|
|
// if (pMI.flags and RQFM_UPD_VISIBLE) > 0 then
|
|
// MI.visible := (pMI.flags and RQFM_HIDDEN) = 0;
|
|
// if (pMI.flags and RQFM_UPD_ICON) > 0 then
|
|
// if (pMI.hIcon <> 0) then
|
|
// ico2bmp2(pMI.hIcon, MI.Bitmap)
|
|
// else
|
|
// begin
|
|
// MI.Bitmap := NIL; // .Empty := True;
|
|
// end;
|
|
// end;
|
|
// // Result := mi
|
|
//end;
|
|
//
|
|
//procedure TRnQmain.DelContactMenuItem(menuHandle: hmenu);
|
|
// function findItem(item: TMenuItem): TMenuItem;
|
|
// var
|
|
// i: Integer;
|
|
// begin
|
|
// Result := NIL;
|
|
// if item.Handle = menuHandle then
|
|
// Result := item
|
|
// else if item.Count > 0 then
|
|
// for i := 0 to item.Count - 1 do
|
|
// begin
|
|
// // if item.Items[i].Count > 0 then
|
|
// Result := findItem(item.Items[i]);
|
|
// if Result <> NIL then
|
|
// break;
|
|
// end;
|
|
// end;
|
|
//
|
|
//var
|
|
// item, parItem: TMenuItem;
|
|
//begin
|
|
// item := findItem(contactMenu.Items);
|
|
// if item <> NIL then
|
|
// begin
|
|
// parItem := item.parent;
|
|
// parItem.remove(item);
|
|
// item.free;
|
|
// while (parItem <> contactMenu.Items) and (parItem.Count = 0) do
|
|
// begin
|
|
// item := parItem;
|
|
// parItem := item.parent;
|
|
// parItem.remove(item);
|
|
// item.free;
|
|
// end;
|
|
// end;
|
|
//end;
|
|
//
|
|
//procedure TRnQmain.OnPluginMenuClick(Sender: TObject);
|
|
//var
|
|
// // pr : procedure(uid:String);
|
|
// pr: procedure(uid: RawByteString);
|
|
//begin
|
|
// if Sender is TRQMenuItem then
|
|
// begin
|
|
// if TRQMenuItem(Sender).PluginProc <> NIL then
|
|
// // if (TRQMenuItem(Sender).Plugin^) is Tplugin then
|
|
// begin
|
|
// pr := TRQMenuItem(Sender).PluginProc;
|
|
// pr(clickedContact.UID2cmp);
|
|
// // Tplugin(TRQMenuItem(Sender).Plugin).cast(
|
|
// // char(PM_EVENT)+char(PE_CONTACTMENUCLICK)+_int(TRQMenuItem(Sender).ProcIdx)+_int(StrToIntDef(clickedContact.UID, 0))
|
|
// // )
|
|
// end;
|
|
// end;
|
|
//end;
|
|
|
|
initialization
|
|
TimerClass := TTimerClass.Create;
|
|
MainTimer := TTimer.Create(nil);
|
|
|
|
finalization
|
|
FreeAndNil(MainTimer);
|
|
FreeAndNil(TimerClass);
|
|
|
|
end.
|