SCAR Crashing Bug!!!

[Heroic]

Everytime I start this script, then close the form; it always sends a box saying "scar has found an error, closing" I attached the script for you to see if it is the script or Scar Divi 3.02

[ShawnjohnSJ]

Program AreaFinder;
VAR
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
GroupBox1 : TGroupBox;
ComboBox1 : TComboBox;

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;

Procedure InitForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 550;
frmDesign.Height := 400;
frmDesign.Caption := 'Mike'#39's Area Finder';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [fsBold];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 5;
GroupBox1.Top := 5;
GroupBox1.Width := 532;
GroupBox1.Height := 277;
GroupBox1.Caption := 'Setup';
GroupBox1.TabOrder := 0;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 175;
Label1.Top := 315;
Label1.Width := 51;
Label1.Height := 13;
Label1.Caption := 'Answer:';
Label2 := TLabel.Create(GroupBox1);
Label2.Parent := GroupBox1;
Label2.Left := 15;
Label2.Top := 28;
Label2.Width := 51;
Label2.Height := 13;
Label2.Caption := 'Figure:';
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 62;
ComboBox1.Top := 30;
ComboBox1.Width := 88;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 14;
ComboBox1.Items.Add('Circle');
ComboBox1.Items.Add('Rectangle');
ComboBox1.Items.Add('Square');
ComboBox1.Items.Add('Trapezoid');
ComboBox1.Items.Add('Triangle');
end;

Begin
ClearDebug;
SafeInitForm;
SafeShowFormModal;
FreeForm(frmDesign);
End.


Your welcome. =D

[Heroic]

Program AreaFinder;
VAR
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
GroupBox1 : TGroupBox;
ComboBox1 : TComboBox;

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;

Procedure InitForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 550;
frmDesign.Height := 400;
frmDesign.Caption := 'Mike'#39's Area Finder';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [fsBold];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 5;
GroupBox1.Top := 5;
GroupBox1.Width := 532;
GroupBox1.Height := 277;
GroupBox1.Caption := 'Setup';
GroupBox1.TabOrder := 0;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 175;
Label1.Top := 315;
Label1.Width := 51;
Label1.Height := 13;
Label1.Caption := 'Answer:';
Label2 := TLabel.Create(GroupBox1);
Label2.Parent := GroupBox1;
Label2.Left := 15;
Label2.Top := 28;
Label2.Width := 51;
Label2.Height := 13;
Label2.Caption := 'Figure:';
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 62;
ComboBox1.Top := 30;
ComboBox1.Width := 88;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 14;
ComboBox1.Items.Add('Circle');
ComboBox1.Items.Add('Rectangle');
ComboBox1.Items.Add('Square');
ComboBox1.Items.Add('Trapezoid');
ComboBox1.Items.Add('Triangle');
end;

Begin
ClearDebug;
SafeInitForm;
SafeShowFormModal;
FreeForm(frmDesign);
End.


Your welcome. =D

Thanks.

[ShawnjohnSJ]

Good luck with the script, tell me if you got any more errors.

[ZaSz]

that doesnt work 4 me.. when i put it in and hit play, it brings me to a setup and asks wut shape I want or sumthing???

Don't Gravedig.

This is omost 1 year old...

http://zaszmedia.com/gravedig.gif