Start of development the project

Author: kangreon

.gitignore

@@ -7,4 +7,6 @@ __history
 *.map
 *.exe
 *.dll
-bin/*
+bin/*
+Win32/*
+*.so

Image/AddUserActive.png

@@ -0,0 +1,25 @@
+DefaultUserface  BITMAP  "..\\Image\\default-userface.bmp"
+UserstatusButtonDown  BITMAP "..\\Image\\UserstatusButtonDown.bmp"
+AwayD  BITMAP "..\\Image\\away-d.bmp"
+AwayS  BITMAP "..\\Image\\away-s.bmp"
+AwayUS  BITMAP "..\\Image\\away-us.bmp"
+OnlineD  BITMAP "..\\Image\\online-d.bmp"
+OnlineS  BITMAP "..\\Image\\online-s.bmp"
+OnlineUS  BITMAP "..\\Image\\online-us.bmp"
+OfflineD  BITMAP "..\\Image\\offline-d.bmp"
+OfflineS  BITMAP "..\\Image\\offline-s.bmp"
+OfflineUS  BITMAP "..\\Image\\offline-us.bmp"
+OnlineTR RCDATA "..\\Image\\Online-tr.png"
+OfflineTR RCDATA "..\\Image\\offline-tr.png"
+AwayTR RCDATA "..\\Image\\away-tr.png"
+LoadingAnimate10 RCDATA "..\\Image\\loading-animate-10.png"
+OnlineMenu BITMAP "..\\Image\\online-menu.bmp"
+AddUserNormal BITMAP "..\\Image\\ControlPanel\\add_user_normal.bmp"
+AddUserActive BITMAP "..\\Image\\ControlPanel\\add_user_active.bmp"
+AddUserDown BITMAP "..\\Image\\ControlPanel\\add_user_down.bmp"
+SettingsNormal BITMAP "..\\Image\\ControlPanel\\settings_normal.bmp"
+SettingsActive BITMAP "..\\Image\\ControlPanel\\settings_active.bmp"
+SettingsDown BITMAP "..\\Image\\ControlPanel\\settings_down.bmp"
+GroupNormal BITMAP "..\\Image\\ControlPanel\\group_normal.bmp"
+GroupActive BITMAP "..\\Image\\ControlPanel\\group_active.bmp"
+GroupDown BITMAP "..\\Image\\ControlPanel\\group_down.bmp"

Image/AddUserDown.png

@@ -0,0 +1,2 @@
+1 24 "tox.manifest"
+MAINICON ICON "tox.ico"

Image/AddUserNormal.png

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+        type="win32"
+        name="Microsoft.Windows.Common-Controls"
+        version="6.0.0.0"
+        publicKeyToken="6595b64144ccf1df"
+        language="*"
+        processorArchitecture="*"/>
+    </dependentAssembly>
+  </dependency>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
+    <security>
+      <requestedPrivileges>
+        <requestedExecutionLevel
+          level="asInvoker"
+          uiAccess="false"/>
+        </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

Image/ControlPanel/Thumbs.db

@@ -0,0 +1,30 @@
+unit Unit2;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
+
+type
+  fmUserAdd = class(TForm)
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form2: fmUserAdd;
+
+implementation
+
+{$R *.dfm}
+
+procedure fmUserAdd.FormCreate(Sender: TObject);
+begin
+  SetWindowTextW(Handle, PWideChar('Добавление пользователя'));
+end;
+
+end.

Image/ControlPanel/add_user_active.bmp

@@ -0,0 +1,3 @@
+"%ProgramFiles%\Borland\Delphi7\Bin\brcc32.exe" "Resource\images.rc" -fo "images.res"
+"%ProgramFiles%\Borland\Delphi7\Bin\brcc32.exe" "Resource\tox-res.rc" -fo "tox-res.res"
+pause

Image/ControlPanel/add_user_down.bmp

@@ -0,0 +1,24 @@
+del *.o *.ppu *.a *.res~ *.dcu *.ddp *.local *.identcache *.exe *.or *.compiled *.cfg *.dbg *.dof *.lps *.res
+rd __history /S /Q
+rd backup /S /Q
+rd Win32 /S /Q
+
+cd src
+del *.o *.ppu *.a *.res~ *.dcu *.ddp *.local *.identcache *.exe *.or
+rd __history /S /Q
+rd backup /S /Q
+
+cd ./../gui
+del *.o *.ppu *.a *.res~ *.dcu *.ddp *.local *.identcache *.exe *.or
+rd __history /S /Q
+rd backup /S /Q
+
+cd ./forms
+del *.o *.ppu *.a *.res~ *.dcu *.ddp *.local *.identcache *.exe *.or
+rd __history /S /Q
+rd backup /S /Q
+
+cd ./../../PngImage_D7
+del *.o *.ppu *.a *.res~ *.dcu *.ddp *.local *.identcache *.exe *.or
+rd __history /S /Q
+rd backup /S /Q

Image/ControlPanel/add_user_normal.bmp

@@ -0,0 +1,123 @@
+//  ActiveRegion.pas
+//
+//  Îòëàâëèâàåò ðàçëè÷íûå ñîáûòèÿ ìûøè â óêàçàííîì ðåãèîíå ôîðìû
+//
+//  The MIT License (MIT)
+//
+//  Copyright (c) 2013 Dmitry
+//
+unit ActiveRegion;
+
+interface
+  {$I tox.inc}
+
+uses
+  Controls, Classes, Messages;
+
+type
+  { Ïåðå÷èñëåíèå ñîáûòèé, ñîçäàâàåìûõ êëàññîì }
+  TRegionMessage = (rmMouseEnter, rmMouseLeave, rmMouseMove, rmMouseDown,
+    rmMouseUp, rmMouseClick, rmMouseDblClick);
+
+  { Ñîñòîÿííèå íàæàòèÿ íà ðåãèîí ìûøüþ }
+  TDownState = (dsNone, dsActive, dsDown);
+
+  TProcCursorMessage = procedure(Sender: TObject; RegionMessage: TRegionMessage;
+    const x, y: Integer; Button: TMouseButton; Shift: TShiftState) of object;
+
+  TActiveRegion = class(TGraphicControl)
+  private
+    FOnCursorMessage: TProcCursorMessage;
+    procedure EventCursorMessage(RegionMessage: TRegionMessage;
+      const x, y: Integer; Button: TMouseButton; Shift: TShiftState);
+  protected
+    procedure CursorMessage(RegionMessage: TRegionMessage; const x, y: Integer;
+      Button: TMouseButton; Shift: TShiftState); virtual;
+  protected
+    procedure Click; override;
+    procedure DblClick; override;
+    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
+      X, Y: Integer); override;
+    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
+    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
+      X, Y: Integer); override;
+    procedure WndProc(var Message: TMessage); override;
+  public
+    property OnCursorMessage: TProcCursorMessage read FOnCursorMessage write FOnCursorMessage;
+  end;
+
+implementation
+
+{ TActiveRegion }
+
+procedure TActiveRegion.CursorMessage(RegionMessage: TRegionMessage; const x,
+  y: Integer; Button: TMouseButton; Shift: TShiftState);
+begin
+end;
+
+procedure TActiveRegion.Click;
+begin
+  inherited;
+  EventCursorMessage(rmMouseClick, 0, 0, mbLeft, []);
+end;
+
+procedure TActiveRegion.DblClick;
+begin
+  inherited;
+  EventCursorMessage(rmMouseDblClick, 0, 0, mbLeft, []);
+end;
+
+procedure TActiveRegion.EventCursorMessage(RegionMessage: TRegionMessage;
+  const x, y: Integer; Button: TMouseButton; Shift: TShiftState);
+begin
+  CursorMessage(RegionMessage, x, y, Button, Shift);
+  if Assigned(FOnCursorMessage) then
+    FOnCursorMessage(Self, RegionMessage, x, y, Button, Shift);
+end;
+
+procedure TActiveRegion.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
+  Y: Integer);
+begin
+  inherited;
+  EventCursorMessage(rmMouseDown, X, Y, Button, Shift);
+end;
+
+procedure TActiveRegion.MouseMove(Shift: TShiftState; X, Y: Integer);
+begin
+  inherited;
+  EventCursorMessage(rmMouseMove, X, Y, mbLeft, Shift);
+end;
+
+procedure TActiveRegion.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
+  Y: Integer);
+begin
+  inherited;
+  EventCursorMessage(rmMouseUp, X, Y, Button, Shift);
+end;
+
+{*  Îòëîâêà ñîáûòèé âõîäà è âûõîäà êóðñîðà íà âûäåëåííûé ðåãèîí
+ *}
+procedure TActiveRegion.WndProc(var Message: TMessage);
+{$IFDEF FPC}
+const
+  CM_BASE                   = $B000;
+  CM_MOUSEENTER             = CM_BASE + 19;
+  CM_MOUSELEAVE             = CM_BASE + 20;
+{$ENDIF}
+begin
+  inherited;
+  case Message.Msg of
+
+    CM_MOUSEENTER:
+      begin
+        EventCursorMessage(rmMouseEnter, 0, 0, mbLeft, []);
+      end;
+
+    CM_MOUSELEAVE:
+      begin
+        EventCursorMessage(rmMouseLeave, 0, 0, mbLeft, []);
+      end;
+  end;
+end;
+
+end.