SRL Archive - Celebratory Events

So yea 2000 posts…woohoo! I didnt make a millenium last time so i figured i would do one now.

Im 15, and have learned a lot here. So thanks to the Mods and Admins who keep the forum running. Thanks to the devs too! Then theres the people on my msn list who ill mention :)


Markus: pretty cool kinda guy

Raymond: pretty smart kinda guy, who answers my questions

mr. klean: helps me with my computer :p

sp0rk eh: ignores me

santy: is my form related God

Benland: talked to him twice, and tried to sound smart. I failed

Bobarkinator: Talk to him every once in while. Cool kinda guy

Clay(pwnaz0r): smart kinda guy who's nice :)

Hermpie: -.- :p

killerdou: another smart/cool kinda guy

The Rs Monkey: never on

nielsie: dont talk to him much. Smart kinda guy

Sky Scripter: my other form God

other msn people: your names arent self explanitory so i have no clue who u are :p

and here is my picture

http://img388.imageshack.us/img388/1876/94711418xi6.jpg

oh and i was planning on releasing my finished version of this script at my millenium, but i got lazy and couldnt figure out how to fix my errors so, here is my semi-working-as-long-as-you-dont-add-tabs script!!!!

program New;
var
  frmDesign, Options: TForm;
  Words: array of TRichEdit;
  linetabs: array of string;
  Test: TRichEdit;
  New, Open, Save, Exitit, Cut, Copy, Paste, HelpMenu, Help, find,
  edit, FileMenu, About, mover, run, tools, Panel1, Colora, replace,
  Bold, italics, underline, Strike, popout, pout, Option, addtab,
  mover2, debugger, syntaxhigh, codecomp, indent, closetab: TPanel;
  t, movermove, poutt, combosel, movermove2, resize, x: ttimer;
  open1: TOpenDialog;
  Save1: TSaveDialog;
  I, ge, me, g, p, e, jk, b, rgb, gf, gk: integer;
  size, Fonts : TComboBox;
  WordWrap: TCheckBox;
  fontarray: Array[0..28] of String;
  Label1, Label2: TLabel;
  GroupBox1, GroupBox2: TGroupBox;
  Code, CheckBox1, CheckBox3, CheckBox2, CheckBox4: TCheckBox;
  TabSize, SyntaxCatagory: TListBox;
  Color, Okbtn, Cancel: TButton;
  tabs, Tabss: TPageControl;
  Default1: TEdit;
  Color1: TColorDialog;
  finder: TFindDialog;
  replacer: Treplacedialog;
  TabPage: array [1..4] of TTabSheet;
  Status: TStatusBar;
  spanel1, spanel2, spanel3: TStatusPanel;
  Item: array [1..3] of TMENUITEM;
  Wordmenu: TPopUpMenu;
  TabsPage: array of TTabsheet;

procedure makearray;
begin
fontarray[0] := 'Agatha';
fontarray[1] := 'Arial';
fontarray[2] := 'Arial Black';
fontarray[3] := 'Comic Sans MS';
fontarray[4] := 'Courier New';
fontarray[5] := 'Estrangelo Edessa';
fontarray[6] := 'Franklin Gothic Medium';
fontarray[7] := 'Gautami';
fontarray[8] := 'Georgia';
fontarray[9] := 'Impact';
fontarray[10] := 'Latha';
fontarray[11] := 'Lucida Console';
fontarray[12] := 'Lucida Sans Unicode';
fontarray[13] := 'Mangal';
fontarray[14] := 'Marlett';
fontarray[15] := 'Microsoft Sans Serif';
fontarray[16] := 'MV Boli';
fontarray[17] := 'Palatino Linotype';
fontarray[18] := 'Raavi';
fontarray[19] := 'Shruti';
fontarray[20] := 'Sylfaen';
fontarray[21] := 'Symbol';
fontarray[22] := 'Tahoma';
fontarray[23] := 'Times New Roman';
fontarray[24] := 'Trebuchet MS';
fontarray[25] := 'Tunga';
fontarray[26] := 'Verdana';
fontarray[27] := 'Webdings';
fontarray[28] := 'Wingdings';
end;

procedure wordw(sender: Tobject);
begin
  if wordwrap.checked = true then
  begin
    words[b].WordWrap := true;
  end else
  words[b].WordWrap := false;
end;

procedure poutti(sender: Tobject);
begin
  if pout.visible = true then
  begin
    fonts.visible := true;
    wordwrap.visible := true;
    Size.visible := true;
    colora.visible := true;
  end else
  begin
    fonts.visible := false;
    Size.visible := false;
    wordwrap.visible := false;
    Colora.visible := false;
  end;
end;

procedure Syntax(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
end;

procedure Syntaxtoggle(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Syntaxhigh.enabled = true then
  begin
    SyntaxHigh.enabled := false;
    Syntaxhigh.font.color := clgray;
  end;
  if syntaxhigh.enabled = false then
  begin
    SyntaxHigh.enabled := true;
    Syntaxhigh.font.color := clblack;
  end;
end;

procedure Codetoggle(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
end;

procedure debugit(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
end;

procedure indentit(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
end;

procedure comboselect(Sender: TObject);
begin
  words[b].selattributes.Size := StrToIntDef(GetNumbers(Size.Text),10);
  words[b].font.Name := fonts.Text;
end;

procedure highlight(Sender:Tobject);
begin
  color1.Execute;
  if words[b].SelLength = 0 then
    exit;
  Colora.font.color := Color1.Color;
  words[b].selattributes.Color := Color1.Color;
end;

procedure AllAway;
begin
  New.Visible := false;
  Open.Visible := false;
  Save.Visible := false;
  Exitit.Visible := false;
  Cut.Visible := false;
  Copy.Visible := false;
  Paste.Visible := false;
  Help.Visible := false;
  About.Visible := false;
  Run.Visible := false;
  pout.visible := false;
  Option.Visible := false;
  Find.visible := false;
  Replace.visible := false;
  AddTab.visible := false;
  CloseTab.visible := false;
end;

procedure findit(sender: Tobject);
var pu:integer;
begin
  AllAway;
  case sender of
    Find: begin
            finder.Execute;
            while pu < words[b].lines.count do
            begin
              if pu > 0 then
                pu := words[b].SelStart + words[b].SelLength
              else
              pu := 0;
              //words.FindText(finder.FindText, pu,words.Lines.count, );
            end;
          end;
    Replace: begin
               replacer.Execute;
             end;
  end;
end;

procedure Bius(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  case sender of
  bold: begin
          if fsbold in words[b].selattributes.style then
          begin
            words[b].selattributes.style := words[b].selattributes.style - [fsbold];
          end else
          words[b].selattributes.style := words[b].selattributes.style + [fsbold];
        end;
  Italics: begin
             if fsitalic in words[b].selattributes.style then
             begin
               words[b].selattributes.style := words[b].selattributes.style - [fsItalic];
             end else
             words[b].selattributes.style := words[b].selattributes.style + [fsItalic];
           end;
  Underline: begin
               if fsunderline in words[b].selattributes.style then
             begin
               words[b].selattributes.style := words[b].selattributes.style - [fsUnderline];
             end else
             words[b].selattributes.style := words[b].selattributes.style + [fsUnderline];
           end;
  Strike: begin
            if fsstrikeout in words[b].selattributes.style then
            begin
              words[b].selattributes.style := words[b].selattributes.style - [fsstrikeout];
            end else
            words[b].selattributes.style := words[b].selattributes.style + [fsstrikeout];
          end;
  end;
end;

//by MastaRaymond =)
procedure MoveLine;
var
  TotalCount : Integer;
begin;
  TotalCount := -2;
  for g := 0 to words[b].Lines.Count do
  begin;
    TotalCount := TotalCount + Length(words[b].Lines.Strings[g]);
    if words[b].SelStart <= TotalCount then
      Exit;
  end;
end;

procedure addline(sender:tObject);
var bob: integer;
begin
  Moveline;
  bob := words[b].lines.count;
  spanel1.Text := 'Number of Lines: ' + inttostr(bob + 1);
  spanel2.text := 'Current Line: ' + inttostr(g + 1);
end;

procedure pop(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  pout.Visible := true;
end;

procedure MoveMover(Sender:TObject);
var place, place2:integer;
begin
  getmousepos(ge, me);
  place := Mover.Left + mover.Width + (4 * bold.width);
  place2 := Mover2.Left + mover2.Width + (4 * Syntaxhigh.width);
  case Sender of
    Movermove:begin
                Mover.Left := ge - frmdesign.left - 5;
                if me < filemenu.Top + frmdesign.Top + 45 then
                begin
                  mover.top := 0;
                  if mover2.top = mover.top then
                  begin
                    tabs.Top := mover.top + 17;
                    words[b].Top := tabs.top + tabs.height - 3;
                    words[b].height := frmdesign.Height - tabs.height - filemenu.height * 2 - 6;
                  end;
                  if mover.left < HelpMenu.left + helpmenu.width then
                    mover.left := HelpMenu.left + helpmenu.width;
                  if place > popout.left then
                    mover.left := frmDesign.Width - (Mover.Width + (4 * bold.Width) + 6) - popout.Width;
                end;
                if me > filemenu.Top + frmdesign.top + 45 then
                begin
                  mover.top := 17;
                  tabs.Top := mover.top + 17;
                  words[b].Top := tabs.top + tabs.height - 3;
                  words[b].height := frmdesign.Height - tabs.height - filemenu.height * 2 - 6;
                  if place > frmdesign.Width - 7 then
                    Mover.Left := frmDesign.Width - (Mover.Width + (4 * bold.Width) + 6);
                  if mover.left < 0 then
                    mover.left := 0;
                end;
              end;
  Movermove2:begin
               Mover2.Left := ge - frmdesign.left - 5;
               if me < filemenu.Top + frmdesign.Top + 45 then
               begin
                 mover2.top := 0;
               if mover.top = 0 then
                 tabs.Top := mover2.top + 17;
                 words[b].Top := tabs.top + tabs.height - 3;
                 words[b].height := frmdesign.Height- tabs.height - filemenu.height * 2 - 6;
                 if mover2.left < HelpMenu.left + helpmenu.width then
                   mover2.left := HelpMenu.left + helpmenu.width;
                 if place2 > popout.left then
                   mover2.left := frmDesign.Width - (Mover2.Width + (4 * SyntaxHigh.Width) + 6) - popout.Width;
               end;
               if me > filemenu.Top + frmdesign.top + 45 then
               begin
                 mover2.top := 17;
                 tabs.Top := mover2.top + 17;
                 words[b].Top := tabs.top + tabs.height - 3;
                 words[b].height := frmdesign.Height - tabs.height - filemenu.height * 2 - 6;
                 if place2 > frmdesign.Width then
                   Mover2.Left := frmDesign.Width - (Mover2.Width + (4 * SyntaxHigh.Width) + 6);
                 if mover2.left < 0 then
                   mover2.left := 0;
               end;
             end;
  end;
  case sender of
    movermove: begin
                 if {(mover.left < mover2.left + place2/2) and} (mover.top = mover2.top) and (mover.left > mover2.left + place2) then
                 begin
                   mover.left := place2;
                 end;
                 bold.Top := Mover.Top;
                 italics.Top := Mover.Top;
                 underline.Top := Mover.Top;
                 Strike.Top := Mover.Top;
                 bold.Left := Mover.left + mover.width;
                 italics.Left := bold.left + bold.width;
                 underline.Left := italics.left + italics.width;
                 Strike.Left := Underline.left + underline.width;
               end;
    Movermove2: begin
                  SyntaxHigh.Top := Mover2.Top;
                  CodeComp.Top := Mover2.Top;
                  Debugger.Top := Mover2.Top;
                  indent.Top := Mover2.Top;
                  SyntaxHigh.Left := Mover2.left + mover2.width;
                  CodeComp.Left := SyntaxHigh.left + SyntaxHigh.width;
                  Debugger.Left := CodeComp.left + CodeComp.width;
                  indent.Left := Debugger.left + Debugger.width;
                end;
  end;
end;

procedure DragMover(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  case sender of
    mover: MoverMove.enabled := true;
    Mover2: Movermove2.enabled := true;
  end;
  AllAway;
end;

procedure letmover(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MoverMove.enabled := false;
  MoverMove2.enabled := false;
end;

procedure CutCopyPaste(Sender:Tobject);
begin
  AllAway;
  case sender of
    cut: words[b].CutToClipboard;
    Copy: words[b].CopyToClipboard;
    Paste: words[b].PasteFromClipboard;
  end;
end;

procedure Ok(Sender: TObject);
begin
  AllAway;
  case sender of
  About: Showmessage('I was trying to make' +
    'hard to do forms. And This is what i ' +
    'made. Ive had help from Santa Claus. :D. ' +
    'Thank You for using Scar NotePad!');
  Help: ShowMessage('Need help?...Too bad  ;)');
  end;
end;

procedure EExit(Sender:Tobject);
begin
  frmdesign.ModalResult:= mrOk;
end;

procedure SaveClick(Sender:Tobject);
var I: integer;
begin
  Save1.Filter := '.txt';
  Save1.Execute;
  if not pos(Save1.Filter,save1.FileName)<>0 then
    save1.filename := save1.filename + Save1.filter;
  I := Rewritefile(save1.filename, false);
  if writefilestring(i , Words[b].Text) then
    closefile(i);
  AllAway;
end;

procedure FileOpen(Sender: TObject);
var i: integer;
    s: string;
begin
  open1.Execute;
  i := OpenFile(Open1.filename, false);
  ReadFileString(i, s, filesize(i));
  Words[b].text := s;
  tabspage[b].caption := extractfilename(open1.FileName);
  closefile(i);
  AllAway;
end;

procedure NewClick(Sender: TObject);
begin
  Words[b].text := '';
  AllAway;
end;

procedure PanelClick(Sender: TObject);
begin
  Case sender of
  FileMenu: begin
            cut.Visible := false;
            Copy.Visible := false;
            Paste.Visible := false;
            Help.visible := false;
            About.Visible := false;
            pout.visible:= false;
            Option.Visible := false;
            find.Visible := false;
            replace.Visible := false;
            if New.visible = false then
            begin
              New.Visible := true;
              Open.Visible := true;
              Save.Visible := true;
              Exitit.Visible := true;
              Run.Visible := true;
              AddTab.visible := true;
              CloseTab.visible := true;
            end else
            begin
              New.Visible := false;
              Open.Visible := false;
              Save.Visible := false;
              Exitit.Visible := false;
              Run.Visible := false;
              AddTab.visible := false;
              CloseTab.visible := false;
            end;
          end;
  Edit: begin
            New.Visible := false;
            Open.Visible := false;
            Save.Visible := false;
            Exitit.Visible := false;
            Help.visible := false;
            About.Visible := false;
            Run.Visible := false;
            pout.visible:= false;
            Option.Visible := false;
            find.Visible := false;
            replace.Visible := false;
            AddTab.visible := false;
            CloseTab.visible := false;
            if Cut.visible = false then
            begin
              Cut.Visible := true;
              Copy.Visible := true;
              Paste.Visible := true;
            end else
            begin
              Cut.Visible := false;
              Copy.Visible := false;
              Paste.Visible := false;
            end;
          end;
  Tools: begin
           cut.Visible := false;;
           Copy.Visible := false;
           Paste.Visible := false;
           Help.visible := false;
           About.Visible := false;
           pout.visible:= false;
           AddTab.visible := false;
           CloseTab.visible := false;
           New.Visible := false;
           Open.Visible := false;
           Save.Visible := false;
           Exitit.Visible := false;
           Run.Visible := false;
           if option.visible = true then
           begin
             Option.Visible := false;
             find.Visible := false;
             replace.Visible := false;
           end else
           Option.Visible := true;
           find.Visible := true;
           Replace.Visible := true;
         end;
  HelpMenu: begin
             New.Visible := false;
             Open.Visible := false;
             Save.Visible := false;
             Exitit.Visible := false;
             Cut.Visible := false;
             Copy.Visible := false;
             Paste.Visible := false;
             Run.Visible := false;
             pout.visible:= false;
             Option.Visible := false;
             Find.visible := false;
             Replace.visible := false;
             AddTab.visible := false;
             CloseTab.visible := false;
             if Help.Visible = false then
             begin
               Help.visible := true;
               About.Visible := true;
             end else
             begin
               Help.visible := false;
               About.Visible := false;
             end;
           end;
  frmdesign, bold, Italics, Underline, Strike:begin
                                                New.Visible := false;
                                                Open.Visible := false;
                                                Save.Visible := false;
                                                Exitit.Visible := false;
                                                Cut.Visible := false;
                                                Copy.Visible := false;
                                                Paste.Visible := false;
                                                Help.visible := false;
                                                About.Visible := false;
                                                Run.Visible := false;
                                                pout.visible := false;
                                                Option.Visible := false;
                                                Find.visible := false;
                                                Replace.visible := false;
                                                AddTab.visible := false;
                                                CloseTab.visible := false;
                                              end;
  end;
  cut.bringtofront;
  Copy.bringtofront;
  Paste.bringtofront;
  Help.bringtofront;
  About.bringtofront;
  pout.bringtofront;
  Option.bringtofront;
  find.bringtofront;
  replace.bringtofront;
  New.bringtofront;
  Open.bringtofront;
  Save.bringtofront;
  Exitit.bringtofront;
  Run.bringtofront;
  AddTab.bringtofront;
  CloseTab.bringtofront;
end;

procedure clickpop(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Pt : TPoint;
begin
  New.Visible := false;
  Open.Visible := false;
  Save.Visible := false;
  Exitit.Visible := false;
  Cut.Visible := false;
  Copy.Visible := false;
  Paste.Visible := false;
  Help.visible := false;
  About.Visible := false;
  Run.Visible := false;
  Option.Visible := false;
  Find.visible := false;
  Replace.visible := false;
  AddTab.visible := false;
  CloseTab.visible := false;
  case sender of
  popout:begin
           if pout.Visible = false then
           begin
             pout.visible := true
           end else
           begin
             pout.visible := false;
           end;
         end;
  words[b]:begin
          if (Button = mbRight) then
          begin
            getmousePos(x,y);
            PT := words[b].CLIENTTOSCREEN(Point(x,y));
            Case sender of
              Wordmenu : wordmenu.POPUP(x,y);
            end;
          end;
        end;
  end;
end;

procedure WordsClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  New.Visible := false;
  Open.Visible := false;
  Save.Visible := false;
  Exitit.Visible := false;
  Cut.Visible := false;
  Copy.Visible := false;
  Paste.Visible := false;
  Help.visible := false;
  About.Visible := false;
  Run.Visible := false;
  Find.visible := false;
  Replace.visible := false;
  options.visible := false;
  AddTab.visible := false;
  CloseTab.visible := false;
end;

procedure ResetColours(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  FileMenu.Font.Color := clblack;
  New.Font.Color := clblack;
  Open.Font.Color := clblack;
  Save.Font.Color := clblack;
  Exitit.Font.Color := clblack;
  Edit.Font.Color := clblack;
  Cut.Font.Color := clblack;
  Copy.Font.Color := clblack;
  Paste.Font.Color := clblack;
  HelpMenu.Font.Color := clblack;
  Help.Font.Color := clblack;
  About.Font.Color := clblack;
  Bold.Font.Color := clblack;
  Italics.Font.Color := clblack;
  Underline.Font.Color := clblack;
  Strike.Font.Color := clblack;
  Run.Font.Color := clBlack;
  popout.FONT.color:= clblack;
  Option.font.Color := clBlack;
  Tools.font.Color := clBlack;
  Find.Font.Color := clblack;
  Replace.Font.Color := clblack;
  AddTab.Font.Color := clblack;
  CloseTab.Font.Color := clblack;
  if syntaxhigh.enabled = true then
    syntaxhigh.FONT.Color := clblack;
  if Codecomp.enabled = true then
    Codecomp.FONT.Color := clblack;
  debugger.font.color := clblack;
  indent.Font.color := clblack;
end;

Procedure MouseOver(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var l:TShiftstate;
begin
  resetColours(frmdesign, l, 4,6);
  case Sender of
    FileMenu : begin
                 FileMenu.Font.Color := clRed;
                 if (Cut.visible = true) or (Help.visible = true) or (Option.visible = true) then
                   PanelClick(FileMenu);
               end;
    New : New.Font.Color := clRed;
    Open : Open.Font.Color := clRed;
    Save : Save.Font.Color := clRed;
    Run : Run.Font.Color := clred;
    AddTab : AddTab.Font.Color := clred;
    CloseTab : CloseTab.Font.Color := clred;
    Exitit : Exitit.Font.Color := clRed;
    Edit : begin
               Edit.Font.Color := clRed;
               if (New.visible = true) or (Help.visible = true) or (Option.visible = true) then
                 PanelClick(Edit);
             end;
    Cut : Cut.Font.Color := clRed;
    Copy : Copy.Font.Color := clRed;
    Paste : Paste.Font.Color := clRed;
    Tools: begin
             Tools.Font.Color := clRed;
             if (Cut.visible = true) or (New.visible = true) or (Help.visible = true) then
               PanelClick(Tools);
           end;
    Find : Find.Font.Color := clred;
    Replace : Replace.Font.Color := clred;
    Option: Option.FONT.Color := clred;
    HelpMenu : begin
               HelpMenu.Font.Color := clRed;
               if (Cut.visible = true) or (New.visible = true) or (Option.visible = true) then
                 PanelClick(HelpMenu);
              end;
    Help : Help.Font.Color := clRed;
    About : About.Font.Color := clRed;
    Bold : Bold.Font.Color := clRed;
    Italics : Italics.Font.Color := clRed;
    UnderLine : Underline.Font.Color := clRed;
    Strike : Strike.Font.Color := clRed;
    popout : popout.FONT.Color := clred;
    syntaxhigh: begin
                  if syntaxhigh.enabled = true then
                    syntaxhigh.FONT.Color := clred;
                end;
    CodeComp: begin
                if Codecomp.enabled = true then
                  Codecomp.FONT.Color := clred;
              end;
    Debugger: debugger.font.color := clred;
    indent: indent.Font.color := clred;
  end;
  case Sender of
  FileMenu, New, Edit, Open, Save, run, exitit, cut, copy, paste,helpmenu,help, about,bold,
  italics, underline, strike, Tools: pout.visible := false;
  end;
end;

procedure TabShow(Sender:Tobject);
begin
  case sender of
    TabPage[1]: begin
                  label1.visible := true;
                  default1.Visible := true;
                end;
    TabPage[2]: begin
                  tabsize.Visible := true;
                  Label2.Visible := true;
                  Groupbox2.Visible := true;
                  CheckBox1.Visible := true;
                  groupbox1.Visible := true;
                  code.Visible := true;
                end;
    TabPage[3]: begin
                  Test.Visible := true;
                  SyntaxCatagory.Visible := true;
                  Color.Visible := true;
                  Checkbox2.Visible := true;
                  checkbox3.Visible := true;
                  checkbox4.Visible := true;
                end;
    TabPage[4]: begin
                  end;
  end;
end;

procedure TabHide(Sender:Tobject);
begin
  case sender of
    TabPage[1]: begin
                  label1.visible := false;
                  default1.Visible := false;
                end;
    TabPage[2]: begin
                  tabsize.Visible := false;
                  Label2.Visible := false;
                  Groupbox2.Visible := false;
                  CheckBox1.Visible := false;
                  groupbox1.Visible := false;
                  code.Visible := false;
                end;
    TabPage[3]: begin
                  Test.Visible := false;
                  SyntaxCatagory.Visible := false;
                  Color.Visible := false;
                  Checkbox2.Visible := false;
                  checkbox3.Visible := false;
                  checkbox4.Visible := false;
                end;
    TabPage[4]: begin
                end;
  end;
end;

procedure OptionsOk(Sender:Tobject);
begin
  case sender of
    okbtn: begin
             Options.ModalResult := mrok;
             //change temp vars to real vars
           end;
    Cancel: Options.ModalResult := mrok;
  end;
end;

procedure TabChange(sender:Tobject);
begin
  for gk := 0 to high(Tabspage) do
  begin
    if sender = tabspage[gk] then
      words[gk].visible := true;
    linetabs[b] := words[b].text;
  end;
end;

procedure TabChangeback(sender:Tobject);
begin
  for gf := 0 to high(tabspage) do
  begin
    if sender = tabspage[gf] then
      words[gf].visible := false;
  end;
end;

procedure AddTabs(sender:Tobject);
var saa,neweg:integer;
begin
  AllAway;
  case sender of
    AddTab: begin
              SetArrayLength(TabsPage, GetArrayLength(TabsPage) + 1);
              rgb := high(TabsPage);
              TabsPage[rgb] := TTabSheet.Create(frmdesign);
              TabsPage[rgb].PageControl := Tabs;
              TabsPage[rgb].onhide := @TabChange;
              TabsPage[rgb].onshow := @TabChangeback;
              TabsPage[rgb].caption := 'untitled';
              SetArrayLength(Words, GetArrayLength(words) + 1);
              words[rgb] := TRichEdit.create(frmdesign);
              with words[rgb] do
              begin
                Parent := frmDesign;
                Left := 0;
                Top := 31 + tabs.height;
                Width := frmdesign.width;
                Height := frmdesign.height - 83 - tabs.Height;
                TabOrder := 22;
                OnMouseMove := @ResetColours;
                Onmousedown := @clickpop;
                OnChange := @addline;
                OnKeydown := @Syntax;
              end;
              SetArrayLength(Linetabs, GetArrayLength(linetabs) + 1);
              for saa := 0 to high(linetabs) do
                words[saa].text := linetabs[saa];
            end;
    CloseTab: begin
                if Length(Tabspage) = 1 then exit;
                for neweg := b to high(tabspage) do
                begin
                  tabspage[neweg] := tabspage[neweg + 1];
                  words[neweg].text := words[neweg + 1].text;
                end;
                SetLength(tabspage, getarraylength(tabspage) - 1);
              end;
  end;
end;

procedure Resizeform(sender:Tobject);
var bx: integer;
begin
  tabs.Width := frmdesign.width;
  popout.Left := frmdesign.Width - popout.Width - 7;
  pout.Left := frmdesign.width - popout.width - 6 - pout.width;
  colora.left := pout.Left + 5;
  Fonts.left := pout.Left + 5;
  Size.left := pout.Left + 5;
  wordwrap.left := pout.Left + 5;
  for bx := 0 to high(words) do
  begin
    words[bx].Left := 0;
    words[bx].Width := frmdesign.width;
    words[bx].Height := frmdesign.height - (tabs.top + tabs.Height - 3) - status.height;
    words[bx].Top := tabs.top + tabs.Height - 3;
  end;
end;

procedure xit(sender:Tobject);
var pkh:integer;
begin
  for pkh := 0 to high(Tabspage) do
  begin
    if tabspage[pkh].visible = true then
    begin
      b := pkh;
      break;
    end;
  end;
end;

procedure initform2;
begin
  Options := CreateForm;
  with Options do
  begin
    Left := 430;
    Top := 204;
    Width := 326;
    Height := 329;
    Caption := 'Options';
    Color := clBtnFace;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    Visible := false;
    PixelsPerInch := 96;
    FormStyle := fsStayOnTop;
    borderstyle := bsToolWindow;
  end;
  Tabss := TPageControl.Create(Options);
  with tabss do
  begin
    Parent := Options;
    Left := 0;
    Top := 0;
    Width := 321;
    Height := 25;
  end;
  for I := 1 to 4 do
  begin
    TabPage[I] := TTabSheet.Create(Options);
    TabPage[I].PageControl := Tabss;
    TabPage[i].onhide := @Tabhide;
    TabPage[i].onshow := @TabShow;
  end;
  TabPage[1].Caption := 'IDE Settings';
  TabPage[2].Caption := 'Scripting Settings';
  TabPage[3].Caption := 'Syntax Highlighting';
  TabPage[4].Caption := 'Options';
  Panel1 := TPanel.Create(Options);
  with panel1 do
  begin
    Parent := Options;
    Left := 3;
    Top := 26;
    Width := 313;
    Height := 273;
    TabOrder := 2;
  end;
  //////////////////////1////////////////////
  Label1 := TLabel.Create(Panel1);
  with label1 do
  begin
    Parent := Panel1;
    Left := 18;
    Top := 31;
    Width := 117;
    Height := 20;
    Caption := 'Default Location:';
    Font.Color := clWindowText;
    Font.Height := -16;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    ParentFont := False;
  end;
  Default1 := TEdit.Create(Options);
  with default1 do
  begin
    Parent := Options;
    Left := 144;
    Top := 56;
    Width := 121;
    Height := 21;
    TabOrder := 1;
  end;
  /////////////////////////////////////////////////
  GroupBox2 := TGroupBox.Create(Panel1);
  with groupbox2 do
  begin
    Parent := Panel1;
    Left := 8;
    Top := Tabss.Top + Tabss.height - 12;
    Width := 297;
    Height := 137;
    Caption := 'Tabs';
    TabOrder := 0;
    Visible := false;
  end;
  GroupBox1 := TGroupBox.Create(Panel1);
  with groupbox1 do
  begin
    Parent := Panel1;
    Left := 8;
    Top := Groupbox2.Top + groupbox2.Height + 3;
    Width := 297;
    Height := 73;
    Caption := 'Code Completion';
    TabOrder := 1;
    Visible := false;
  end;
  Code := TCheckBox.Create(GroupBox1);
  with Code do
  begin
    Parent := GroupBox1;
    Left := 33;
    Top := groupbox1.top + groupbox1.height/2;
    Width := 105;
    Height := 17;
    Caption := 'Use Code Completion';
    Checked := True;
    State := cbChecked;
    TabOrder := 0;
    Visible := false;
  end;
  CheckBox1 := TCheckBox.Create(GroupBox1);
  with checkbox1 do
  begin
    Parent := GroupBox1;
    Left := 16;
    Top := 31;
    Width := 161;
    Height := 17;
    Caption := 'Use Code Completion';
    Checked := True;
    State := cbChecked;
    TabOrder := 1;
    Visible := false;
  end;
  Label2 := TLabel.Create(GroupBox2);
  with label2 do
  begin
    Parent := GroupBox2;
    Left := 16;
    Top := 24;
    Width := 42;
    Height := 13;
    Caption := 'Tab Size';
    Visible := false;
  end;
  TabSize := TListBox.Create(GroupBox2);
  with TabSize do
  begin
    Parent := GroupBox2;
    Left := 104;
    Top := 16;
    Width := 57;
    Height := 18;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    ItemHeight := 11;
    for p := 1 to 10 do
      items.add(inttostr(p));
    ParentFont := False;
    TabOrder := 0;
    Visible := false;
  end;
  ////////////////////////////////////////////
  Test := TRichEdit.Create(Panel1);
  with test do
  begin
    Parent := Panel1;
    Left := 128;
    Top := 8;
    Width := 177;
    Height := 121;
    Lines.Add('{This is a comment}');
    Lines.Add('procedure Test(a: integer);');
    Lines.Add('begin');
    Lines.Add('  n := 4 + 5;');
    Lines.Add('  Caption := '#39'This is a good test'#39';');
    Lines.Add('end;');
   { test.selstart := 0;
    test.SelLength := 20;
    test.selattributes.Color := clgreen;
    test.selstart := 20
    test.sellength := 9;
    test.selattributes.style := [fsbold];
    test.selstart := 48;
    test.SelLength := 7;
    test.selattributes.style := [fsbold];
    test.selstart := 68;
    test.SelLength := 1;
    test.selattributes.color := clnavy;
    test.selstart := 64;
    test.SelLength := 1;
    test.selattributes.color := clnavy;
    test.selstart := 84;
    test.SelLength := 22;
    test.selattributes.color := clfuchsia;
    test.selstart := 109;
    test.SelLength := 3;
    test.selattributes.style := [fsbold];  }
    TabOrder := 2;
    Visible := false;
  end;
  SyntaxCatagory := TListBox.Create(Panel1);
  with SyntaxCatagory do
  begin
    Parent := Panel1;
    Left := 8;
    Top := 8;
    Width := 113;
    Height := 121;
    ItemHeight := 13;
    TabOrder := 3;
    Visible := false;
  end;
  Color := TButton.Create(Panel1);
  with Color do
  begin
    Parent := Panel1;
    Left := 16;
    Top := 136;
    Width := 73;
    Height := 25;
    Caption := 'Color';
    TabOrder := 4;
    Visible := false;
  end;
  CheckBox2 := TCheckBox.Create(Panel1);
  with CheckBox2 do
  begin
    Parent := Panel1;
    Left := 192;
    Top := 136;
    Width := 97;
    Height := 17;
    Caption := 'Bold';
    TabOrder := 5;
    Visible := false;
  end;
  CheckBox3 := TCheckBox.Create(Panel1);
  with CheckBox3 do
  begin
    Parent := Panel1;
    Left := 192;
    Top := 152;
    Width := 97;
    Height := 17;
    Caption := 'Italic';
    TabOrder := 6;
    Visible := false;
  end;
  CheckBox4 := TCheckBox.Create(Panel1);
  with Checkbox4 do
  begin
    Parent := Panel1;
    Left := 192;
    Top := 168;
    Width := 97;
    Height := 17;
    Caption := 'Underline';
    TabOrder := 7;
    Visible := false;
  end;
  //////////////////////////////////////////////
  Okbtn := TButton.Create(Panel1);
  with okbtn do
  begin
    Parent := Panel1;
    Left := 72;
    Top := 240;
    Width := 75;
    Height := 25;
    Caption := 'Ok';
    TabOrder := 8;
    OnClick := @Optionsok;
  end;
  Cancel := TButton.Create(Panel1);
  with Cancel do
  begin
    Parent := Panel1;
    Left := 152;
    Top := 240;
    Width := 75;
    Height := 25;
    Caption := 'Cancel';
    TabOrder := 9;
    onclick := @OptionsOk;
  end;
  Color1 := TColorDialog.Create(Options);
end;

procedure SafeInitForm2;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm2', v);
end;

procedure ShowFormModal2;
begin
  Options.ShowModal;
end;

procedure SafeShowFormModal2;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal2', v);
end;

procedure Optionss(Sender : Tobject);
begin
  AllAway;
  try
    SafeInitForm2;
    SafeShowFormModal2;
  finally
  freeform(Options);
  except
    writeln('omg!! meh!!');
  end;
end;
/////////////////////////////////////////
procedure InitForm;
var {q,} r : integer;
begin
  frmDesign := CreateForm;
  with frmdesign do
  begin
    Left := 250;
    Top := 114;
    //BorderStyle := bsToolWindow;
    Caption := 'Scar Notepad';
    ClientHeight := 543;
    ClientWidth := 690;
    Font.Color := clWindowText;
    autoscroll := false;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    Visible := false;
    PixelsPerInch := 96;
    OnMouseMove := @ResetColours;
    Onclick := @PanelClick;
  end;
  MoverMove := TTimer.create(frmdesign);
  MoverMove.interval := 20;
  MoverMove.ontimer := @MoveMover;
  movermove.enabled := false;
  MoverMove2 := TTimer.create(frmdesign);
  MoverMove2.interval := 20;
  MoverMove2.ontimer := @MoveMover;
  movermove2.enabled := false;
  t := TTimer.create(frmdesign);
  t.INTERVAL := 20;
  t.ONTIMER := @addline;
  poutt := TTimer.create(frmdesign);
  poutt.INTERVAL := 10;
  poutt.ONTIMER := @poutti;
  combosel := TTimer.create(frmdesign);
  combosel.interval := 100;
  combosel.ONTIMER := @comboselect;
  resize := ttimer.create(frmdesign);
  resize.interval := 10;
  resize.ontimer := @resizeform;
  x := ttimer.create(frmdesign);
  x.interval := 10;
  x.ontimer := @xit;
  Tabs := TPageControl.create(frmdesign);
  with tabs do
  begin
    parent := frmdesign;
    left := 0;
    width := frmdesign.width;
    top := 34;
    height := 25;
    sendtoback;
  end;
  SetArraylength(Tabspage, 1);
  tabspage[0] := TTabsheet.create(frmdesign);
  TabsPage[0].PageControl := Tabs;
  TabsPage[0].caption := 'untitled';
//where u type
  SetArrayLength(words, 1);
  Words[0] := Trichedit.Create(frmDesign);
  with Words[0] do
  begin
    Parent := frmDesign;
    Left := 0;
    Top := 30 + tabs.height;
    Width := frmdesign.width;
    Height := frmdesign.height - 73 - tabs.Height;
    TabOrder := 22;
    OnMouseMove := @ResetColours;
    Onmousedown := @clickpop;
    OnChange := @addline;
    OnKeydown := @Syntax;
  end;
//File Menu
  FileMenu := TPanel.Create(frmDesign);
  with FileMenu do
  begin
    Parent := frmDesign;
    Left := 0;
    Top := 0;
    Width := 65;
    Height := 17;
    BevelInner := bvRaised;
    Caption := 'File';
    Color := clMedGray;
    TabOrder := 0;
    font.Color := clBlack;
    Onclick := @PanelClick;
    OnMouseMove := @MouseOver;
  end;
  New := TPanel.Create(frmDesign);
  with New do
  begin
    Parent := frmDesign;
    Left := FileMenu.Left;
    Top := 16;
    Width := FileMenu.width;
    Height := FileMenu.height;
    Caption := 'New';
    Color := clMedGray;
    TabOrder := 1;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    OnClick := @NewClick;
  end;
  Open := TPanel.Create(frmDesign);
  with Open do
  begin
    Parent := frmDesign;
    Left := FileMenu.Left;
    Top := 32;
    Width := FileMenu.width;
    Height := FileMenu.height;
    Caption := 'Open';
    Color := clMedGray;
    TabOrder := 2;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    OnClick := @FileOpen;
  end;
  Save := TPanel.Create(frmDesign);
  with Save do
  begin
    Parent := frmDesign;
    Left := FileMenu.Left;
    Top := 48;
    Width := FileMenu.width;
    Height := FileMenu.height;
    Caption := 'Save';
    Color := clMedGray;
    TabOrder := 3;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    onclick := @SaveClick;
  end;
  AddTab := TPanel.Create(frmDesign);
  with AddTab do
  begin
    Parent := frmDesign;
    Left := FileMenu.Left;
    Top := Save.Top + Save.Height;
    Width := FileMenu.width;
    Height := FileMenu.height;
    Caption := 'Add Tab';
    Color := clMedGray;
    TabOrder := 3;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    onclick := @AddTabs;
  end;
  CloseTab := TPanel.Create(frmDesign);
  with CloseTab do
  begin
    Parent := frmDesign;
    Left := FileMenu.Left;
    Top := AddTab.top + Addtab.height;
    Width := FileMenu.width;
    Height := FileMenu.height;
    Caption := 'Close Tab';
    Color := clMedGray;
    TabOrder := 3;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    onclick := @AddTabs;
  end;
  Run := TPanel.Create(frmDesign);
  with Run do
  begin
    Parent := frmDesign;
    Left := FileMenu.Left;
    Top := closeTab.top + closeTab.height;
    Width := FileMenu.width;
    Height := FileMenu.height;
    Caption := 'Run';
    Color := clMedGray;
    TabOrder := 3;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
  end;
  Exitit := TPanel.Create(frmDesign);
  with Exitit do
  begin
    Parent := frmDesign;
    Left := FileMenu.Left;
    Top := Run.top + Run.height;
    Width := FileMenu.width;
    Height := FileMenu.height;
    Caption := 'Exit';
    Color := clMedGray;
    TabOrder := 4;
    Visible := false;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    onclick := @EExit;
  end;
//Edit Menu
  Edit := TPanel.Create(frmDesign);
  with Edit do
  begin
    Parent := frmDesign;
    Left := FileMenu.left + FileMenu.width - 1;
    Top := FileMenu.Top;
    Width := FileMenu.Width;
    Height := FileMenu.Height;
    BevelInner := bvRaised;
    Caption := 'Edit';
    Color := clMedGray;
    TabOrder := 6;
    font.Color := clblack;
    ONCLICK := @PanelClick;
    OnMouseMove := @MouseOver;
  end;
  Cut := TPanel.Create(frmDesign);
  with Cut do
  begin
    Parent := frmDesign;
    Left := Edit.left;
    Top := edit.Top + edit.Height;
    Width := FileMenu.Width;
    Height := Edit.height;
    Caption := 'Cut';
    Color := clMedGray;
    TabOrder := 7;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    OnClick := @CutCopyPaste;
  end;
  Copy := TPanel.Create(frmDesign);
  with Copy do
  begin
    Parent := frmDesign;
    Left := Edit.left;
    Top := Cut.Top + Cut.Height;
    Width := FileMenu.Width;
    Height := Edit.height;
    Caption := 'Copy';
    Color := clMedGray;
    TabOrder := 8;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    OnClick := @CutCopyPaste;
  end;
  Paste := TPanel.Create(frmDesign);
  with Paste do
  begin
    Parent := frmDesign;
    Left := Edit.left;
    Top := Copy.Top + Copy.Height;
    Width := FileMenu.Width;
    Height := Edit.height;
    Caption := 'Paste';
    Color := clMedGray;
    TabOrder := 9;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    ONCLICK := @CutCopyPaste;
    end;
//Tools Menu
  Tools := TPanel.create(frmdesign);
  with tools do
  begin
    parent := frmdesign;
    left := Edit.Left + edit.Width - 1;
    top := Edit.top;
    width := edit.Width;
    Height := edit.height;
    BevelInner := bvRaised;
    Caption := 'Tools';
    font.color := clblack;
    font.Color := clBlack;
    Color := clmedGray;
    Onclick := @PanelClick;
    OnMouseMove := @MouseOver;
  end;
  Find := TPanel.create(frmdesign);
  with Find do
  begin
    parent := frmdesign;
    left := tools.left;
    top := edit.top + edit.Height;
    width := tools.width;
    Height := tools.height;
    Caption := 'Find';
    visible := false;
    Color := clmedGray;
    font.Color := clBlack;
    Onclick := @Findit;
    OnMouseMove := @MouseOver;
  end;
  replace := TPanel.create(frmdesign);
  with replace do
  begin
    parent := frmdesign;
    left := tools.left;
    top := find.top + find.height;
    width := tools.width;
    Height := tools.height;
    Caption := 'Replace';
    visible := false;
    Color := clmedGray;
    font.Color := clBlack;
    Onclick := @Findit;
    OnMouseMove := @MouseOver;
  end;
  Option := TPanel.create(frmdesign);
  with Option do
  begin
    parent := frmdesign;
    left := tools.left;
    top := replace.top + replace.height;
    width := tools.width;
    Height := tools.height;
    Caption := 'Options';
    visible := false;
    Color := clmedGray;
    font.Color := clBlack;
    Onclick := @Optionss;
    OnMouseMove := @MouseOver;
  end;
//Help Menu
  HelpMenu := TPanel.Create(frmDesign);
  with HelpMenu do
  begin
    Parent := frmDesign;
    Left := tools.left + tools.Width - 1;
    Top := Tools.Top;
    Width := tools.width;
    Height := Tools.Height;
    BevelInner := bvRaised;
    Caption := 'Help';
    Color := clMedGray;
    TabOrder := 10;
    font.Color := clblack;
    ONCLICK := @PanelClick;
    OnMouseMove := @MouseOver;
  end;
  Help := TPanel.Create(frmDesign);
  With Help do
  begin
    Parent := frmDesign;
    Left := Helpmenu.Left;
    Top := HelpMenu.top + HelpMenu.height;
    Width := HelpMenu.width;
    Height := HelpMenu.height;
    Caption := 'Help';
    Color := clMedGray;
    TabOrder := 11;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    OnClick:= @Ok;
  end;
  About := TPanel.Create(frmDesign);
  with About do
  begin
    Parent := frmDesign;
    Left := HelpMenu.left;
    Top := Help.top + Help.height;
    Width := HelpMenu.width;
    Height := HelpMenu.height;
    Caption := 'About';
    Color := clMedGray;
    TabOrder := 20;
    Visible := False;
    font.Color := clblack;
    OnMouseMove := @MouseOver;
    OnClick:= @Ok;
  end;
//buttons;
  Mover := TPanel.create(frmdesign);
  with Mover do
  begin
    parent := frmdesign;
    height :=  FileMenu.Height;
    width := 7;
    Left := FileMenu.Width + HelpMenu.width + Edit.width + 2;
    Top := 17;
    OnMouseDown := @dragMover;
    onmouseup := @letMover;
    OnMouseMove := @ResetColours;
    cursor := crsizeall;
    SendToBack;
  end;
  Bold := TPanel.create(frmdesign);
  with Bold do
  begin
    Parent := frmDesign;
    Height := FileMenu.height;
    Width := bold.height;
    Font.Color := clblack;
    Top := mover.top;
    Left := Mover.Left + mover.width;
    Caption := 'B';
    FONT.style := [fsbold];
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
    OnMouseDown := @Bius;
    SendToBack;
  end;
  Italics:= TPanel.create(frmdesign);
  with italics do
  begin
    parent := frmdesign;
    height := Bold.height;
    width := bold.width;
    Font.Color := clblack;
    Top := mover.top;
    Left := bold.Left + bold.width;
    Font.style :=[fsitalic,fsbold];
    caption := 'i';
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
    OnMouseDown := @Bius;
    SendToBack;
  end;
  UnderLine:= TPanel.create(frmdesign);
  with Underline do
  begin
    parent := frmdesign;
    height := Bold.height;
    width := bold.width;
    Font.Color := clblack;
    Top := mover.top;
    Left := italics.Left + italics.width;
    Font.style := [fsunderline];
    caption := 'U';
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
    OnMouseDown := @Bius;
    SendToBack;
  end;
  Strike:= TPanel.create(frmdesign);
  with Strike do
  begin
    parent := frmdesign;
    height := Bold.height;
    width := bold.width;
    Font.Color := clblack;
    Top := mover.top;
    Left := Underline.Left + underline.width;
    Font.style :=[fsStrikeout];
    caption := 'S';
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
    OnMouseDown := @Bius;
    SendToBack;
  end;
  PopOut:= TPanel.create(frmdesign);
  with Popout do
  begin
    parent := frmdesign;
    height := Bold.height;
    width := bold.width;
    Font.Color := clblack;
    Top := 0;
    Left := frmdesign.width - popout.width - 6;
    font.style := [fsbold];
    caption := '<';
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
    Onmousedown := @clickPop;
  end;
  pOut:= TPanel.create(frmdesign);
  with pout do
  begin
    parent := frmdesign;
    height := 100;
    width := 155;
    Font.Color := clblack;
    Top := 0;
    Left := frmdesign.width - popout.width - 6 - pout.width;
    font.style := [fsbold];
    caption := '';
    visible := false;
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
  end;
  Colora := Tpanel.Create(frmDesign);
  with Colora do
  begin
    Parent := frmDesign;
    Left := pout.left + 5;
    Top := 5;
    Width := 145;
    Height := 21;
    Visible := false;
    TabOrder := 8;
    Caption := 'Text Color';
    OnClick := @Highlight;
  end;
  Fonts := TCombobox.Create(frmDesign);
  with fonts do
  begin
    Parent := frmDesign;
    Left := pout.left + 5;
    Top := 31;
    Width := 145;
    Height := 21;
    Visible := false;
    TabOrder := 8;
    Text := 'Font';
    for e := 0 to high(fontarray) do
      Items.add(fontarray[e]);
  end;
  WordWrap := TCheckBox.Create(frmDesign);
  with wordwrap do
  begin
    Parent := frmDesign;
    Left := pout.left + 5;
    Top := 78;
    Width := 97;
    Height := 17;
    Caption := 'Word Wrap';
    Checked := True;
    State := cbChecked;
    TabOrder := 8;
    wordwrap.OnClick := @wordw;
  end;
  Size := TComboBox.Create(frmDesign);
  with Size do
  begin
    Parent := frmDesign;
    Left := pout.left + 5;
    Top := 55;
    Width := 145;
    Height := 21;
    Visible := false;
    ItemHeight := 13;
    TabOrder := 8;
    Text := 'Font Size';
    for r := 1 to 25 do
      Size.items.add(inttostr(r));
  end;
  Status := TStatusBar.create(frmdesign);
  Status.Parent := frmDesign;
  sPanel1 := Status.Panels.Add;
  spanel1.Text := 'Number of Lines: 1';
  spanel1.Width := 140;
  sPanel2 := Status.Panels.Add;
  spanel2.Text := 'Current Line:';
  spanel2.Width := 120;
  sPanel3 := Status.Panels.Add;
  spanel3.Text := 'Done';
  spanel3.Width := 100;

  Open1 := TOpenDialog.Create(frmDesign);
  Save1 := TSaveDialog.Create(frmDesign);
  Finder := TFindDialog.Create(frmdesign);
  Replacer := TReplaceDialog.Create(frmdesign);
  Color1 := TColorDialog.Create(frmDesign);
  WordMenu := TPopupMenu.Create(frmdesign);
  for jk := 1 to 3 do
  begin
    Item[jk]:= TMenuItem.Create(frmdesign);
    case jk of
      1 : Item[jk].CAPTION:= 'Cut';
      2 : Item[jk].CAPTION:= 'Copy';
      3 : Item[jk].Caption := 'Paste';
    end;
    WordMenu.Items.Add(Item[jk]);
  end;
  Mover2 := TPanel.create(frmdesign);
  with Mover2 do
  begin
    parent := frmdesign;
    height :=  FileMenu.Height;
    width := 7;
    Left := FileMenu.Width + HelpMenu.width + Edit.width + Tools.Width + 2;
    Top := 0;
    OnMouseDown := @dragMover;
    onmouseup := @letMover;
    OnMouseMove := @ResetColours;
    cursor := crsizeall;
    SendToBack;
  end;
  SyntaxHigh := TPanel.create(frmdesign);
  with Syntaxhigh do
  begin
    parent := frmdesign;
    Height := FileMenu.height;
    Width := syntaxhigh.height;
    Font.Color := clblack;
    Top := mover2.top;
    Left := Mover2.Left + mover2.width;
    Caption := 'S';
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
    OnMouseDown := @syntaxtoggle;
    SendToBack;
  end;
  CodeComp:= TPanel.create(frmdesign);
  with codecomp do
  begin
    parent := frmdesign;
    height := SyntaxHigh.height;
    width := SyntaxHigh.width;
    Font.Color := clblack;
    Top := mover2.top;
    Left := SyntaxHigh.Left + SyntaxHigh.width;
    caption := 'C';
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
    OnMouseDown := @Codetoggle;
    SendToBack;
  end;
  Debugger:= TPanel.create(frmdesign);
  with debugger do
  begin
    parent := frmdesign;
    height := SyntaxHigh.height;
    width := SyntaxHigh.width;
    Font.Color := clblack;
    Top := mover2.top;
    Left := CodeComp.Left + CodeComp.width;
    caption := 'D';
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
    OnMouseDown := @Debugit;
    SendToBack;
  end;
  Indent:= TPanel.create(frmdesign);
  with indent do
  begin
    parent := frmdesign;
    height := SyntaxHigh.height;
    width := SyntaxHigh.width;
    Font.Color := clblack;
    Top := mover2.top;
    Left := Debugger.Left + Debugger.width;
    caption := 'I';
    OnMouseMove := @MouseOver;
    OnClick := @PanelClick;
    OnMouseDown := @Indentit;
    SendToBack;
  end;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

begin
  MakeArray;
  try
    SafeInitForm;
    SafeShowFormModal;
  finally
  FreeForm(frmdesign);
  except
    WriteLn('meh!!!');
  end;
end.

You look like me!
Congratulations.
EDIT: Your first picture does.

Congratulations! Haha!! You still haven't finished the script…good job on even attempting it though. I would have never bothered.

Congrats. "In your hat", eh? :)

@Wizzup?: Are you Jesus?!

From: Dan Cardin

and here is my picture

http://img388.imageshack.us/img388/1876/94711418xi6.jpg

Steal my picture much? :( Gj spamming your way to 2k milestone;).

From: [-jesus-]
Gj spamming your way to 2k milestone;).

:( thats not very nice…

its obviously me, looks nothing like any of you!!(maybe wizzup? because my telepathicness cant get all the way to his house :()

though its nice to see that im loved, by the four people that responded :p

GRATS

i dont understand what is your script suppose to be :P

From: p1nky
GRATS

i dont understand what is your script suppose to be :P

ill second that….gratz anyway :p

Just to spoil any fun for the OP there was white text under Jesus. http://img388.imageshack.us/img388/1876/94711418xi6.jpg

Enjoy!

the script was supposed to be like scar itself, just without the compiling, with the option to be a basic text editor -.-

Congratulations Dan :)

Also, people, please do not call people spammers in their millenium threads, it's not very nice…


About Wizzup… This is what I got by googling his name :rolleyes:

http://doctorbulldog.files.wordpress.com/2007/10/jesus111007_468x591.jpg

From: [-jesus-]
Gj spamming your way to 2k milestone;).

LMAO?
Dan isn't spamming.

Dan, Congratz.

Hy, wanna see jesus? This one is our computer teacher. Wizzup looks same after some 50 years I think:p

http://www.estpak.ee/~rakkekk/Opetajad/avo.htm

No offence Wizzup:D

http://img388.imageshack.us/img388/1876/94711418xi6.jpg

So Dan's a pimp now? :D & I was jking about the spam :(

Gratz! I'm hurt though…. Everyone forgets lil' ol'Hobbit :( ;)