From 46130a6754f6479f40ddcd77100eb55c69817c6f Mon Sep 17 00:00:00 2001
From: Christian Hammacher <BasicMaster>
Date: Sun, 4 Sep 2005 13:25:24 +0000
Subject: [PATCH] *** empty log message ***

---
 editor/studio/UnitfrmIRCPaster.dfm | Bin 0 -> 2286 bytes
 editor/studio/UnitfrmIRCPaster.pas |  64 +++++++++++++++++++++++++++++
 2 files changed, 64 insertions(+)
 create mode 100755 editor/studio/UnitfrmIRCPaster.dfm
 create mode 100755 editor/studio/UnitfrmIRCPaster.pas

diff --git a/editor/studio/UnitfrmIRCPaster.dfm b/editor/studio/UnitfrmIRCPaster.dfm
new file mode 100755
index 0000000000000000000000000000000000000000..c69a2e1a53e7679c9ba0940e64f247b59d3e680b
GIT binary patch
literal 2286
zcmey*#Sr2a<m(ya9N-un;u^$YAaI?7fgvQo&44!~ttb~Hkyu=kTEv6QVev^#D`DQv
z$Q+Viz+Az|?UY}Xl3Em8Qkj#=&XH8?l9`y3pU&=_SWuFgpU1}K8RV=G05QcmCo?s#
z#3MB`J)?yACj&QxAD)>~lEK`|!0MczlV8NnnVjQPlINC~oXX>tpI4&ioRL^moLa)p
z@8as_80r%e@9g0i6zm$p1(5~o;YrR3&&*57FAqtrDB%W6Kx|?9$_eKACFZ8Gv4tdN
z<mV<rG=kmB&A{iMlj2;Inpl$R5Ap>EM?ijYCdlFJd<FTz$wjHDdCsYMC8<Tc0htx4
zImH2~MV@)d8B7UWAgiF3@G`K4_#`H!=5XXB<ph@`mZXBih=~CdL`)2<Fdwo()l0BC
z=47Vlv9l)Tgya`+f;qXVc_r)|C5aH*umvBxYhGefPHGAVHNxc$fpFmpNGwXtD**)_
z2LsG|TscWO&KZe$d8s)N4|0G!$h;2fLndvQ2YKP{=YXoWVqoA42`&h6ig3<IP0n`8
zui#A1$OgxFF~lr3kXcM}kicS!fEmRPH;ON`I8_0Znvy|rUd$1am;{b9CI)t}nW-t9
ztl+?B=S)t5iZC#6Lu?I5%uCG?D9FnJC&l2@l9J54bQGH-AT~2MGQg}3gj<cF5t>%n
zl5_m>^HRAXfd%#r2f|&<uyA9|Ny-Vyhj`Np>`fhrWlUT!yAUD9RFV%h9g!1IEZ`0)
zO3W)R0LKp}1A`#MgF%TYnfXqoB_;WJZ21KxjycdMVgcL70=2IaW*;J0MZqDWP?C|V
zkeXMLS(K`foS%}4@C71tvDw9uUr^$cnU@L;N{DS@P}|}#Z4-dlmIKnFkXDqRi?E21
zfq@I+7uS@`684gc61SrKTu7*ifqkI?HCG;Ht|&q`6ALIqvN0NR_~(JrTzV=yXGui~
zgo%{JcuNvN<(F4!aY<%cC5n}-B^4zh&}i}?XdyG17GlPiKz>0<aB5C!a!G0mMp)WG
z{agU^Ga}|hAYoYy)v5pvR78ldFfcIiKmrt!E;y2NQ@~mvVHyVVBJ&+s<~4*_AP!IV
ztYFm$6WQ4P^PF=sle5`*VMc+u0zR2}*`T5VXJO5UPyx!k>}<(7PC2Ei{BU7t$@rBQ
zE&?vHd3}Qwf)n$K6@pWXGSd*IKuT}!wBpdbl++@S#~C<7GE#F>Ln;eW+1W}mN<y3>
z(7ex?oSWjDn3oJIyc7ufpADiM5df@%!l&H6`6-DxL8-;1IVDU?*!+!F)N&+eWV@v1
zBvwKq9#Ya8KogcDEZz|bixX7RrhqgcypEbXxu97KttQw9OHB1JLy>YQ3!Yqv=3u_$
tjBHR&@GH$tN-ctxEf8lrL7klevjO33f#8h%a&RulgXlxJo{52h0RWXC&g%dG

literal 0
HcmV?d00001

diff --git a/editor/studio/UnitfrmIRCPaster.pas b/editor/studio/UnitfrmIRCPaster.pas
new file mode 100755
index 00000000..b611e2a2
--- /dev/null
+++ b/editor/studio/UnitfrmIRCPaster.pas
@@ -0,0 +1,64 @@
+unit UnitfrmIRCPaster;
+
+interface
+
+uses
+  SysUtils, Windows, Messages, Classes, Graphics, Controls,
+  StdCtrls, ExtCtrls, Forms, TBXDkPanels, SpTBXDkPanels, SpTBXEditors;
+
+type
+  TfrmIRCPaster = class(TForm)
+    lblState: TLabel;
+    chkColors: TSpTBXCheckBox;
+    pnlPasteSettings: TSpTBXPanel;
+    optAll: TSpTBXRadioButton;
+    optLines: TSpTBXRadioButton;
+    txtFrom: TSpTBXEdit;
+    txtTo: TSpTBXEdit;
+    lblTo: TLabel;
+    optSelectedLines: TSpTBXRadioButton;
+    cmdPaste: TSpTBXButton;
+    cmdCancel: TSpTBXButton;
+    chkDelay: TSpTBXCheckBox;
+    lblChannel: TLabel;
+    txtChannel: TSpTBXEdit;
+    chkLineNumbers: TSpTBXCheckBox;
+    procedure txtChange(Sender: TObject);
+    procedure cmdPasteClick(Sender: TObject);
+  end;
+
+var
+  frmIRCPaster: TfrmIRCPaster;
+
+implementation
+
+uses UnitfrmMain, UnitMainTools, UnitLanguages;
+
+{$R *.DFM}
+
+procedure TfrmIRCPaster.txtChange(Sender: TObject);
+begin
+  if not IsNumeric(TSpTBXEdit(Sender).Text) then
+    TSpTBXEdit(Sender).Text := '1'
+  else if StrToInt(TSpTBXEdit(Sender).Text) = 0 then
+    TSpTBXEdit(Sender).Text := '1'
+  else if StrToInt(TSpTBXEdit(Sender).Text) > frmMain.sciEditor.Lines.Count then
+    TSpTBXEdit(Sender).Text := IntToStr(frmMain.sciEditor.Lines.Count);
+
+  if StrToInt(txtFrom.Text) > StrToInt(txtTo.Text) then
+    txtTo.Text := txtFrom.Text;
+end;
+
+procedure TfrmIRCPaster.cmdPasteClick(Sender: TObject);
+begin
+  if Length(txtChannel.Text) <= 1 then
+    MessageBox(Handle, PChar(lInvalidChannel), PChar(Application.Title), MB_ICONERROR)
+  else if (frmMain.sciEditor.Lines.Count > 25) and (optAll.Checked) then begin
+    if MessageBox(Handle, PChar(lWarnBigPluginPaste), PChar(Application.Title), MB_ICONWARNING + MB_YESNO) = mrYes then
+      ModalResult := mrOk;
+  end
+  else
+    ModalResult := mrOk;
+end;
+
+end.