From 864081102a5f252415f41950b3039a896b4ae9c5 Mon Sep 17 00:00:00 2001
From: Vadim Dashevskiy <watcherhd@gmail.com>
Date: Mon, 8 Oct 2012 18:43:29 +0000
Subject: Awkwars's plugins - welcome to our trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Watrack/kolframe/frm_vars.inc | 80 +++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 plugins/Watrack/kolframe/frm_vars.inc

(limited to 'plugins/Watrack/kolframe/frm_vars.inc')

diff --git a/plugins/Watrack/kolframe/frm_vars.inc b/plugins/Watrack/kolframe/frm_vars.inc
new file mode 100644
index 0000000000..88dd71f0d1
--- /dev/null
+++ b/plugins/Watrack/kolframe/frm_vars.inc
@@ -0,0 +1,80 @@
+{Frame variables}
+var
+  sic,
+  PlStatusHook:cardinal;
+
+  HiddenByMe:bool;
+
+  FrameHeight:dword;
+
+type
+  PWATFrameData = ^TWATFrameData;
+  TWATFrameData = record
+    BkDC        :HDC;       // "buffer" DC and associated bitmap
+    BkBitmap    :HBITMAP;   // original bitmap
+    BkFile      :PAnsiChar; // original bitmap filename
+    BkDefFile   :PAnsiChar; // default background picture filename
+    BkMode      :cardinal;
+    BkTimer     :cardinal;  // timer to free original picture buffer
+    BkColor     :TCOLORREF;
+    padding     :TRect;
+
+    ShowControls:dword;
+    UseBkPicture:bool;
+    UseCover    :bool;
+    HideNoMusic :bool;
+    HideNoPlayer:bool;
+
+    WasHidden   :bool;
+    // not sure what will keep here
+    FrameId     :integer;
+    FrmAlpha    :integer;
+    UpdInterval :cardinal;
+    UpdTimer    :cardinal;
+
+    Template :PWideChar;
+
+    Trackbar :PTrackbar;
+    TextBlock:PTextBlock;
+
+    // Designer section
+    Designer :PDesigner;
+    ManualPlacement:bool;
+    Loaded   :dword;
+
+    btnarray:array [0..numbuttons-1] of pIcoButton;
+  end;
+
+  PWATFrame = ^TWATFrame;
+  TWATFrame = object(TControl)
+    procedure Paint(Sender: PControl; DC: HDC);
+    procedure FrameResize(Sender: PObj);
+    procedure RefreshAllFrameIcons;
+    procedure ResetFrame;
+
+    procedure CreateDesigner(Sender:PControl;var Mouse:TMouseEventData);
+    procedure DesignerSaveSettings;
+    procedure DesignerLoadSettings;
+
+    procedure PreparePicture(dc:HDC;rc:TRECT);
+    function LoadBkPicture(CoverFName:PAnsiChar;check:boolean=false;
+             BackFName:PAnsiChar=nil):integer;
+    procedure SaveSettings;
+    procedure LoadSettings;
+    procedure CheckControls;
+    procedure SetAlpha(value:integer);
+    procedure RefreshPicture(cover:PAnsiChar=nil);
+    procedure ClearBitmapData;
+    procedure AdjustFrame;
+    procedure MyDestroy(Sender:PObj);
+
+    procedure AdjustButtons(atop:integer);
+    procedure RefreshButtonIcons;
+    procedure FreeButtonsDesigner;
+    procedure MakeButtonsDesigner;
+    procedure FreeButtons;
+    procedure MakeNewButtonGroup;
+ end;
+
+var
+  FrameCtrl:PWATFrame;
-- 
cgit v1.2.3