Results 1 to 7 of 7

Thread: Form Help

  1. #1
    Join Date
    Mar 2006
    Posts
    141
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Form Help

    Ok I'm making a Tutorial Help script type thing, and need help with forms. Run the script in scar first and you'll get what im saying.

    Code:
    program helper;
    
    var
    frmDesign : TForm;
      GroupBox1 : TGroupBox;
      ListBox1 : TListBox;
      Button1 : TButton;
      Button2 : TButton;
      
    procedure buttonclick(sender: TObject);
    begin
      openwebpage('');
    end;
    
    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 257;
    frmDesign.Top := 128;
    frmDesign.Width := 416;
    frmDesign.Height := 331;
    frmDesign.Caption := 'SCAR/SRL Helper - By ReFLeX';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'Verdana';
    frmDesign.Font.Style := [fsBold];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    GroupBox1 := TGroupBox.Create(frmDesign);
    GroupBox1.Parent := frmDesign;
    GroupBox1.Left := 2;
    GroupBox1.Top := 1;
    GroupBox1.Width := 401;
    GroupBox1.Height := 263;
    GroupBox1.Caption := 'Tutorials';
    GroupBox1.TabOrder := 10;
    ListBox1 := TListBox.Create(frmDesign);
    ListBox1.Parent := frmDesign;
    ListBox1.Left := 7;
    ListBox1.Top := 15;
    ListBox1.Width := 391;
    ListBox1.Height := 242;
    ListBox1.ItemHeight := 13;
    ListBox1.Items.Add('[SRL] User.scar and UserManager.scar - RsN');
    ListBox1.Items.Add('[SRL] How to use SRL Succesfully - Sdcit');
    ListBox1.Items.Add('[SCAR] Color Picking Tutorial - Sdcit');
    ListBox1.Items.Add('[SCAR] Procedures - Sdcit');
    ListBox1.Items.Add('[SCAR] Arrays - XxKanexX');
    ListBox1.Items.Add('[SCAR] Bitmaps - XxKanexX');
    ListBox1.Items.Add('[SCAR] Basics - XxKanexX');
    ListBox1.Items.Add('[SCAR] Forms - mr pali');
    ListBox1.Items.Add('[SCAR] DTM'#39's - yohojo8');
    ListBox1.Items.Add('[SCAR] Your First Script - Bebemycat2');
    ListBox1.Items.Add('[SCAR] Findcolorspiral/Findobj - WhiteShadow');
    ListBox1.Items.Add('[SCAR] Radial Walk - WT-Fakawi');
    ListBox1.Items.Add('[SCAR] Bitmap - jagex_fagex');
    ListBox1.Items.Add('[SCAR] Basic Scar Variables and Colors - brownsymcard');
    ListBox1.TabOrder := 8;
    Button1 := TButton.Create(frmDesign);
    Button1.OnClick:= @buttonclick;
    Button1.Parent := frmDesign;
    Button1.Left := 3;
    Button1.Top := 267;
    Button1.Width := 88;
    Button1.Height := 25;
    Button1.Caption := 'Show';
    Button1.TabOrder := 9;
    Button2 := TButton.Create(frmDesign);
    Button2.Parent := frmDesign;
    Button2.Left := 92;
    Button2.Top := 267;
    Button2.Width := 87;
    Button2.Height := 25;
    Button2.Caption := 'Close';
    Button2.TabOrder := 11;
    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;//main loop
    SafeInitForm;
    SafeShowFormModal;
    end.
    I want after someone selects something from the listbox, and clicks show, it'll open up a webpage with that tutorial. I could do it using a bunch of buttons, but it would'nt look right. Also I know how to do this in VB, but how do I open another form? would it be like form2.show? also to close it , would it be frmdesign.hide?

  2. #2
    Join Date
    Feb 2006
    Location
    Las Vegas, NV
    Posts
    939
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    if you are planning on doing it in vb, yes it would be frm2.show or whatever your form name is.. to hide it use frm2.hide =)
    Busy with real life. I'll still be around occasionally.
    Current Mood:


  3. #3
    Join Date
    Feb 2006
    Posts
    406
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    listbox1.itemindex

    is the number of the box selected, -1 if none selected

    i havent done much with listboxes, but i dont think you can add a web address string onto an item, so you might have to go:

    case listbox1.itemindex of
    -1: not selected
    0:user.scar tut address
    1:how to use srl address
    ...
    13:scar variables address
    end

    ...something like that

  4. #4
    Join Date
    Feb 2006
    Posts
    241
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    Code:
    Program helper;
    
    Var
      WhichTutorial : String;
      frmDesign : TForm;
      GroupBox1 : TGroupBox;
      ListBox1 : TListBox;
      Button1 : TButton;
      Button2 : TButton;
    
    
    Procedure OpenTutorial;
     Begin;
       Case WhichTutorial Of
        '[SRL] User.scar and UserManager.scar - RsN' : OpenWebPage('http://www.google.com');
        '[SRL] How to use SRL Succesfully - Sdcit' : OpenWebPage('http://www.google.com');
        '[SCAR] Color Picking Tutorial - Sdcit' : OpenWebPage('http://www.google.com');
        '[SCAR] Procedures - Sdcit' : OpenWebPage('http://www.google.com');
        '[SCAR] Arrays - XxKanexX' : OpenWebPage('http://www.google.com');
        '[SCAR] Bitmaps - XxKanexX' : OpenWebPage('http://www.google.com');
        '[SCAR] Basics - XxKanexX' : OpenWebPage('http://www.google.com');
        '[SCAR] Forms - mr pali' : OpenWebPage('http://www.google.com');
        '[SCAR] DTM`s - yohojo8' : OpenWebPage('http://www.google.com');
        '[SCAR] Your First Script - Bebemycat2' : OpenWebPage('http://www.google.com');
        '[SCAR] Findcolorspiral/Findobj - WhiteShadow' : OpenWebPage('http://www.google.com');
        '[SCAR] Radial Walk - WT-Fakawi' : OpenWebPage('http://www.google.com');
        '[SCAR] Bitmap - jagex_fagex' : OpenWebPage('http://www.google.com');
        '[SCAR] Basic Scar Variables and Colors - brownsymcard' : OpenWebPage('http://www.google.com');
       End;
     End;
    
    Procedure ButtonClick(Sender: TObject);
     Var
       T : Integer;
     Begin
       For T := 0 To ListBox1.ITEMS.Count-1 Do
        If (ListBox1.SELECTED[T]) Then
         WhichTutorial := ListBox1.ITEMS.Strings[T];
       OpenTutorial;
     End;
     
    Procedure Closeform(Sender: TObject);
     Begin
       FrmDesign.caption:= frmDesign.caption + '*' ;
       FrmDesign.ModalResult:= mrOK;
     End;
    
    procedure InitForm;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 257;
    frmDesign.Top := 128;
    frmDesign.Width := 416;
    frmDesign.Height := 331;
    frmDesign.Caption := 'SCAR/SRL Helper - By ReFLeX';
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'Verdana';
    frmDesign.Font.Style := [fsBold];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    GroupBox1 := TGroupBox.Create(frmDesign);
    GroupBox1.Parent := frmDesign;
    GroupBox1.Left := 2;
    GroupBox1.Top := 1;
    GroupBox1.Width := 401;
    GroupBox1.Height := 263;
    GroupBox1.Caption := 'Tutorials';
    GroupBox1.TabOrder := 10;
    ListBox1 := TListBox.Create(frmDesign);
    ListBox1.Parent := frmDesign;
    ListBox1.Left := 7;
    ListBox1.Top := 15;
    ListBox1.Width := 391;
    ListBox1.Height := 242;
    ListBox1.ItemHeight := 13;
    ListBox1.Items.Add('[SRL] User.scar and UserManager.scar - RsN');
    ListBox1.Items.Add('[SRL] How to use SRL Succesfully - Sdcit');
    ListBox1.Items.Add('[SCAR] Color Picking Tutorial - Sdcit');
    ListBox1.Items.Add('[SCAR] Procedures - Sdcit');
    ListBox1.Items.Add('[SCAR] Arrays - XxKanexX');
    ListBox1.Items.Add('[SCAR] Bitmaps - XxKanexX');
    ListBox1.Items.Add('[SCAR] Basics - XxKanexX');
    ListBox1.Items.Add('[SCAR] Forms - mr pali');
    ListBox1.Items.Add('[SCAR] DTM'#39's - yohojo8');
    ListBox1.Items.Add('[SCAR] Your First Script - Bebemycat2');
    ListBox1.Items.Add('[SCAR] Findcolorspiral/Findobj - WhiteShadow');
    ListBox1.Items.Add('[SCAR] Radial Walk - WT-Fakawi');
    ListBox1.Items.Add('[SCAR] Bitmap - jagex_fagex');
    ListBox1.Items.Add('[SCAR] Basic Scar Variables and Colors - brownsymcard');
    ListBox1.TabOrder := 8;
    Button1 := TButton.Create(frmDesign);
    Button1.OnClick:= @buttonclick;
    Button1.Parent := frmDesign;
    Button1.Left := 3;
    Button1.Top := 267;
    Button1.Width := 88;
    Button1.Height := 25;
    Button1.Caption := 'Show';
    Button1.TabOrder := 9;
    Button2 := TButton.Create(frmDesign);
    Button2.OnClick:= @CloseForm;;
    Button2.Parent := frmDesign;
    Button2.Left := 92;
    Button2.Top := 267;
    Button2.Width := 87;
    Button2.Height := 25;
    Button2.Caption := 'Close';
    Button2.TabOrder := 11;
    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;//main loop
    SafeInitForm;
    SafeShowFormModal;
    end.
    Just replace the google.coms with the actual web page Please give some credit if you release this

  5. #5
    Join Date
    Mar 2006
    Posts
    141
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    anyone know anything about showing different forms?

  6. #6
    Join Date
    Feb 2006
    Posts
    582
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ReFLeX
    anyone know anything about showing different forms?
    You'll have to create another form and call it when needed.
    Free File Hosting
    No download timers!

    Rifkwtf.com

  7. #7
    Join Date
    Mar 2006
    Posts
    141
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Would I just use ThreadSafeCall('Form_name', v);?

Thread Information

Users Browsing this Thread

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

Posting Permissions

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