Awkwars's plugins - welcome to our trunk

git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 229 insertions, 0 deletions

diff --git a/plugins/Watrack/kolframe/frm_trackbar.inc b/plugins/Watrack/kolframe/frm_trackbar.inc
new file mode 100644
index 0000000000..d6e08c56a7
--- /dev/null
+++ b/plugins/Watrack/kolframe/frm_trackbar.inc
@@ -0,0 +1,229 @@
+{Trackbar}

+type

+  pAWKTrackbar = ^tAWKTrackbar;

+  tAWKTrackbar = object(TObj)

+    total:integer;

+    UpdInterval:integer;

+    OldMouseDown,

+    OldMouseUp:TOnMouse;

+

+    procedure CtrlResize(Sender: PObj);

+    procedure Erase(Sender: PControl; DC: HDC);

+    procedure Paint(Sender: PControl; DC: HDC);

+    procedure Scroll(Sender:PTrackbar; Code:Integer);

+    procedure PressButton  (Sender: PControl;var Mouse: TMouseEventData);

+    procedure UnPressButton(Sender: PControl;var Mouse: TMouseEventData);

+    procedure DragButton   (Sender: PControl;var Mouse: TMouseEventData);

+  end;

+

+procedure ResetTrackbar(Trackbar:PControl);

+begin

+  if Trackbar=nil then exit;

+

+  with pTrackbar(Trackbar)^ do

+  begin

+    RangeMin:=0;

+    RangeMax:=0;

+    Position:=0;

+  end;

+end;

+

+procedure TrackbarSetRange(Trackbar:PTrackbar;timer:integer;total:integer=-1);

+var

+  D:pAWKTrackbar;

+  lpercent:real;

+begin

+  if Trackbar=nil then exit;

+

+  with Trackbar^ do

+  begin

+    D:=pointer(CustomObj);

+    if total<0 then // changing timer only

+    begin

+      total:=D.total;

+      if RangeMax>0 then

+        lpercent:=position/RangeMax

+      else

+        lpercent:=0;

+    end

+    else            // for new track

+    begin

+      D.total:=total;

+      lpercent:=0;

+    end;

+    D.UpdInterval:=timer;

+    total:=(total*1000) div timer;

+    RangeMax:=total;

+    LineSize:=total div 100;

+    PageSize:=total div 10;

+    Position:=round(lpercent*total);

+  end;

+end;

+

+procedure SetTrackbarPosition(Trackbar:PTrackbar;pos:integer);

+begin

+  if Trackbar=nil then exit;

+//??  if Sender.ChildCount=0 then exit;

+  if pIcoButton(Trackbar.Children[0]).State<>AST_PRESSED then

+    Trackbar.Position:=pos;

+

+  Trackbar.Update;

+end;

+

+function CoordToPos(Trackbar:PTrackbar;x:integer):integer;

+var

+  range:integer;

+  rmin,rmax:integer;

+  offsetthumb,width:integer;

+  rc:TRect;

+begin

+  result:=0;

+  if Trackbar=nil then exit;

+

+  rmin:=Trackbar.RangeMin;

+  rmax:=Trackbar.RangeMax;

+  range:=rmax-rmin; // logic width

+

+  offsetthumb:=Trackbar.ThumbLen div 2;

+

+  rc:=Trackbar.ChannelRect;

+  width:= (rc.right-rc.left)-(offsetthumb*2)-1;

+  result:=(range*(x-rc.left-offsetthumb)) div width;

+

+  inc(result,rmin);

+  if result>rmax then

+    result:=rmax

+  else if result<rmin then

+    result:=rmin;

+end;

+

+procedure tAWKTrackbar.PressButton(Sender: PControl;var Mouse: TMouseEventData);

+begin

+  pAWKTrackbar(Sender.Parent.CustomObj).OldMouseDown(Sender,Mouse);

+

+  pIcoButton(Sender)^.Action:=PTrackbar(Sender.Parent).Position;

+end;

+

+procedure tAWKTrackbar.UnPressButton(Sender: PControl;var Mouse: TMouseEventData);

+begin

+  pAWKTrackbar(Sender.Parent.CustomObj).OldMouseUp(Sender,Mouse);

+

+  CallService(MS_WAT_PRESSBUTTON,WAT_CTRL_SEEK,

+    pIcoButton(Sender)^.Action*pAWKTrackbar(Sender.Parent.CustomObj).UpdInterval div 1000);

+  pIcoButton(Sender)^.Action:=-1;

+end;

+

+procedure tAWKTrackbar.DragButton(Sender: PControl;var Mouse: TMouseEventData);

+var

+  pos:integer;

+begin

+  with pIcoButton(Sender)^ do

+    if State=AST_PRESSED then

+    begin

+      pos:=CoordToPos(PTrackbar(Sender.Parent),Sender.Left+Mouse.X);

+      if Action<>pos then

+      begin

+        Action:=pos;

+        PTrackbar(Sender.Parent).Position:=pos;

+      end;

+    end;

+end;

+

+procedure tAWKTrackbar.Scroll(Sender:PTrackbar; Code:Integer);

+begin

+  if code=TB_ENDTRACK then

+  begin

+    CallService(MS_WAT_PRESSBUTTON,WAT_CTRL_SEEK,

+      Sender.Position*pAWKTrackbar(Sender.CustomObj).UpdInterval div 1000);

+  end;

+end;

+

+procedure tAWKTrackbar.CtrlResize(Sender: PObj);

+var

+  tmp:integer;

+begin

+  tmp:=PControl(Sender).Parent.Width-16;

+  if (PTrackbar(Sender)^.Width)>tmp then

+    PTrackbar(Sender)^.Width:=tmp;

+ //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

+  // need to move slider here

+//  PControl(Sender).Update;

+end;

+

+procedure tAWKTrackbar.Erase(Sender: PControl; DC: HDC);

+begin

+//  Sender.Parent.Update;

+end;

+

+procedure tAWKTrackbar.Paint(Sender: PControl; DC: HDC);

+var

+  rc, rc1:TRECT;

+  w:integer;

+begin

+  SendMessage(Sender.Handle,TBM_GETTHUMBRECT,0,dword(@rc));

+

+  w:=rc.right-rc.left;

+  if w<>16 then

+    rc.left:=rc.left+(w div 2)-8;

+

+  copyRect(rc1,Sender.BoundsRect);

+  rc1.Right :=rc1.Right-rc1.Left-8;

+  rc1.Left  :=4;

+  rc1.Top   :=7{((rc1.Bottom-rc1.Top) div 2)-2};

+  rc1.Bottom:=rc1.Top+4;

+  DrawEdge(DC,rc1,EDGE_SUNKEN,BF_RECT or BF_ADJUST);

+  if Sender.ChildCount>0 then

+    Sender.Children[0].Left:=rc.Left

+  else

+  begin

+    rc.right:=rc.left+8;

+    DrawFrameControl(DC,rc,DFC_BUTTON,DFCS_BUTTONPUSH);

+  end;

+end;

+

+procedure RefreshTrackbarIcons(Owner:PControl);

+begin

+  if Owner.ChildCount>0 then

+    pIcoButton(Owner.Children[0]).RefreshIcon;

+end;

+

+function MakeNewTrackBar(AOwner:PControl):PTrackbar;

+var

+  D:pAWKTrackbar;

+  btn:pIcoButton;

+begin

+  New(D, Create);

+  result:=NewTrackbar(AOwner,[trbNoTicks,trbBoth,trbNoBorder],D.Scroll);

+

+  with result^ do

+  begin

+    Transparent:=true;

+    CustomObj:=D;

+    SetSize(AOwner.Width-16,18);

+    SetPosition({AOwner.Left+}8,{AOwner.Top+}AOwner.Height-18);

+    Anchor(true,false,true,true);

+    ThumbLen:=16;

+

+    RangeMin:=0;

+    RangeMax:=100;

+

+    btn:=CreateIcoButton(result,GetIcon,DoAction,WAT_CTRL_SEEK);

+

+    if btn<>nil then

+    begin

+      btn.ResetEvent(idx_fOnClick);

+      D.OldMouseDown:=btn.OnMouseDown;

+      btn.OnMouseDown:=D.PressButton;

+      D.OldMouseUp:=btn.OnMouseUp;

+      btn.OnMouseUp  :=D.UnPressButton;

+      btn.OnMouseMove:=D.DragButton;

+    end;

+

+    OnResize    :=D.CtrlResize;

+    OnEraseBkGnd:=D.Erase;

+    OnPaint     :=D.Paint;

+

+//    OnScroll    :=D.Scroll;

+  end;

+

+end;