SRL Archive - Help

i use createform but it isn't recognized in simba, i haven't found anything in the forums that shows other people successfully using forms in simba. is it possible?

the reason i want a form is so i can draw on it, i cant seem to get the debug windows canvas so i cant draw in there, =\

TForm.Create? Remember that all the form stuff should be in ThreadSafeCalls.

So that's why I've been failing to get my player form off the ground.:duh:

We need some Updated Form Tut's for Simba

~Brak

also if you include srl then you can use CreateForm

~shut

From: Wizzup?
TForm.Create? Remember that all the form stuff should be in ThreadSafeCalls.

After looking in simba wouldn't it be "TForm.Create(nil);"? or should something else go as the parameter?

From: Dgby714
After looking in simba wouldn't it be "TForm.Create(nil);"? or should something else go as the parameter?

Nil would do, yeah.

iv been trying to figure simba out, and havnt found any tutorials for drawing or using forms. It doesnt look like ther are manyt tuts at all. I would really like to see a thread with many differences between scar and simba.

Ohh, i hink i found a bug,

program new;
var form : Tform;
begin
  form := tform.create(nil);
  form.show;
end.

Result is the border of the form appears but the form itself is transparent, and simba crashes.

EDIT: stupid stupid stupid, haha. didnt use threadsafecall.

Edit2:

program new;
var
  form : tform;
  dx1,dx2,dy1,dy2,cr,t,h,k:integer;
  v : TVariantArray;

procedure paint(sender : TObject);
begin
  t := t+1;
  dx1 := round(cr*cos(t)+h)
  dy1 := round(cr*sin(t)+k)
  dx2 := round(cr*cos(t)-h)
  dy2 := round(cr*sin(t)-k)
  form.CANVAS.Ellipse(dx1-cr,dy1-cr,dx2+cr,dy2+cr)
end;

procedure show;
begin
  cr := 2;
  h := 250;
  k := 250;
  form := tform.Create(nil);
  form.width := 500;
  form.height := 500;
  form.show;
  form.ONPAINT := @paint;
end;

begin
  ThreadSafeCall('show', v);
end.

output :
Error: Exception: Invalid type cast at line 30

Am i doing something wrong?

I fixed the tags for you. Use

 and not < simba >. :)

program new;
var
  form : tform;
  dx1,dx2,dy1,dy2,cr,t,h,k:integer;
  v : TVariantArray;

procedure paint(sender : TObject);
begin
  t := t+1;
  dx1 := round(cr*cos(t)+h)
  dy1 := round(cr*sin(t)+k)
  dx2 := round(cr*cos(t)-h)
  dy2 := round(cr*sin(t)-k)
  form.CANVAS.Ellipse(dx1-cr,dy1-cr,dx2+cr,dy2+cr)
end;

procedure InItForm;
begin
  cr := 2;
  h := 250;
  k := 250;
  form := tform.Create(nil);
  form.width := 500;
  form.height := 500;
  form.show;
  form.ONPAINT := @paint;
end;

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


procedure ShowFormModal;
begin
  form.ShowModal;
end;

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

begin
  SafeInitForm;
  SafeShowFormModal;
  ThreadSafeCall('show', v);
end. 

http://villavu.com/forum/showthread.php?t=12000

You should really use ShowModal (as Mr Doctor did) because that way your Form stuff will keep running in the main thread; until the form is closed. If you use just .Show; the method will return immediately and all events (including onPaint) will be called on the script thread. (AFAIK anyway, I really hate forms, did I mention this before? ;) )

sweet, the forms seem overcomplicated. lol

ty for formmodal and the tag change =]. is the source openly available? im wondering because i would like to see the functions and form stuff.

I really wish there was a getdubugcanvas like ther is in scar. painting on canvas is easier. =\

From: g0tp0t
sweet, the forms seem overcomplicated. lol

ty for formmodal and the tag change =]. is the source openly available? im wondering because i would like to see the functions and form stuff.

I really wish there was a getdubugcanvas like ther is in scar. painting on canvas is easier. =\

The source is openly available. http://wizzup.org/simba/article/3

ok, i went but i cant find a way to see the source code, this is written in delphi or pascal right? how was it compiled

From: g0tp0t
ok, i went but i cant find a way to see the source code, this is written in delphi or pascal right? how was it compiled

http://villavu.com/forum/showthread.php?t=58000 :)

can the code be seen without lazarus and fpc?

From: g0tp0t
can the code be seen without lazarus and fpc?

You can view all .pas files in pretty much every text editor, including notepad.

how do i view pas files, i saw the git and clicked and then it wanted to download a file but not a pas

You can also view the raw version on the site. And if you download the source you can just open it in notepad. The .pas files too.

k, ill try that, havnt seen the .pas files, only snapshots.