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, 172 insertions, 0 deletions

diff --git a/plugins/Watrack/kolframe/frm_dlg2.inc b/plugins/Watrack/kolframe/frm_dlg2.inc
new file mode 100644
index 0000000000..6325e05fcd
--- /dev/null
+++ b/plugins/Watrack/kolframe/frm_dlg2.inc
@@ -0,0 +1,172 @@
+{Frame text}

+const

+  MaxTxtScrollSpeed = 20;

+

+function FrameTextDlg(Dialog:HWnd; hMessage,wParam,lParam:DWord):integer; stdcall;

+const

+  DlgInited      :boolean=false;

+  TemplateChanged:Boolean=false;

+var

+  tmp,tmp1:integer;

+  tmpb:longbool;

+  pcf:TCHOOSEFONT;

+  lf:LOGFONTW;

+begin

+  result:=0;

+

+  case hMessage of

+    WM_DESTROY: begin

+      // new - if Apply, old - if cancel

+      if FrameCtrl<>nil then // for case when FrameCtrl was destryed already

+        if PWATFrameData(FrameCtrl.CustomData).TextBlock<>nil then

+        PWATFrameData(FrameCtrl.CustomData).TextBlock.FontData:=TextLF;

+    end;

+

+    WM_INITDIALOG: begin

+      DlgInited:=false;

+      TranslateDialogDefault(Dialog);

+      with PWATFrameData(FrameCtrl.CustomData).TextBlock^ do

+      begin

+        case LoByte(Effects) of

+          effWrap: tmp:=IDC_EFF_WRAP;

+          effRoll: tmp:=IDC_EFF_ROLL;

+          effPong: tmp:=IDC_EFF_PONG;

+        else // like effCut

+          tmp:=IDC_EFF_CUT;

+        end;

+        CheckDlgButton(Dialog,tmp,BST_CHECKED);

+

+        SetDlgItemInt(Dialog,IDC_TIMER,UpdateTime,false);

+

+        SetDlgItemInt(Dialog,IDC_ROLLSTEP,RollStep,false);

+        SetDlgItemInt(Dialog,IDC_ROLLGAP ,RollGap ,false);

+  //      SetDlgItemInt(Dialog,IDC_ROLLTAIL,RollTail,false);

+

+        CheckDlgButton(Dialog,IDC_ALCENTER,ord((Effects and effCenter)<>0));

+

+        SetDlgItemTextW(Dialog,IDC_FRAME_TEXT,PWATFrameData(FrameCtrl.CustomData).Template);

+      end;

+

+      SendDlgItemMessage(Dialog,IDC_MACRO_HELP,BM_SETIMAGE,IMAGE_ICON,

+          CallService(MS_SKIN_LOADICON,SKINICON_OTHER_HELP,0));

+

+      TemplateChanged:=false;

+      DlgInited:=true;

+    end;

+

+    WM_COMMAND: begin

+      case (wParam shr 16) of

+        EN_CHANGE: begin

+          if Loword(wParam)=IDC_FRAME_TEXT then

+            TemplateChanged:=True;

+        end;

+

+        BN_CLICKED: begin

+          case LoWord(wParam) of

+            IDC_MACRO_HELP: CallService(MS_WAT_MACROHELP,Dialog,0);

+            IDC_FRMFONT: begin

+              with PWATFrameData(FrameCtrl.CustomData).TextBlock^ do

+              begin

+                lf:=FontData;

+  //            lf:=TextLF;

+                FillChar(pcf,sizeOf(pcf),0);

+                with pcf do

+                begin

+                  lStructSize:=SizeOf(pcf);

+                  lpLogFont:=@lf;

+                  Flags:=CF_EFFECTS+CF_FORCEFONTEXIST+CF_LIMITSIZE+CF_NOVERTFONTS+

+                         CF_SCREENFONTS+CF_INITTOLOGFONTSTRUCT;

+                  rgbColors:=TextColor;

+                  nSizeMin:=6;

+                  nSizeMax:=32;

+                end;

+                if ChooseFont(pcf) then

+                begin

+                  FontData:=lf; // paint directly

+                  TextColor:=pcf.rgbColors;

+                  SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);

+                end

+                else

+                  exit;

+              end;

+            end;

+          end;

+        end;

+      end;

+

+      if DlgInited then

+        case wParam shr 16 of

+          BN_CLICKED,

+          EN_CHANGE: begin

+            SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);

+          end;

+        end;

+    end;

+

+    WM_NOTIFY: begin

+      if integer(PNMHdr(lParam)^.code)=PSN_APPLY then

+      begin

+//        redraw:=false;

+        with PWATFrameData(FrameCtrl.CustomData).TextBlock^ do

+        begin

+          tmp:=GetDlgItemInt(Dialog,IDC_TIMER,tmpb,false);

+          if tmp>MaxTxtScrollSpeed then

+            tmp:=MaxTxtScrollSpeed;

+

+          if tmp<>UpdateTime then

+          begin

+            UpdateTime:=tmp;

+{

+            if UpdTimer<>0 then

+              KillTimer(FrameWnd,UpdTimer);

+            if (UpdInterval>0) and (FrameWnd<>0) then

+              UpdTimer:=SetTimer(FrameWnd,TMR_TEXT,(MaxTxtScrollSpeed+1-UpdInterval)*100,nil)

+            else

+              UpdTimer:=0;

+}

+          end;

+

+          // Text effects

+          if      IsDlgButtonChecked(Dialog,IDC_EFF_CUT )<>BST_UNCHECKED then tmp:=effCut

+          else if IsDlgButtonChecked(Dialog,IDC_EFF_WRAP)<>BST_UNCHECKED then tmp:=effWrap

+          else if IsDlgButtonChecked(Dialog,IDC_EFF_ROLL)<>BST_UNCHECKED then tmp:=effRoll

+          else if IsDlgButtonChecked(Dialog,IDC_EFF_PONG)<>BST_UNCHECKED then tmp:=effPong;

+          if IsDlgButtonChecked(Dialog,IDC_ALCENTER)<>BST_UNCHECKED then

+            tmp:=tmp or effCenter;

+          Effects:=tmp;

+

+          tmp1:=GetDlgItemInt(Dialog,IDC_ROLLSTEP,tmpb,false);

+          if tmp1<>RollStep then

+          begin

+            RollStep:=tmp1;

+          end;

+          tmp1:=GetDlgItemInt(Dialog,IDC_ROLLGAP ,tmpb,false);

+          if tmp1<>RollGap then

+          begin

+            RollGap:=tmp1;

+          end;

+  {

+          tmp1:=GetDlgItemInt(Dialog,IDC_ROLLTAIL,tmpb,false);

+          if tmp1<>RollTail then

+          begin

+            RollTail:=tmp1;

+          end;

+  }

+

+          if TemplateChanged then

+          begin

+            mFreeMem(PWATFrameData(FrameCtrl.CustomData).Template);

+            PWATFrameData(FrameCtrl.CustomData).Template:=GetDlgText(Dialog,IDC_FRAME_TEXT);

+          end;

+

+          TextLF:=FontData; // OK - saving for future?

+

+          SaveTextSettings(TemplateChanged);

+          TemplateChanged:=false;

+        end;

+      end;

+    end;

+  else

+    {result:=}DefWindowProc(Dialog,hMessage,wParam,lParam);

+  end;

+end;