Skip to content

Commit 5ff4a71

Browse files
RetroNick2020RetroNick2020
committed
JSON for everyone!
1 parent f7be343 commit 5ff4a71

15 files changed

Lines changed: 2097 additions & 413 deletions

‎animate.lfm‎

Lines changed: 182 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
object AnimationForm: TAnimationForm
2-
Left = 408
2+
Left = 359
33
Height = 747
4-
Top = 210
4+
Top = 325
55
Width = 1149
66
Caption = 'Sprite Animation'
77
ClientHeight = 747
@@ -355,12 +355,11 @@ object AnimationForm: TAnimationForm
355355
AnchorSideLeft.Side = asrBottom
356356
AnchorSideBottom.Control = SimPanel
357357
AnchorSideBottom.Side = asrBottom
358-
Left = 160
358+
Left = 149
359359
Height = 15
360360
Top = 233
361361
Width = 35
362362
Anchors = [akLeft, akBottom]
363-
BorderSpacing.Left = 11
364363
BorderSpacing.Bottom = 7
365364
Caption = 'Speed:'
366365
end
@@ -371,16 +370,14 @@ object AnimationForm: TAnimationForm
371370
AnchorSideRight.Side = asrBottom
372371
AnchorSideBottom.Control = SimPanel
373372
AnchorSideBottom.Side = asrBottom
374-
Left = 199
373+
Left = 184
375374
Height = 25
376375
Top = 230
377-
Width = 136
378-
Max = 20
376+
Width = 677
379377
Min = 1
380378
Position = 4
381379
OnChange = MovementSpeedTrackBarChange
382-
Anchors = [akLeft, akBottom]
383-
BorderSpacing.Left = 4
380+
Anchors = [akLeft, akRight, akBottom]
384381
TabOrder = 1
385382
end
386383
end
@@ -437,19 +434,11 @@ object AnimationForm: TAnimationForm
437434
end
438435
end
439436
object Timer1: TTimer
440-
Enabled = False
441437
OnTimer = Timer1Timer
442438
OnStartTimer = Timer1StartTimer
443439
Left = 224
444440
Top = 312
445441
end
446-
object SimTimer: TTimer
447-
Enabled = False
448-
Interval = 60
449-
OnTimer = SimTimerTimer
450-
Left = 224
451-
Top = 376
452-
end
453442
object MainMenu1: TMainMenu
454443
Left = 312
455444
Top = 312
@@ -519,6 +508,182 @@ object AnimationForm: TAnimationForm
519508
OnClick = FileExportPascalArrayClick
520509
end
521510
end
511+
object MnuAnimExpAB: TMenuItem
512+
Caption = 'AmigaBasic'
513+
object AD_AB: TMenuItem
514+
Tag = 13
515+
Caption = 'Animation Data Statements'
516+
OnClick = MenuExportAnimLanClick
517+
end
518+
end
519+
object MnuAnimExpAC: TMenuItem
520+
Caption = 'Amiga C'
521+
object AD_AC: TMenuItem
522+
Tag = 24
523+
Caption = 'Animation Array'
524+
OnClick = MenuExportAnimLanClick
525+
end
526+
end
527+
object MnuAnimExpAP: TMenuItem
528+
Caption = 'Amiga Pascal'
529+
object AD_AP: TMenuItem
530+
Tag = 19
531+
Caption = 'Animation Array'
532+
OnClick = MenuExportAnimLanClick
533+
end
534+
end
535+
object MnuAnimExpAQB: TMenuItem
536+
Caption = 'Amiga QuickBasic AQB'
537+
object AD_AQB: TMenuItem
538+
Tag = 7
539+
Caption = 'Animation Data Statements'
540+
OnClick = MenuExportAnimLanClick
541+
end
542+
end
543+
object MnuAnimExpBAM: TMenuItem
544+
Caption = 'BAM Basic'
545+
object AD_BAM: TMenuItem
546+
Tag = 8
547+
Caption = 'Animation Data Statements'
548+
OnClick = MenuExportAnimLanClick
549+
end
550+
end
551+
object MnuAnimExpFBQB: TMenuItem
552+
Caption = 'FreeBASIC - QB Mode'
553+
object AD_FBQB: TMenuItem
554+
Tag = 14
555+
Caption = 'Animation Data Statements'
556+
OnClick = MenuExportAnimLanClick
557+
end
558+
end
559+
object MnuAnimExpFB: TMenuItem
560+
Caption = 'FreeBASIC'
561+
object AD_FB: TMenuItem
562+
Tag = 5
563+
Caption = 'Animation Data Statements'
564+
OnClick = MenuExportAnimLanClick
565+
end
566+
end
567+
object MnuAnimExpFP: TMenuItem
568+
Caption = 'FreePascal'
569+
object AD_FP: TMenuItem
570+
Tag = 17
571+
Caption = 'Animation Array'
572+
OnClick = MenuExportAnimLanClick
573+
end
574+
end
575+
object MnuAnimExpGCC: TMenuItem
576+
Caption = 'gcc \ Emscripten'
577+
object AD_GCC: TMenuItem
578+
Tag = 23
579+
Caption = 'Animation Array'
580+
OnClick = MenuExportAnimLanClick
581+
end
582+
end
583+
object MnuAnimExpGW: TMenuItem
584+
Caption = 'GWBASIC'
585+
object AD_GW: TMenuItem
586+
Tag = 10
587+
Caption = 'Animation Data Statements'
588+
OnClick = MenuExportAnimLanClick
589+
end
590+
end
591+
object MnuAnimExpJS: TMenuItem
592+
Caption = 'JavaScript'
593+
object AD_JS: TMenuItem
594+
Tag = 25
595+
Caption = 'Animation Array'
596+
OnClick = MenuExportAnimLanClick
597+
end
598+
end
599+
object MnuAnimExpJSON: TMenuItem
600+
Caption = 'JSON'
601+
object AD_JSON: TMenuItem
602+
Tag = 26
603+
Caption = 'Animation Data (JSON)'
604+
OnClick = MenuExportAnimLanClick
605+
end
606+
end
607+
object MnuAnimExpOW: TMenuItem
608+
Caption = 'Open Watcom C'
609+
object AD_OW: TMenuItem
610+
Tag = 22
611+
Caption = 'Animation Array'
612+
OnClick = MenuExportAnimLanClick
613+
end
614+
end
615+
object MnuAnimExpQB: TMenuItem
616+
Caption = 'QBasic\QuickBasic'
617+
object AD_QB: TMenuItem
618+
Tag = 11
619+
Caption = 'Animation Data Statements'
620+
OnClick = MenuExportAnimLanClick
621+
end
622+
end
623+
object MnuAnimExpQB64: TMenuItem
624+
Caption = 'QB64'
625+
object AD_QB64: TMenuItem
626+
Tag = 6
627+
Caption = 'Animation Data Statements'
628+
OnClick = MenuExportAnimLanClick
629+
end
630+
end
631+
object MnuAnimExpQBJS: TMenuItem
632+
Caption = 'QBJS'
633+
object AD_QBJS: TMenuItem
634+
Tag = 9
635+
Caption = 'Animation Data Statements'
636+
OnClick = MenuExportAnimLanClick
637+
end
638+
end
639+
object MnuAnimExpQC: TMenuItem
640+
Caption = 'Quick C'
641+
object AD_QC: TMenuItem
642+
Tag = 21
643+
Caption = 'Animation Array'
644+
OnClick = MenuExportAnimLanClick
645+
end
646+
end
647+
object MnuAnimExpQP: TMenuItem
648+
Caption = 'Quick Pascal'
649+
object AD_QP: TMenuItem
650+
Tag = 16
651+
Caption = 'Animation Array'
652+
OnClick = MenuExportAnimLanClick
653+
end
654+
end
655+
object MnuAnimExpTB: TMenuItem
656+
Caption = 'Turbo\Power Basic'
657+
object AD_TB: TMenuItem
658+
Tag = 12
659+
Caption = 'Animation Data Statements'
660+
OnClick = MenuExportAnimLanClick
661+
end
662+
end
663+
object MnuAnimExpTP: TMenuItem
664+
Caption = 'Turbo Pascal'
665+
object AD_TP: TMenuItem
666+
Tag = 15
667+
Caption = 'Animation Array'
668+
OnClick = MenuExportAnimLanClick
669+
end
670+
end
671+
object MnuAnimExpTC: TMenuItem
672+
Caption = 'Turbo C'
673+
object AD_TC: TMenuItem
674+
Tag = 20
675+
Caption = 'Animation Array'
676+
OnClick = MenuExportAnimLanClick
677+
end
678+
end
679+
object MnuAnimExpTMT: TMenuItem
680+
Caption = 'TMT Pascal'
681+
object AD_TMT: TMenuItem
682+
Tag = 18
683+
Caption = 'Animation Array'
684+
OnClick = MenuExportAnimLanClick
685+
end
686+
end
522687
end
523688
object MenuItem7: TMenuItem
524689
Caption = 'Export Anim As PNG''s'

0 commit comments

Comments
 (0)