Code:
Line 432: [Hint] (10376:1): Variable 'OLDMS' never used in script C:\Program Files\Scar\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar
Line 32: [Error] (12299:13): Unknown identifier 'PARENT' in script
parent is used in the memo part but no error...
SCAR Code:
program New;
{.include srl/srl.scar}
var
frmDesign : TForm;
Memo1 : TMemo;
OpenDialog1 : TOpenDialog;
procedure form;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Caption := 'Loader';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
Memo1 := TMemo.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 112;
Memo1.Top := 160;
Memo1.Width := 433;
Memo1.Height := 241;
Memo1.Lines.Add('Memo1');
Memo1.TabOrder := 8;
OpenDialog1 := TOpenDialog.Create(frmDesign);
OpenDialog1.Parent := frmDesign;
OpenDialog1.Title := 'd';
OpenDialog1.Left := 336;
OpenDialog1.Top := 32;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
function ShowFormModal: Boolean;
begin
Result:= False;
//good thing about showmodal is that it can return value
if(frmDesign.ShowModal = mrOk)then
Result:= True;
end;
function SafeShowFormModal: Boolean;
var
v: TVariantArray;
begin
setarraylength(V, 0);
result:= ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal
FreeForm(frmDesign);
end.