Make A Form For Me Within 5 hour from when i posted this post 0.o?
Kotsz@live.nl
Thank You
Hermpie
Make A Form For Me Within 5 hour from when i posted this post 0.o?
Kotsz@live.nl
Thank You
Hermpie
~Hermen
No. Do it yourself lazy!
Nava2
Writing an SRL Member Application | [Updated] Pascal Scripting Statements
My GitHub
Progress Report:13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you have serious physchological problems 13:46 <@BenLand100> HE GETS IT! 13:46 <@BenLand100> HE FINALLY GETS IT!!!!1
Scar > Tools > Form Editor, save it.
Ron's DFM Parser > paste > Done!
SCAR Code:program New;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Label10 : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
Edit6 : TEdit;
Edit7 : TEdit;
Edit8 : TEdit;
Edit9 : TEdit;
Edit10 : TEdit;
Edit11 : TEdit;
Edit12 : TEdit;
Edit13 : TEdit;
Edit14 : TEdit;
Edit15 : TEdit;
Edit16 : TEdit;
Edit17 : TEdit;
Edit18 : TEdit;
Edit19 : TEdit;
Edit20 : TEdit;
Procedure InitForm;
Begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 339;
frmDesign.Height := 413;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBlack;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 32;
Label1.Top := 24;
Label1.Width := 284;
Label1.Height := 52;
Label1.Caption := 'Hermpie';
Label1.Font.Color := clFuchsia;
Label1.Font.Height := -64;
Label1.Font.Name := 'Super Mario Bros.';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 56;
Label2.Top := 80;
Label2.Width := 222;
Label2.Height := 20;
Label2.Caption := ' Monastery Monk Killer + Healer';
Label2.Font.Color := clFuchsia;
Label2.Font.Height := -16;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 232;
Label3.Top := 128;
Label3.Width := 36;
Label3.Height := 13;
Label3.Caption := 'Const 1';
Label3.Font.Color := clFuchsia;
Label3.Font.Height := -11;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 232;
Label4.Top := 152;
Label4.Width := 36;
Label4.Height := 13;
Label4.Caption := 'Const 2';
Label4.Font.Color := clFuchsia;
Label4.Font.Height := -11;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 232;
Label5.Top := 176;
Label5.Width := 36;
Label5.Height := 13;
Label5.Caption := 'Const 3';
Label5.Font.Color := clFuchsia;
Label5.Font.Height := -11;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 232;
Label6.Top := 200;
Label6.Width := 36;
Label6.Height := 13;
Label6.Caption := 'Const 4';
Label6.Font.Color := clFuchsia;
Label6.Font.Height := -11;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [];
Label6.ParentFont := False;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 24;
Label7.Top := 104;
Label7.Width := 38;
Label7.Height := 13;
Label7.Caption := 'Player 1';
Label7.Font.Color := clFuchsia;
Label7.Font.Height := -11;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [];
Label7.ParentFont := False;
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 24;
Label8.Top := 224;
Label8.Width := 38;
Label8.Height := 13;
Label8.Caption := 'Player 3';
Label8.Font.Color := clFuchsia;
Label8.Font.Height := -11;
Label8.Font.Name := 'MS Sans Serif';
Label8.Font.Style := [];
Label8.ParentFont := False;
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 136;
Label9.Top := 104;
Label9.Width := 38;
Label9.Height := 13;
Label9.Caption := 'Player 2';
Label9.Font.Color := clFuchsia;
Label9.Font.Height := -11;
Label9.Font.Name := 'MS Sans Serif';
Label9.Font.Style := [];
Label9.ParentFont := False;
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 136;
Label10.Top := 224;
Label10.Width := 38;
Label10.Height := 13;
Label10.Caption := 'Player 4';
Label10.Font.Color := clFuchsia;
Label10.Font.Height := -11;
Label10.Font.Name := 'MS Sans Serif';
Label10.Font.Style := [];
Label10.ParentFont := False;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 16;
Edit1.Top := 120;
Edit1.Width := 89;
Edit1.Height := 21;
Edit1.Color := clFuchsia;
Edit1.TabOrder := 8;
Edit1.Text := 'Edit1';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 16;
Edit2.Top := 144;
Edit2.Width := 89;
Edit2.Height := 21;
Edit2.Color := clFuchsia;
Edit2.TabOrder := 9;
Edit2.Text := 'Edit2';
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 16;
Edit3.Top := 168;
Edit3.Width := 89;
Edit3.Height := 21;
Edit3.Color := clFuchsia;
Edit3.TabOrder := 10;
Edit3.Text := 'Edit3';
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 16;
Edit4.Top := 192;
Edit4.Width := 89;
Edit4.Height := 21;
Edit4.Color := clFuchsia;
Edit4.TabOrder := 11;
Edit4.Text := 'Edit4';
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 272;
Edit5.Top := 120;
Edit5.Width := 49;
Edit5.Height := 21;
Edit5.Color := clFuchsia;
Edit5.TabOrder := 12;
Edit5.Text := 'Edit5';
Edit6 := TEdit.Create(frmDesign);
Edit6.Parent := frmDesign;
Edit6.Left := 272;
Edit6.Top := 144;
Edit6.Width := 49;
Edit6.Height := 21;
Edit6.Color := clFuchsia;
Edit6.TabOrder := 13;
Edit6.Text := 'Edit6';
Edit7 := TEdit.Create(frmDesign);
Edit7.Parent := frmDesign;
Edit7.Left := 272;
Edit7.Top := 168;
Edit7.Width := 49;
Edit7.Height := 21;
Edit7.Color := clFuchsia;
Edit7.TabOrder := 14;
Edit7.Text := 'Edit7';
Edit8 := TEdit.Create(frmDesign);
Edit8.Parent := frmDesign;
Edit8.Left := 272;
Edit8.Top := 192;
Edit8.Width := 49;
Edit8.Height := 21;
Edit8.Color := clFuchsia;
Edit8.TabOrder := 15;
Edit8.Text := 'Edit8';
Edit9 := TEdit.Create(frmDesign);
Edit9.Parent := frmDesign;
Edit9.Left := 16;
Edit9.Top := 240;
Edit9.Width := 89;
Edit9.Height := 21;
Edit9.Color := clFuchsia;
Edit9.TabOrder := 16;
Edit9.Text := 'Edit9';
Edit10 := TEdit.Create(frmDesign);
Edit10.Parent := frmDesign;
Edit10.Left := 16;
Edit10.Top := 264;
Edit10.Width := 89;
Edit10.Height := 21;
Edit10.Color := clFuchsia;
Edit10.TabOrder := 17;
Edit10.Text := 'Edit10';
Edit11 := TEdit.Create(frmDesign);
Edit11.Parent := frmDesign;
Edit11.Left := 16;
Edit11.Top := 288;
Edit11.Width := 89;
Edit11.Height := 21;
Edit11.Color := clFuchsia;
Edit11.TabOrder := 18;
Edit11.Text := 'Edit11';
Edit12 := TEdit.Create(frmDesign);
Edit12.Parent := frmDesign;
Edit12.Left := 16;
Edit12.Top := 312;
Edit12.Width := 89;
Edit12.Height := 21;
Edit12.Color := clFuchsia;
Edit12.TabOrder := 19;
Edit12.Text := 'Edit12';
Edit13 := TEdit.Create(frmDesign);
Edit13.Parent := frmDesign;
Edit13.Left := 128;
Edit13.Top := 192;
Edit13.Width := 89;
Edit13.Height := 21;
Edit13.Color := clFuchsia;
Edit13.TabOrder := 20;
Edit13.Text := 'Edit12';
Edit14 := TEdit.Create(frmDesign);
Edit14.Parent := frmDesign;
Edit14.Left := 128;
Edit14.Top := 168;
Edit14.Width := 89;
Edit14.Height := 21;
Edit14.Color := clFuchsia;
Edit14.TabOrder := 21;
Edit14.Text := 'Edit11';
Edit15 := TEdit.Create(frmDesign);
Edit15.Parent := frmDesign;
Edit15.Left := 128;
Edit15.Top := 144;
Edit15.Width := 89;
Edit15.Height := 21;
Edit15.Color := clFuchsia;
Edit15.TabOrder := 22;
Edit15.Text := 'Edit10';
Edit16 := TEdit.Create(frmDesign);
Edit16.Parent := frmDesign;
Edit16.Left := 128;
Edit16.Top := 120;
Edit16.Width := 89;
Edit16.Height := 21;
Edit16.Color := clFuchsia;
Edit16.TabOrder := 23;
Edit16.Text := 'Edit9';
Edit17 := TEdit.Create(frmDesign);
Edit17.Parent := frmDesign;
Edit17.Left := 128;
Edit17.Top := 240;
Edit17.Width := 89;
Edit17.Height := 21;
Edit17.Color := clFuchsia;
Edit17.TabOrder := 24;
Edit17.Text := 'Edit9';
Edit18 := TEdit.Create(frmDesign);
Edit18.Parent := frmDesign;
Edit18.Left := 128;
Edit18.Top := 264;
Edit18.Width := 89;
Edit18.Height := 21;
Edit18.Color := clFuchsia;
Edit18.TabOrder := 25;
Edit18.Text := 'Edit10';
Edit19 := TEdit.Create(frmDesign);
Edit19.Parent := frmDesign;
Edit19.Left := 128;
Edit19.Top := 288;
Edit19.Width := 89;
Edit19.Height := 21;
Edit19.Color := clFuchsia;
Edit19.TabOrder := 26;
Edit19.Text := 'Edit11';
Edit20 := TEdit.Create(frmDesign);
Edit20.Parent := frmDesign;
Edit20.Left := 128;
Edit20.Top := 312;
Edit20.Width := 89;
Edit20.Height := 21;
Edit20.Color := clFuchsia;
Edit20.TabOrder := 27;
Edit20.Text := 'Edit12';
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
SafeInitForm;
SafeShowFormModal;
end.
took 10 mins
If that is the mairo font then it wont work on many computers
Edit:It is that font. it works on mine because I used rays game.
dont use that!!! the code!! its so...ugly!(no offense)
when i get back i need to fix it! So no one touch it!(ill edit this post when i get back)
SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
Programming Projects: NotePad | Tetris | Chess
I can make one if you want...
There are currently 1 users browsing this thread. (0 members and 1 guests)