SRL Archive - General

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.

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?

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 =)

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

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 :p:)

anyone know anything about showing different forms?

From: ReFLeX
anyone know anything about showing different forms?

You'll have to create another form and call it when needed.

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