[REQUEST] Pivot Stickfigure Animator Source Code

**Gina** · 03 Mar. 2010 02:51pm

Originally Posted by Eternal Darkness

This may be, I don't know though...

Code:

object AboutBox: TAboutBox
  Left = 333
  Top = 185
  BorderStyle = bsDialog
  Caption = 'About'
  ClientHeight = 278
  ClientWidth = 313
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 297
    Height = 225
    BevelInner = bvRaised
    BevelOuter = bvLowered
    ParentColor = True
    TabOrder = 0
    object Version: TLabel
      Left = 116
      Top = 120
      Width = 62
      Height = 13
      Caption = 'Version 2.2.5'
      IsControl = True
    end
    object Label1: TLabel
      Left = 88
      Top = 152
      Width = 51
      Height = 13
      Caption = 'Created by'
    end
    object Label2: TLabel
      Left = 116
      Top = 192
      Width = 64
      Height = 13
      Caption = '20 / 7 / 2004'
    end
    object Image1: TImage
      Left = 44
      Top = 16
      Width = 208
      Height = 78
      AutoSize = True
      Picture.Data = { Binary Data (save file to disk to see it) }
    end
    object WebsiteLabel: TLabel
      Left = 152
      Top = 152
      Width = 53
      Height = 13
      Cursor = crHandPoint
      Caption = 'Peter Bone'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = WebsiteLabelClick
    end
  end
  object OKButton: TButton
    Left = 119
    Top = 244
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
  end
end

Code:

object FigureBuilderForm: TFigureBuilderForm
  Left = 410
  Top = 154
  Width = 389
  Height = 391
  Caption = 'Stick Figure Builder'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 56
    Top = 0
    Width = 321
    Height = 305
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
    OnMouseUp = Image1MouseUp
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 49
    Height = 305
    TabOrder = 0
    object LineButton: TSpeedButton
      Left = 9
      Top = 8
      Width = 31
      Height = 31
      Hint = 'add line'
      Glyph.Data = { Binary Data (save file to disk to see it) }
      ParentShowHint = False
      ShowHint = True
      OnClick = LineButtonClick
    end
    object CircleButton: TSpeedButton
      Left = 9
      Top = 48
      Width = 31
      Height = 31
      Hint = 'add circle'
      Glyph.Data = { Binary Data (save file to disk to see it) }
      ParentShowHint = False
      ShowHint = True
      OnClick = CircleButtonClick
    end
    object ChangeKindButton: TSpeedButton
      Left = 9
      Top = 104
      Width = 31
      Height = 31
      Hint = 'toggle segment kind'
      Glyph.Data = { Binary Data (save file to disk to see it) }
      ParentShowHint = False
      ShowHint = True
      OnClick = ChangeKindButtonClick
    end
    object DeleteButton: TSpeedButton
      Left = 9
      Top = 264
      Width = 31
      Height = 31
      Hint = 'delete segment'
      Glyph.Data = { Binary Data (save file to disk to see it) }
      ParentShowHint = False
      ShowHint = True
      OnClick = DeleteButtonClick
    end
    object DuplicateButton: TSpeedButton
      Left = 9
      Top = 184
      Width = 31
      Height = 31
      Hint = 'duplicate segment'
      Glyph.Data = { Binary Data (save file to disk to see it) }
      ParentShowHint = False
      ShowHint = True
      OnClick = DuplicateButtonClick
    end
    object ChangeStaticButton: TSpeedButton
      Left = 9
      Top = 224
      Width = 31
      Height = 31
      Hint = 'static / dynamic segment'
      Glyph.Data = { Binary Data (save file to disk to see it) }
      ParentShowHint = False
      ShowHint = True
      OnClick = ChangeStaticButtonClick
    end
    object UpDown1: TUpDown
      Left = 9
      Top = 144
      Width = 31
      Height = 31
      Hint = 'change segment thickness'
      ParentShowHint = False
      Position = 1
      ShowHint = True
      TabOrder = 0
      OnClick = UpDown1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 312
    Width = 105
    Height = 25
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 6
      Width = 3
      Height = 13
    end
  end
  object MainMenu1: TMainMenu
    Left = 64
    Top = 8
    object File1: TMenuItem
      Caption = 'File'
      object New1: TMenuItem
        Caption = 'New'
        OnClick = New1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Open1: TMenuItem
        Caption = 'Open'
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = 'Save'
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save As'
        OnClick = SaveAs1Click
      end
      object AddToAnimation1: TMenuItem
        Caption = 'Add To Animation'
        OnClick = AddToAnimation1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Close'
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = 'Options'
      object Undo1: TMenuItem
        Caption = 'Undo'
        OnClick = Undo1Click
      end
      object EditMode1: TMenuItem
        Caption = 'Edit Mode'
        OnClick = EditMode1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'stk'
    Filter = 'Stick Figure File (*.stk)|*.stk'
    Left = 96
    Top = 8
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'stk'
    Filter = 'Stick Figure File (*.stk)|*.stk'
    Left = 128
    Top = 8
  end
end

Code:

object GifOptionsForm: TGifOptionsForm
  Left = 384
  Top = 213
  BorderStyle = bsToolWindow
  Caption = 'Gif Options'
  ClientHeight = 193
  ClientWidth = 267
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 112
    Top = 24
    Width = 144
    Height = 13
    Caption = 'Frame Delay (1/100th second)'
  end
  object Label2: TLabel
    Left = 112
    Top = 104
    Width = 104
    Height = 13
    Caption = 'Shrink frames by    1 /'
  end
  object SpinEditDelay: TSpinEdit
    Left = 160
    Top = 48
    Width = 49
    Height = 22
    MaxValue = 1000000
    MinValue = 1
    TabOrder = 0
    Value = 1
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 89
    Height = 137
    Caption = 'Optimization'
    TabOrder = 1
    object CheckBoxMerge: TCheckBox
      Left = 16
      Top = 32
      Width = 57
      Height = 17
      Caption = 'Merge'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object CheckBoxCrop: TCheckBox
      Left = 16
      Top = 64
      Width = 57
      Height = 17
      Caption = 'Crop'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object CheckBoxPalette: TCheckBox
      Left = 16
      Top = 96
      Width = 57
      Height = 17
      Caption = 'Palette'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
  end
  object BitBtn1: TBitBtn
    Left = 98
    Top = 160
    Width = 75
    Height = 25
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object SpinEditShrink: TSpinEdit
    Left = 224
    Top = 101
    Width = 33
    Height = 22
    MaxValue = 9
    MinValue = 1
    TabOrder = 3
    Value = 1
  end
end

Code:

object MainForm: TMainForm
  Left = 374
  Top = 177
  Width = 664
  Height = 569
  Caption = 'Pivot'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseWheelDown = FormMouseWheelDown
  OnMouseWheelUp = FormMouseWheelUp
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 8
    Top = 88
    Width = 121
    Height = 425
    TabOrder = 0
    object NextFrameButton: TButton
      Left = 24
      Top = 376
      Width = 75
      Height = 33
      Caption = 'Next Frame'
      TabOrder = 0
      OnClick = NextFrameButtonClick
    end
    object AddFigureButton: TButton
      Left = 21
      Top = 160
      Width = 75
      Height = 25
      Caption = 'Add Figure'
      TabOrder = 1
      OnClick = AddFigureButtonClick
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 200
      Width = 105
      Height = 161
      Caption = 'Current Figure'
      TabOrder = 2
      object DeleteFigureButton: TButton
        Left = 6
        Top = 24
        Width = 43
        Height = 25
        Caption = 'Delete'
        TabOrder = 0
        OnClick = DeleteFigureButtonClick
      end
      object CenterButton: TButton
        Left = 6
        Top = 56
        Width = 43
        Height = 25
        Caption = 'Center'
        TabOrder = 1
        OnClick = CenterButtonClick
      end
      object ScaleSpinEdit: TSpinEdit
        Left = 54
        Top = 90
        Width = 45
        Height = 22
        Hint = 'Scale'
        MaxValue = 100000
        MinValue = 0
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Value = 100
        OnChange = ScaleSpinEditChange
      end
      object ColorButton: TButton
        Left = 6
        Top = 88
        Width = 43
        Height = 25
        Caption = 'Colour'
        TabOrder = 3
        OnClick = ColorButtonClick
      end
      object EditTypeButton: TButton
        Left = 54
        Top = 24
        Width = 43
        Height = 25
        Caption = 'Edit'
        TabOrder = 4
        OnClick = EditTypeButtonClick
      end
      object FlipButton: TButton
        Left = 54
        Top = 56
        Width = 43
        Height = 25
        Caption = 'Flip'
        TabOrder = 5
        OnClick = FlipButtonClick
      end
      object FrontButton: TButton
        Left = 6
        Top = 120
        Width = 43
        Height = 25
        Caption = 'Front'
        TabOrder = 6
        OnClick = FrontButtonClick
      end
      object BackButton: TButton
        Left = 54
        Top = 120
        Width = 43
        Height = 25
        Caption = 'Back'
        TabOrder = 7
        OnClick = BackButtonClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 8
      Width = 105
      Height = 113
      TabOrder = 3
      object PlayButton: TSpeedButton
        Left = 13
        Top = 16
        Width = 57
        Height = 22
        Hint = 'play animation'
        Caption = 'Play'
        Glyph.Data = { Binary Data (save file to disk to see it) }
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = PlayButtonClick
      end
      object StopButton: TSpeedButton
        Left = 13
        Top = 48
        Width = 57
        Height = 22
        Hint = 'stop animation'
        Caption = 'Stop'
        Glyph.Data = { Binary Data (save file to disk to see it) }
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = StopButtonClick
      end
      object RepeatCheckBox: TCheckBox
        Left = 13
        Top = 80
        Width = 57
        Height = 17
        Caption = 'Repeat'
        Checked = True
        State = cbChecked
        TabOrder = 0
      end
      object RateScrollBar: TScrollBar
        Left = 80
        Top = 16
        Width = 17
        Height = 89
        Hint = 'frame rate'
        Kind = sbVertical
        Min = 1
        PageSize = 0
        ParentShowHint = False
        Position = 50
        ShowHint = True
        TabOrder = 1
        OnChange = RateScrollBarChange
      end
    end
    object FigureComboBox: TComboBox
      Left = 8
      Top = 136
      Width = 105
      Height = 21
      Hint = 'figure types'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ItemIndex = 0
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Text = 'Stickman'
      Items.Strings = (
        'Stickman')
    end
  end
  object ScrollBox1: TScrollBox
    Left = 8
    Top = 0
    Width = 641
    Height = 81
    VertScrollBar.Visible = False
    BiDiMode = bdLeftToRight
    Ctl3D = True
    ParentBiDiMode = False
    ParentCtl3D = False
    TabOrder = 1
    object Bevel1: TBevel
      Left = 144
      Top = 8
      Width = 33
      Height = 33
      Shape = bsFrame
      Style = bsRaised
      Visible = False
    end
  end
  object ScrollBox2: TScrollBox
    Left = 136
    Top = 88
    Width = 513
    Height = 425
    TabOrder = 2
    object EditImage: TImage
      Left = 2
      Top = 2
      Width = 506
      Height = 415
      OnMouseDown = EditImageMouseDown
      OnMouseMove = EditImageMouseMove
      OnMouseUp = EditImageMouseUp
    end
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 8
    object File1: TMenuItem
      Caption = 'File'
      object New1: TMenuItem
        Caption = 'New'
        OnClick = New1Click
      end
      object OpenAnimation1: TMenuItem
        Caption = 'Open Animation'
        OnClick = OpenAnimation1Click
      end
      object SaveAnimation1: TMenuItem
        Caption = 'Save Animation'
        OnClick = SaveAnimation1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object LoadBackground1: TMenuItem
        Caption = 'Load Background'
        OnClick = LoadBackground1Click
      end
      object ClearBackground1: TMenuItem
        Caption = 'Clear Background'
        Enabled = False
        OnClick = ClearBackground1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object LoadFigure1: TMenuItem
        Caption = 'Load Figure Type'
        OnClick = LoadFigure1Click
      end
      object CreateFigureType1: TMenuItem
        Caption = 'Create Figure Type'
        OnClick = CreateFigureType1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = 'Options'
      OnClick = Options1Click
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object ViewReadMefile1: TMenuItem
        Caption = 'View ReadMe File'
        OnClick = ViewReadMefile1Click
      end
      object About1: TMenuItem
        Caption = 'About'
        OnClick = About1Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'piv'
    Filter = 'Pivot File (*.piv)|*.piv|Gif (*.gif)|*.gif|Bitmap (*.bmp)|*.bmp'
    Left = 48
    Top = 8
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 'Bitmap Image (*.bmp)|*.bmp|JPeg Image (*.jpg)|*.jpg'
    Left = 80
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    Left = 114
    Top = 10
    object Insert1: TMenuItem
      Caption = 'Insert'
      OnClick = Insert1Click
    end
    object Delete1: TMenuItem
      Caption = 'Delete'
      OnClick = Delete1Click
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'piv'
    Filter = 'Pivot File (*.piv)|*.piv'
    Left = 48
    Top = 40
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 50
    OnTimer = Timer1Timer
    Left = 152
    Top = 104
  end
  object ColorDialog1: TColorDialog
    Left = 184
    Top = 104
  end
end

Code:

object NameForm: TNameForm
  Left = 405
  Top = 334
  BorderStyle = bsDialog
  Caption = 'Figure Name'
  ClientHeight = 95
  ClientWidth = 291
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnHide = FormHide
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 274
    Height = 13
    Caption = 'You must name the figure before adding it to the animation'
  end
  object Edit1: TEdit
    Left = 32
    Top = 32
    Width = 225
    Height = 21
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 104
    Top = 64
    Width = 75
    Height = 25
    TabOrder = 1
    Kind = bkOK
  end
end

Code:

object OptionsForm: TOptionsForm
  Left = 318
  Top = 150
  BorderStyle = bsDialog
  Caption = 'OptionsForm'
  ClientHeight = 180
  ClientWidth = 210
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 24
    Top = 8
    Width = 161
    Height = 113
    Caption = 'Animation Dimensions'
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 38
      Width = 28
      Height = 13
      Caption = 'Width'
    end
    object Label2: TLabel
      Left = 24
      Top = 77
      Width = 31
      Height = 13
      Caption = 'Height'
    end
    object SpinEditWidth: TSpinEdit
      Left = 72
      Top = 32
      Width = 57
      Height = 22
      MaxValue = 10000
      MinValue = 10
      TabOrder = 0
      Value = 506
    end
    object SpinEditHeight: TSpinEdit
      Left = 72
      Top = 72
      Width = 57
      Height = 22
      MaxValue = 10000
      MinValue = 10
      TabOrder = 1
      Value = 362
    end
  end
  object BitBtn1: TBitBtn
    Left = 24
    Top = 144
    Width = 73
    Height = 25
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 112
    Top = 144
    Width = 73
    Height = 25
    TabOrder = 2
    OnClick = BitBtn2Click
    Kind = bkCancel
  end
end

Code:

object ProgressForm: TProgressForm
  Left = 310
  Top = 161
  BorderStyle = bsToolWindow
  Caption = 'Saving Animation'
  ClientHeight = 42
  ClientWidth = 338
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnHide = FormHide
  PixelsPerInch = 96
  TextHeight = 13
  object ProgressBar1: TProgressBar
    Left = 8
    Top = 8
    Width = 321
    Height = 25
    TabOrder = 0
  end
end

Hope this helps...

This seems like it..
Thanks

Thread: [REQUEST] Pivot Stickfigure Animator Source Code

LinkBack

Thread Tools

Search Thread

Rate This Thread

Display

Threaded View

Posting Permissions