Post by Dark]Yan[Qc] on Mar 21, 2007 13:18:39 GMT -5
here's how it works: (PART 1)
(I trim it and doc it for u guys)
CHANGING TEXT FROM TEXTBOX IN COLOR
-----------------------------------
[ With all other colors too]
procedure frmMain.btpurple_Click(sender: System.Object; e: System.EventArgs);
begin
if (rtb1.SelectedText <> '') then
begin
rtb1.SelectionColor := ReadColor(6);
end else showmessage('Please select characters before pressing colors');
rtb1.set_SelectionLength(0);
end;
function frmmain.ReadColor(IndexCol:integer):color; // complet
begin
// change the letter in the Textbox with the desired color
If indexcol = 1 then result :=Color.Red;
If indexcol = 2 then result :=Color.Lime else
If indexcol = 3 then result :=Color.Yellow else
if indexcol = 4 then result :=Color.Blue else
if indexcol = 5 then result :=Color.Aqua else
if indexcol = 6 then result :=Color.Fuchsia else
if indexcol = 7 then result :=Color.White else
if indexcol = 8 then result :=Color.Black;
end;
// complete
----------------------END OF COLORS ----------------------------------------
ADDING A NAME AND A DELAY:
--------------------------
procedure frmMain.btadd_Click(sender: System.Object; e: System.EventArgs);
var res : boolean;
ok : boolean;
begin
res:=false;
if (Index = 49) then showmessage('Sorry No More Rooms for name')
else
begin
if (rtb1.Text <> '') and (rtb1delay.text <> '') then
begin
Ok:=AnalyseDelay();
if OK then res:= TRUE
// if (rtb1delay.text <= '9') and (rtb1delay.text >= '0') then res:=TRUE
else
begin
res:=FALSE ;
showmessage ('Please enter a number for your delay');
end ;
if (res = TRUE) then
begin
btPreview.Enabled := TRUE;
res:=false;
delaiApp:= DelaiApp + strtoint(rtb1delay.text);
lbDelay.Text := inttostr(delaiApp);
writename(index);
if (not modifyFlag) then
begin
index:=index+1;
nomtotal:= Nomtotal+1;
btRemove.Enabled := TRUE;
btmodify.Enabled:=TRUE;
cbOriginal.Enabled := TRUE;
end else
begin
modifyFlag := FALSE;
Index := NomTotal + 1;
end ;
end
end
else showmessage ('Please enter both Name and Delay');
end;
procedure FrmMain.Writename(Ind:integer);
begin
(* Analyse the index to see where to copy the name and delay,
copy them and enables the windows*)
TakeOffReadOnly();
if ind = 1 then
begin
rtb1.SelectAll;
rtb1.copy;
tbname1.paste;
rtb1delay.selectall;
rtb1delay.copy;
tbdelay1.Paste;
tbname1.enabled:=TRUE;
tbdelay1.Enabled:= TRUE;
end else if ind = 2 then
begin
rtb1.SelectAll;
rtb1.copy;
tbname2.paste;
rtb1delay.selectall;
rtb1delay.copy;
tbdelay2.Paste;
tbdelay2.enabled:=true;
tbname2.Enabled:=true;
end else if ind = 3 then
begin
[...]
end else if ind = 48 then
begin
rtb1.SelectAll;
rtb1.copy;
tbname48.paste;
rtb1delay.selectall;
rtb1delay.copy;
tbdelay48.Paste;
tbdelay48.enabled:=true;
tbname48.Enabled:=true;
end;
PutBackReadOnly();
Nameclear();
end;
// complete
function FrmMain.AnalyseDelay():boolean;
var len : integer;
ind : integer;
begin
(* make sure no characters except Number in Delay*)
rtb1delay.selectall;
len:=rtb1delay.selectionLength;
ind:=0;
while (len > 0) do
begin
tbActChar.Clear;
Rtb1delay.select(ind, 1);
rtb1delay.copy;
tbActChar.paste;
if (((tbActChar.text) >= '0') and ((tbActChar.text) <= '9')) then
begin
ind := ind + 1;
len := len - 1;
Result:= TRUE;
end else
begin
Result := FALSE;
len:=0;
end;
end;
end;
// complete
----------------------END OF ADD NAME DELAY --------------------------------
REPLACE AND REMOVE FUNCTION:
----------------------------
procedure frmMain.btRemove_Click(sender: System.Object; e: System.EventArgs);
begin
ShowNumbersBt();
Showmessage('Please select which line you want to Remove by clicking the number.'#13#10'You also may press Cancel to Cancel the Remove Operation');
RemoveFlag:=TRUE;
end;
procedure frmMain.btReplace_Click(sender: System.Object; e: System.EventArgs);
begin
if (not modifyFlag) then
begin
ShowNumbersBt();
showmessage('Please click on the line you want to modify'#13#10'You may also Click the Cancel button to cancel');
modifyFlag:=TRUE;
end else Showmessage('Please Use the ADD button to Enter the new name');
end;
procedure frmMain.bt48_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 48) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay48.Text));
choosen:=48;
HideNumbersBt();
ExecuteRemove(Choosen);
end;
end;
procedure frmMain.bt3_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 3) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay3.Text));
choosen:=3;
HideNumbersBt();
ExecuteRemove(Choosen);
end;
end;
procedure frmMain.bt2_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 2) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay2.Text));
choosen:=2;
HideNumbersBt();
ExecuteRemove(Choosen);
end;
end;
procedure frmMain.bt1_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 1) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay1.Text));
choosen:=1;
HideNumbersBt();
executeRemove(choosen);
end;
end;
[... 48 buttons ]
procedure frmMain.ExecuteRemove(Choosen:integer);
begin
(* substract the deleted delay, send the index to CleanUpNames (On Remove)*)
(* substract the deleted delay, Send the index to ClearChoosen (on Modify)*)
if (RemoveFlag) then
begin
FirstTime:= TRUE;
lbDelay.Text := inttostr(delaiApp);
CleanUpNames(choosen);
NomTotal:=NomTotal - 1;
Index:= Index -1;
RemoveFlag:=FALSE;
end;
if (ModifyFlag) then
begin
lbdelay.text := inttostr(delaiApp);
ClearChoosen(Choosen);
Index := Choosen;
end;
end;
// complete
procedure frmMain.CleanUpNames(StartPt:integer);
(* 1st procedure in remove to replace names up 1 case *)
var numberNames : Integer;
LastLine : integer;
begin
LastLine := NomTotal;
NumberNames := NomTotal - startPt;
TakeOffReadOnly();
while(NumberNames > 0) do
begin
NumberNames:=RearrangeNameList(NumberNames, StartPt);
StartPt:=StartPt+1;
end;
ClearTheLastLine(LastLine);
PutBackReadOnly();
end;
// compelete
function frmMain.RearrangeNameList(IndName:integer; StartPt:integer):integer;
begin
// read next line, write it to the new emptied one
if (startPt = 1) then
begin
// Name
Tbname1.clear;
tbname2.SelectAll;
tbname2.copy;
tbname1.Paste;
// Delay
tbdelay1.Clear;
tbdelay2.SelectAll;
tbdelay2.copy;
tbdelay1.Paste;
end;
if (StartPt = 2) then
begin
Tbname2.clear;
tbname3.SelectAll;
tbname3.copy;
tbname2.Paste;
tbdelay2.Clear;
tbdelay3.SelectAll;
tbdelay3.copy;
tbdelay2.Paste;
end;
[...]
if (StartPt = 46) then
begin
Tbname46.clear;
tbname47.SelectAll;
tbname47.copy;
tbname46.Paste;
tbdelay46.Clear;
tbdelay47.SelectAll;
tbdelay47.copy;
tbdelay46.Paste;
end;
if (StartPt = 47) then
begin
Tbname47.clear;
tbname48.SelectAll;
tbname48.copy;
tbname47.Paste;
tbdelay47.Clear;
tbdelay48.SelectAll;
tbdelay48.copy;
tbdelay47.Paste;
end;
// No Start Pt = 48 cause it's the last line.
Result := IndName - 1;
end;
// complete
procedure frmMain.ClearTheLastLine(LastLine:integer);
begin
(* Clear the last line in Remove procedure *)
if (LastLine = 1) then
begin
tbname1.clear;
tbdelay1.clear;
tbname1.enabled:=false;
tbdelay1.enabled:=false;
// exclusif au Last Line = 1
cbOriginal.Enabled := FALSE;
btRemove.enabled := FALSE;
btmodify.Enabled:= FALSE;
btPreview.Enabled := FALSE;
end;
if (LastLine = 2) then
begin
tbname2.clear;
tbdelay2.clear;
tbname2.enabled:=false;
tbdelay2.enabled:=false;
end;
if (LastLine = 3) then
begin
tbname3.clear;
tbdelay3.clear;
tbname3.enabled:=false;
tbdelay3.enabled:=false;
end;
[...]
if (LastLine = 47) then
begin
tbname47.clear;
tbdelay47.clear;
tbname47.enabled:=false;
tbdelay47.enabled:=false;
end;
if (LastLine = 48) then
begin
tbname48.clear;
tbdelay48.clear;
tbname48.enabled:=false;
tbdelay48.enabled:=false;
end;
end;
// complete
procedure frmMain.ClearChoosen(startPt:integer);
begin
// erase the Text of the Textbox choosen on Modify.
takeoffreadonly();
if (startPt = 1) then
begin
rtb1.Text:= tbname1.Text;
rtb1delay.Text := Tbdelay1.text;
tbname1.clear;
tbdelay1.clear;
end;
if (startPt = 2) then
begin
rtb1.Text:= tbname2.Text;
rtb1delay.Text := Tbdelay2.text;
tbname2.clear;
tbdelay2.clear;
end;
[...]
if (startPt = 47) then
begin
rtb1.Text:= tbname47.Text;
rtb1delay.Text := Tbdelay47.text;
tbname47.clear;
tbdelay47.clear;
end;
if (startPt = 48) then
begin
rtb1.Text:= tbname48.Text;
rtb1delay.Text := Tbdelay48.text;
tbname48.clear;
tbdelay48.clear;
end;
putbackreadonly();
end;
----------------------- END OF REMOVE REPLACE ----------------------------------
PREVIEW:
--------
procedure frmMain.btPreview_Click(sender: System.Object; e: System.EventArgs);
var Name: integer;
DelayInt:integer;
begin
tbpreview.ReadOnly := FALSE;
tbPreview.clear;
tbPreview.ZoomFactor := 1 ;
Name:=NomTotal;
if (name >= 1) then
begin
tbname1.selectAll;
tbName1.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint(TbDelay1.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end;
if (name >= 2) then
begin
tbname2.selectAll;
tbName2.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint(TbDelay2.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end;
[...]
if (name >= 48) then
begin
tbname48.selectAll;
tbName48.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint( TbDelay48.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end ;
If (cbsign.checked) then
begin
tbHidden.clear;
tbHidden.Text:='MadeByDarkNameAnim';
tbhidden.Select(0,4);
tbHidden.SelectionColor:= color.Lime;
tbHidden.select(4,2);
tbhidden.SelectionColor:= color.Yellow;
tbHidden.Select(6,4);
tbHidden.selectionColor:= Color.Red;
tbHidden.Select(10,4);
tbhidden.selectionColor:= color.blue;
tbHidden.Select(14,4);
tbHidden.selectionColor:= Color.White;
tbHidden.SelectAll;
tbHidden.Copy;
tbPreview.Paste;
tbPreview.ZoomFactor:=2;
MyDelay(100);
tbPreview.Clear;
TbPreview.Zoomfactor:=1;
end;
if (cbForum.Checked) then
begin
tbHidden.clear;
tbHidden.Text:='Please Dark Forum';
tbHidden.Select(0, 6);
tbHidden.SelectionColor:= color.Aqua;
tbHidden.Select(7,4);
tbHidden.SelectionColor:= Color.Red;
tbHidden.Select(12,5);
tbHidden.SelectionColor:= color.Aqua;
tbHidden.SelectAll;
tbHidden.Copy;
tbPreview.Paste;
tbPreview.ZoomFactor:=2;
MyDelay(100);
tbPreview.Clear;
TbPreview.Zoomfactor:=1;
tbHidden.clear;
tbHidden.Text:='www.thedarkclan.tk';
tbHidden.Select(0, 4);
tbHidden.selectioncolor:= color.white;
tbHidden.Select(4, 3);
tbHidden.selectioncolor:= color.Lime;
tbHidden.Select(7, 4);
tbHidden.selectioncolor:= color.Red;
tbHidden.Select(11, 4);
tbHidden.selectioncolor:= color.blue;
tbHidden.Select(15, 3);
tbHidden.selectioncolor:= color.white;
tbHidden.SelectAll;
tbHidden.Copy;
tbPreview.Paste;
tbPreview.ZoomFactor:=2;
MyDelay(100);
tbPreview.Clear;
TbPreview.Zoomfactor:=1;
end;
if (cbOriginal.checked) then
begin
tbname1.selectAll;
tbName1.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint(TbDelay1.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end;
// Print back the last name.
tbPreview.Paste;
tbPreview.ZoomFactor := 2;
tbpreview.ReadOnly := TRUE;
btclear.Enabled:= TRUE;
end;
// complete
procedure FrmMain.MyDelay(DelayInt:integer);
var usedelay: integer;
begin
// custom delay to execute the Wait commands
if (delayint > 500) then UseDelay := DelayInt * 100
else UseDelay := DelayInt * 250;
delaylong(usedelay);
end;
// complete
------------------END OF PREVIEW ------------------------------
[END OF PART 1]
(I trim it and doc it for u guys)
CHANGING TEXT FROM TEXTBOX IN COLOR
-----------------------------------
[ With all other colors too]
procedure frmMain.btpurple_Click(sender: System.Object; e: System.EventArgs);
begin
if (rtb1.SelectedText <> '') then
begin
rtb1.SelectionColor := ReadColor(6);
end else showmessage('Please select characters before pressing colors');
rtb1.set_SelectionLength(0);
end;
function frmmain.ReadColor(IndexCol:integer):color; // complet
begin
// change the letter in the Textbox with the desired color
If indexcol = 1 then result :=Color.Red;
If indexcol = 2 then result :=Color.Lime else
If indexcol = 3 then result :=Color.Yellow else
if indexcol = 4 then result :=Color.Blue else
if indexcol = 5 then result :=Color.Aqua else
if indexcol = 6 then result :=Color.Fuchsia else
if indexcol = 7 then result :=Color.White else
if indexcol = 8 then result :=Color.Black;
end;
// complete
----------------------END OF COLORS ----------------------------------------
ADDING A NAME AND A DELAY:
--------------------------
procedure frmMain.btadd_Click(sender: System.Object; e: System.EventArgs);
var res : boolean;
ok : boolean;
begin
res:=false;
if (Index = 49) then showmessage('Sorry No More Rooms for name')
else
begin
if (rtb1.Text <> '') and (rtb1delay.text <> '') then
begin
Ok:=AnalyseDelay();
if OK then res:= TRUE
// if (rtb1delay.text <= '9') and (rtb1delay.text >= '0') then res:=TRUE
else
begin
res:=FALSE ;
showmessage ('Please enter a number for your delay');
end ;
if (res = TRUE) then
begin
btPreview.Enabled := TRUE;
res:=false;
delaiApp:= DelaiApp + strtoint(rtb1delay.text);
lbDelay.Text := inttostr(delaiApp);
writename(index);
if (not modifyFlag) then
begin
index:=index+1;
nomtotal:= Nomtotal+1;
btRemove.Enabled := TRUE;
btmodify.Enabled:=TRUE;
cbOriginal.Enabled := TRUE;
end else
begin
modifyFlag := FALSE;
Index := NomTotal + 1;
end ;
end
end
else showmessage ('Please enter both Name and Delay');
end;
procedure FrmMain.Writename(Ind:integer);
begin
(* Analyse the index to see where to copy the name and delay,
copy them and enables the windows*)
TakeOffReadOnly();
if ind = 1 then
begin
rtb1.SelectAll;
rtb1.copy;
tbname1.paste;
rtb1delay.selectall;
rtb1delay.copy;
tbdelay1.Paste;
tbname1.enabled:=TRUE;
tbdelay1.Enabled:= TRUE;
end else if ind = 2 then
begin
rtb1.SelectAll;
rtb1.copy;
tbname2.paste;
rtb1delay.selectall;
rtb1delay.copy;
tbdelay2.Paste;
tbdelay2.enabled:=true;
tbname2.Enabled:=true;
end else if ind = 3 then
begin
[...]
end else if ind = 48 then
begin
rtb1.SelectAll;
rtb1.copy;
tbname48.paste;
rtb1delay.selectall;
rtb1delay.copy;
tbdelay48.Paste;
tbdelay48.enabled:=true;
tbname48.Enabled:=true;
end;
PutBackReadOnly();
Nameclear();
end;
// complete
function FrmMain.AnalyseDelay():boolean;
var len : integer;
ind : integer;
begin
(* make sure no characters except Number in Delay*)
rtb1delay.selectall;
len:=rtb1delay.selectionLength;
ind:=0;
while (len > 0) do
begin
tbActChar.Clear;
Rtb1delay.select(ind, 1);
rtb1delay.copy;
tbActChar.paste;
if (((tbActChar.text) >= '0') and ((tbActChar.text) <= '9')) then
begin
ind := ind + 1;
len := len - 1;
Result:= TRUE;
end else
begin
Result := FALSE;
len:=0;
end;
end;
end;
// complete
----------------------END OF ADD NAME DELAY --------------------------------
REPLACE AND REMOVE FUNCTION:
----------------------------
procedure frmMain.btRemove_Click(sender: System.Object; e: System.EventArgs);
begin
ShowNumbersBt();
Showmessage('Please select which line you want to Remove by clicking the number.'#13#10'You also may press Cancel to Cancel the Remove Operation');
RemoveFlag:=TRUE;
end;
procedure frmMain.btReplace_Click(sender: System.Object; e: System.EventArgs);
begin
if (not modifyFlag) then
begin
ShowNumbersBt();
showmessage('Please click on the line you want to modify'#13#10'You may also Click the Cancel button to cancel');
modifyFlag:=TRUE;
end else Showmessage('Please Use the ADD button to Enter the new name');
end;
procedure frmMain.bt48_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 48) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay48.Text));
choosen:=48;
HideNumbersBt();
ExecuteRemove(Choosen);
end;
end;
procedure frmMain.bt3_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 3) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay3.Text));
choosen:=3;
HideNumbersBt();
ExecuteRemove(Choosen);
end;
end;
procedure frmMain.bt2_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 2) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay2.Text));
choosen:=2;
HideNumbersBt();
ExecuteRemove(Choosen);
end;
end;
procedure frmMain.bt1_Click(sender: System.Object; e: System.EventArgs);
var Choosen:integer;
begin
if (NomTotal < 1) then ShowMessage('Error: The Index Is Invalid')
else begin
delaiApp := DelaiApp - (strtoint(tbdelay1.Text));
choosen:=1;
HideNumbersBt();
executeRemove(choosen);
end;
end;
[... 48 buttons ]
procedure frmMain.ExecuteRemove(Choosen:integer);
begin
(* substract the deleted delay, send the index to CleanUpNames (On Remove)*)
(* substract the deleted delay, Send the index to ClearChoosen (on Modify)*)
if (RemoveFlag) then
begin
FirstTime:= TRUE;
lbDelay.Text := inttostr(delaiApp);
CleanUpNames(choosen);
NomTotal:=NomTotal - 1;
Index:= Index -1;
RemoveFlag:=FALSE;
end;
if (ModifyFlag) then
begin
lbdelay.text := inttostr(delaiApp);
ClearChoosen(Choosen);
Index := Choosen;
end;
end;
// complete
procedure frmMain.CleanUpNames(StartPt:integer);
(* 1st procedure in remove to replace names up 1 case *)
var numberNames : Integer;
LastLine : integer;
begin
LastLine := NomTotal;
NumberNames := NomTotal - startPt;
TakeOffReadOnly();
while(NumberNames > 0) do
begin
NumberNames:=RearrangeNameList(NumberNames, StartPt);
StartPt:=StartPt+1;
end;
ClearTheLastLine(LastLine);
PutBackReadOnly();
end;
// compelete
function frmMain.RearrangeNameList(IndName:integer; StartPt:integer):integer;
begin
// read next line, write it to the new emptied one
if (startPt = 1) then
begin
// Name
Tbname1.clear;
tbname2.SelectAll;
tbname2.copy;
tbname1.Paste;
// Delay
tbdelay1.Clear;
tbdelay2.SelectAll;
tbdelay2.copy;
tbdelay1.Paste;
end;
if (StartPt = 2) then
begin
Tbname2.clear;
tbname3.SelectAll;
tbname3.copy;
tbname2.Paste;
tbdelay2.Clear;
tbdelay3.SelectAll;
tbdelay3.copy;
tbdelay2.Paste;
end;
[...]
if (StartPt = 46) then
begin
Tbname46.clear;
tbname47.SelectAll;
tbname47.copy;
tbname46.Paste;
tbdelay46.Clear;
tbdelay47.SelectAll;
tbdelay47.copy;
tbdelay46.Paste;
end;
if (StartPt = 47) then
begin
Tbname47.clear;
tbname48.SelectAll;
tbname48.copy;
tbname47.Paste;
tbdelay47.Clear;
tbdelay48.SelectAll;
tbdelay48.copy;
tbdelay47.Paste;
end;
// No Start Pt = 48 cause it's the last line.
Result := IndName - 1;
end;
// complete
procedure frmMain.ClearTheLastLine(LastLine:integer);
begin
(* Clear the last line in Remove procedure *)
if (LastLine = 1) then
begin
tbname1.clear;
tbdelay1.clear;
tbname1.enabled:=false;
tbdelay1.enabled:=false;
// exclusif au Last Line = 1
cbOriginal.Enabled := FALSE;
btRemove.enabled := FALSE;
btmodify.Enabled:= FALSE;
btPreview.Enabled := FALSE;
end;
if (LastLine = 2) then
begin
tbname2.clear;
tbdelay2.clear;
tbname2.enabled:=false;
tbdelay2.enabled:=false;
end;
if (LastLine = 3) then
begin
tbname3.clear;
tbdelay3.clear;
tbname3.enabled:=false;
tbdelay3.enabled:=false;
end;
[...]
if (LastLine = 47) then
begin
tbname47.clear;
tbdelay47.clear;
tbname47.enabled:=false;
tbdelay47.enabled:=false;
end;
if (LastLine = 48) then
begin
tbname48.clear;
tbdelay48.clear;
tbname48.enabled:=false;
tbdelay48.enabled:=false;
end;
end;
// complete
procedure frmMain.ClearChoosen(startPt:integer);
begin
// erase the Text of the Textbox choosen on Modify.
takeoffreadonly();
if (startPt = 1) then
begin
rtb1.Text:= tbname1.Text;
rtb1delay.Text := Tbdelay1.text;
tbname1.clear;
tbdelay1.clear;
end;
if (startPt = 2) then
begin
rtb1.Text:= tbname2.Text;
rtb1delay.Text := Tbdelay2.text;
tbname2.clear;
tbdelay2.clear;
end;
[...]
if (startPt = 47) then
begin
rtb1.Text:= tbname47.Text;
rtb1delay.Text := Tbdelay47.text;
tbname47.clear;
tbdelay47.clear;
end;
if (startPt = 48) then
begin
rtb1.Text:= tbname48.Text;
rtb1delay.Text := Tbdelay48.text;
tbname48.clear;
tbdelay48.clear;
end;
putbackreadonly();
end;
----------------------- END OF REMOVE REPLACE ----------------------------------
PREVIEW:
--------
procedure frmMain.btPreview_Click(sender: System.Object; e: System.EventArgs);
var Name: integer;
DelayInt:integer;
begin
tbpreview.ReadOnly := FALSE;
tbPreview.clear;
tbPreview.ZoomFactor := 1 ;
Name:=NomTotal;
if (name >= 1) then
begin
tbname1.selectAll;
tbName1.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint(TbDelay1.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end;
if (name >= 2) then
begin
tbname2.selectAll;
tbName2.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint(TbDelay2.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end;
[...]
if (name >= 48) then
begin
tbname48.selectAll;
tbName48.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint( TbDelay48.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end ;
If (cbsign.checked) then
begin
tbHidden.clear;
tbHidden.Text:='MadeByDarkNameAnim';
tbhidden.Select(0,4);
tbHidden.SelectionColor:= color.Lime;
tbHidden.select(4,2);
tbhidden.SelectionColor:= color.Yellow;
tbHidden.Select(6,4);
tbHidden.selectionColor:= Color.Red;
tbHidden.Select(10,4);
tbhidden.selectionColor:= color.blue;
tbHidden.Select(14,4);
tbHidden.selectionColor:= Color.White;
tbHidden.SelectAll;
tbHidden.Copy;
tbPreview.Paste;
tbPreview.ZoomFactor:=2;
MyDelay(100);
tbPreview.Clear;
TbPreview.Zoomfactor:=1;
end;
if (cbForum.Checked) then
begin
tbHidden.clear;
tbHidden.Text:='Please Dark Forum';
tbHidden.Select(0, 6);
tbHidden.SelectionColor:= color.Aqua;
tbHidden.Select(7,4);
tbHidden.SelectionColor:= Color.Red;
tbHidden.Select(12,5);
tbHidden.SelectionColor:= color.Aqua;
tbHidden.SelectAll;
tbHidden.Copy;
tbPreview.Paste;
tbPreview.ZoomFactor:=2;
MyDelay(100);
tbPreview.Clear;
TbPreview.Zoomfactor:=1;
tbHidden.clear;
tbHidden.Text:='www.thedarkclan.tk';
tbHidden.Select(0, 4);
tbHidden.selectioncolor:= color.white;
tbHidden.Select(4, 3);
tbHidden.selectioncolor:= color.Lime;
tbHidden.Select(7, 4);
tbHidden.selectioncolor:= color.Red;
tbHidden.Select(11, 4);
tbHidden.selectioncolor:= color.blue;
tbHidden.Select(15, 3);
tbHidden.selectioncolor:= color.white;
tbHidden.SelectAll;
tbHidden.Copy;
tbPreview.Paste;
tbPreview.ZoomFactor:=2;
MyDelay(100);
tbPreview.Clear;
TbPreview.Zoomfactor:=1;
end;
if (cbOriginal.checked) then
begin
tbname1.selectAll;
tbName1.copy;
tbPreview.paste;
tbPreview.ZoomFactor := 2;
delayInt:= strtoint(TbDelay1.Text);
MyDelay(delayInt);
tbPreview.Clear;
tbpreview.ZoomFactor:= 1;
end;
// Print back the last name.
tbPreview.Paste;
tbPreview.ZoomFactor := 2;
tbpreview.ReadOnly := TRUE;
btclear.Enabled:= TRUE;
end;
// complete
procedure FrmMain.MyDelay(DelayInt:integer);
var usedelay: integer;
begin
// custom delay to execute the Wait commands
if (delayint > 500) then UseDelay := DelayInt * 100
else UseDelay := DelayInt * 250;
delaylong(usedelay);
end;
// complete
------------------END OF PREVIEW ------------------------------
[END OF PART 1]