Results 1 to 8 of 8

Thread: Drop All Button

  1. #1
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Drop All Button

    Hehe this was very simple to make. Just used DropAll; by SRL and added a little bit. I have always wanted for a drop all button on rs. So just hit CTRL ALT R and it has your inv get dropped =)

    -Harry


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  2. #2
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Heh

    Try making it into a form. A button that stays up, even if you click out of it, and if someone clicks the button, it'll drop everything.

  3. #3
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    ...and make the form stay on top (frmdesign.style:=fstayontop or something of that manner)
    Interested in C# and Electrical Engineering? This might interest you.

  4. #4
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    I am gonna have to learn how to do forums but that is a good idea.

    -Harry


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  5. #5
    Join Date
    Dec 2006
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey I made it for ya it was easy

    SCAR Code:
    program New;
    {.include SRL\SRL.Scar}
    var
      frmDesign : TForm;
      Button1 : TButton;
      ProgressBar1 : TProgressBar;


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

    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 258;
    frmDesign.Top := 114;
    frmDesign.Width := 435;
    frmDesign.Height := 274;
    frmDesign.Caption := 'frmDesign';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := True;
    frmDesign.PixelsPerInch := 96;
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.Left := 307;
    Button1.Top := 171;
    Button1.Width := 75;
    Button1.Height := 25;
    Button1.Caption := 'Drop';
    Button1.TabOrder := 8;
    ProgressBar1 := TProgressBar.Create(frmDesign);
    ProgressBar1.Parent := frmDesign;
    ProgressBar1.Left := 272;
    ProgressBar1.Top := 213;
    ProgressBar1.Width := 150;
    ProgressBar1.Height := 17;
    ProgressBar1.TabOrder := 9;
    end;

    procedure ShowFormModal;
    begin
    frmDesign.ShowModal;
    end;

    procedure ButtonClick(sender: TObject);
    begin
     frmDesign.Caption:= frmDesign.Caption + '.';
     frmDesign.ModalResult:= mrOk;
     DropAll;
    end

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

    procedure SetupScript;
    begin
     SetUpSRL;
    SafeInitForm;
    SafeShowFormModal;
    end;


    begin
    SetupScript;
    end.

  6. #6
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    reece844, you didnt add srl to it and didtn add setupsrl;

  7. #7
    Join Date
    Dec 2006
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oops ill fix that soz changing rigt now

  8. #8
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 30 should be false, line 61 needs semicolon, and you dont have an OnClick for your button. Is thsi your first time makign a form? lol

    EDIT: i dotn want ot post it fixed because i want you to learn btw.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. How to use the Edit Button
    By Torrent of Flame in forum Forum Guides
    Replies: 24
    Last Post: 06-18-2012, 05:34 AM
  2. Help with clicking this button.
    By turner850 in forum OSR Help
    Replies: 8
    Last Post: 01-22-2008, 07:02 AM
  3. Replies: 7
    Last Post: 01-18-2008, 11:16 PM
  4. Button pop up.
    By darksid in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 11-20-2006, 01:41 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •