Could anyone get me that source code?
I know its programmed in Delphi
Printable View
Could anyone get me that source code?
I know its programmed in Delphi
This one?Quote:
Originally Posted by Gina
Pivot Stickfigure Animator Freeware download and review - create animated cartoons from SnapFiles
If not please provide a link...
Gina, I dont think the source code for this has been released anywhere :/
I could probably get it, just need to know if thats the one she wants the source of...Quote:
Originally Posted by Bman
That is the one. You can't get it. I've already searched for it.Quote:
Originally Posted by Eternal Darkness
Hmmm... It didn't decompile for the Delphi or other Programming codes, your right again chad...Quote:
Originally Posted by Chad
sorry for my bump but yeah i want that source codeQuote:
Originally Posted by Eternal Darkness
i want to add functionality to it
This may be, I don't know though...Quote:
Originally Posted by Gina
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
Hope this helps...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
This seems like it..Quote:
Originally Posted by Eternal Darkness
Thanks
No Problem...Quote:
Originally Posted by Gina