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
zcmd5-%Z}qj6s>j=ztTwui5Xadmq;Mgvz-M};!e~v>PLv(Os{~7eG^+<sj}>fCRrgq
zfM4MUkmfgLGoQeg1uH1mBkpusw1il&OS$UabI-Z=p8Vybcrv?uH4CT1C?3zy>EOMK
zP&}QS_TojksxNTGp*+5SXkWmBw|+Zn#jI#;j=CdOrcg$FOTcmG)me@STRI^wc+RNp
zizI>05|SJ!KZkso@z$THtIluolxMA9P$y)Bm5!H?5vLQJ!107p{&kq)vI6d$oQ)^L
zn~V5|@O(In#<8z%Wz2Cx-sCi8Z)4c-uDnnv)*qfcUEvkjc8oK&!YWYK+eQ6rl7=N<
z4%amc*PXH|uM2nj1&fjrfQF)GD0|a<1EiWl`HCi)^`l=yX^<YW;|n|o;*vRuxJV{7
zvQRCNg*t|zt>1sz8IpWSoen1AfhP|uf#SFvE40VtbH)_U38e0Sq08@2=;BXtDJrVP
z6BD87`GTHk2c<w1L08VeubQFtr6Jhc)$i)}FA?g;Q4x=B!wizU5!-l4b|*Vtsa&=c
z>oX;mb!$?c>{9h_DhTRnO6s0hZj9%$XBKi~PDs6u6km+cTz^5Rt5By{6g?;?k)s#^
z=Q&;OA>ZmY{frFsw>#*AKs~E=LarEvt`bYKahtkYMz@a8EoO@5OG)!9P1846jbavO
z2b-`5(2Yw>t3vk2L+B$#aE8;Ijn<rtonr+b65XP<#A|E3t-)(#eI^wNcm{!JcwU0g
zH-&~pqwZr^uE4s;DQGDb+H;Ne{UO>wp^-WySd?tl039LZD=y<S=MLZSiMUs)J(n!L
z(0M;Md7m}WR=ZwE`{;#xP3xIkg5!x4>gT-`>v3HB*Xwn~^Tl=#vLoJ`Hl05S*!q`%
zhy5A|4I?0sa7Yid{6=#w4CkhEA1f^@9U4ec8%5d(p<^YenhQ5sr7}cm`dv-2^}#If
z3j^@UZtOeqb(7I{gtjD4?wp=UC65D9^_}!tA@`$Z-EUq<!xoD(B5OF=eKvO8+kKIi
z-Mfr}NKAVWL76X_EXuvRi|U37*Ct|`kQZmLf_PhiWAls)r+Gl%6E%mJCdRyiC;8jz
zc_TpQf5EhS$x=*aP^}5KtjBmiuv%AG?HLffRgG6pd#VR(X!_m^mRCD%S_d@L_qWs6
ztM%ZY;GG$!pG?ww8`}PdEqqXLUlc3`0j}1oIh1=gJ<?@o2B9f?5M}JG+ybiNn(8gF
G3x5NZAkOOm

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.