Thread: Which Program??

    #1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jun 2015
    Posts
    3
    Rep Power
    0

    Which Program??


    Please help, I have no idea which programming language was used here:-
    All help appreciated...
    David

    Code:
    object TvgBackground
      Width = 658.000000000000000000
      Height = 732.000000000000000000
      Fill.Color = '#FF3264C8'
      Fill.Style = vgBrushSolid
      object TvgLayout
        ResourceName = 'listboxstyle'
        Position.Point = '(270,300)'
        Width = 116.999992370605500000
        Height = 131.000000000000000000
        DesignHide = True
        object TvgBrushObject
          ResourceName = 'AlternatingRowBackground'
          Brush.Color = '#202A8ADF'
        end
        object TvgRectangle
          ResourceName = 'background'
          Align = vaContents
          Locked = True
          Width = 116.999992370605500000
          Height = 131.000000000000000000
          HitTest = False
          Fill.Style = vgBrushNone
          Stroke.Style = vgBrushNone
          Sides = [vgSideTop, vgSideLeft, vgSideBottom, vgSideRight]
          object TvgLayout
            ResourceName = 'content'
            Align = vaClient
            Position.Point = '(1,1)'
            Width = 98.999992370605470000
            Height = 113.000000000000000000
            Padding.Rect = '(1,1,1,1)'
            ClipChildren = True
            object TvgRectangle
              ResourceName = 'selection'
              Width = 50.000000000000000000
              Height = 50.000000000000000000
              HitTest = False
              Fill.Color = '#3C000000'
              Stroke.Style = vgBrushNone
              Sides = [vgSideTop, vgSideLeft, vgSideBottom, vgSideRight]
            end
          end
          object TvgScrollBar
            ResourceName = 'vscrollbar'
            Align = vaRight
            Position.Point = '(101.000,0)'
            Width = 16.000000000000000000
            Height = 115.000000000000000000
            Resource = 'ScrollBarStyle'
            TabOrder = 1
            Max = 100.000000000000000000
            Orientation = vgVertical
            SmallChange = 1.000000000000000000
          end
          object TvgScrollBar
            ResourceName = 'hscrollbar'
            Align = vaBottom
            Position.Point = '(0,115)'
            Width = 116.999992370605500000
            Height = 16.000000000000000000
            Resource = 'ScrollBarStyle'
            TabOrder = 2
            Max = 100.000000000000000000
            Orientation = vgHorizontal
            SmallChange = 1.000000000000000000
          end
          object TvgSmallScrollBar
            ResourceName = 'vsmallscrollbar'
            Align = vaRight
            Position.Point = '(99,2)'
            Width = 8.000000000000000000
            Height = 8.000000000000000000
            Padding.Rect = '(2,0,0,0)'
            Visible = False
            TabOrder = 3
            Max = 100.000000000000000000
            Orientation = vgVertical
            SmallChange = 1.000000000000000000
          end
          object TvgSmallScrollBar
            ResourceName = 'hsmallscrollbar'
            Align = vaBottom
            Position.Point = '(2,113)'
            Width = 150.000000000000000000
            Height = 8.000000000000000000
            Padding.Rect = '(0,2,0,0)'
            Visible = False
            TabOrder = 4
            Max = 100.000000000000000000
            Orientation = vgHorizontal
            SmallChange = 1.000000000000000000
          end
        end
      object TvgLayout
        ResourceName = 'btnAddItem'
        Position.Point = '(304,341)'
        Width = 50.000000000000000000
        Height = 50.000000000000000000
        DesignHide = True
        object TvgImage
          Align = vaCenter
          Width = 50.000000000000000000
          Height = 50.000000000000000000
          HitTest = False
          Bitmap.PNG = {
            89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
            F8000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            000970485973000012740000127401DE661F780000032049444154484BEDD37D
            2CD4711C0770FFD5D6D6D65FB95B5B7FB51979684AD49222D466AD528B14D56E
            2B1A914D1E72E38C8AE62124E23C869289F298F37C18A13C3FBB432CCB719E5D
            7EEFBEDF73B7CCD2CEF56F9FEDF3CF77FBBE5FDFEFE7FBFB69FCAF7FAE3A9EB5
            B02EC81A9BBB9667859A40DA96A80EB04415F78C50B1657B45C3D61606219BE9
            C4BCA804D261D22302CC8F09B138D98A95E91EC8E6C4A8F0378762CBF6AA9647
            80A90A308B62308C0C32E910245D991015BB415CE482718107BED7FBA2DCF7B4
            7A00BDFEEA482A64A3AFB1F6ED1D18490398E509306BAB18F9780FA325AE98AC
            F14299B7997A4025D702CB4349EB8838036BE3D9602672C04CE6A13AF42C7AB2
            1DC92D1EA0D8CB543D40F0C81C4BFDF1581E4CC4CA488A1CF939964590B728F5
            37437BAA1D44852E28F43CA11EF0C9E714167A62B1D8A74086932113A5132413
            F99E266849B884813C0E3E781C4781FB31E4B91FDDDED754FAF024E63AA30812
            439097581A782547564569C871398CA698F3E82663920EE66375B60779AEC6AA
            DDC4244513467C4D18266AC2209E459048CC7713A4376E1D19E223936380FA88
            73644CF61097DE87A42D08B9F78C5403687026C391B74E2C0BB35F9F61AE8322
            D158E87D41DE250119B7F4511B6689B6C4CB182A70C6740B0F39CE47540374E3
            58E0F6DBE0CA277D1C886441D2FA84206190764460BEEBB91CA1405588399AE3
            2EA02F9783A9467FBCB963B83540474183E989B5A27F03FBC358D8F79405F663
            16F606B308128E39825040106486C6681B74653B61A2C61B599C435B03345839
            16DA4A60E3DA9E003666BE8442DA1E2E07CA024C210C27EF90E680518127326E
            1B6C0DD051D0C0BFF52E3F36242D2198690B950325FEC75113668556FE550C17
            B921EDA6DED6C0E651286FB09BCB9607EFF4616387371B3F9A7898FE1C2C078A
            FC8EA1F2B1059AE36DD1FFFE2E526E1C54ED91E92894000D16465EC440BE33BE
            0B7D31D5C0254820D29CF490EAA88B14DA2438F9BA0E92AE69ABF6A3D1132B01
            7AEAF45BFA01E98E7AFDEFDC8C218CB225E37057FDB47F2A1ABAB115CB1A7C47
            6D8364079D90043BED31BEBD56B962F97FA95B1A1ABF001A068E702AFCAAD500
            00000049454E44AE426082}
          WrapMode = vgImageFit
        end
      end
      object TvgLayout
        ResourceName = 'btnRemoveItem'
        Position.Point = '(304,341)'
        Width = 50.000000000000000000
        Height = 50.000000000000000000
        DesignHide = True
        object TvgImage
          Align = vaCenter
          Width = 50.000000000000000000
          Height = 50.000000000000000000
          HitTest = False
          Bitmap.PNG = {
            89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
            F8000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
            000970485973000012740000127401DE661F780000033F49444154484BEDD4FB
            4F53671CC7717E986ECBA259A64EFF02B320A246A6228A280EDD9265D9C612EF
            8A934485A838A222AE4CDB4C23288EE1A6A272BF4D24282837AD404B01C50222
            8A172E2DA828935AA888AD9CF79ED3F4A7254D3CF557BFC9E797933CDFD7799E
            EF398FD7FB7AE7AA552F37D46A96F3FFE8D5CBD01D901342CDFE10AAE3BE32B8
            96282BB9D9A8AD03BBA50D9BA99CC12E916E2DB65E03C37D4DBC1E68C73164E6
            9A2A18D71265A5570BA0BF0A69D88C243970583BB1B4E5602ADB8EB9348247DA
            9D3CAB8BE56AEC12CF0079FB7653068E9E1C461F9F47B2D4238D3C461AB5D37D
            29929EF26DF4E976531913E4195015B79491CEB3D8BB0562CE66F4513ED29302
            A4BE226AE2BFA63D7FBDD8C52F94ED0EF40CD0FE1ACCAB07A718E990917427F2
            A6374F20E7A85005D19AB112D3E5082E472FF40CB8B277312FDBFF62F8BE8C9C
            E175571A0E53964072B918ED8F31E5471E168553B23380E2A8F91445CD55F635
            55EC59C4505B920B39C9C8C3D34EC46ECAA420C28F1BC7BFE3AE38A6C18E8BD8
            ADED146D9BA76C2765BB02B1B61E15C81FD8EE1E17C8095EC948672AB9E133A9
            3BF68D38A655982B766069D6501839471970297A012F9A0F63BD75C48524F3F2
            DEDF622E29646F9C813E2184E6333FD159BC9501A39A82AD5FBA076E2D99424B
            D0645A023FA779A148C0249AFC45E64EC438670246BF090CDE3E86EDCE9F4E44
            06AA0F06D378E27BEE156EA2BF41C53F9B67BB07E406525D0E52751A52E549A4
            9224A4C278A43C0D52868AEB53C7636D4910482243029101AD268886E46FB993
            BF8127BA18F2C267B907E406D20F53DDC630E5632CC643BC688967B035D10954
            EE0FC49028E690B9861E6D34D93FCF740FC80D0C933FA27692C8C40FD17F3616
            FDA763D18D1F836EDC186A3EF980E78D1A811C1473897702E5AA007409CB684A
            5D4157E97632C37C950DF9DC663FE755F0541F23EE9C7DFCDBF01BCF6FA819B8
            F9BB1328DD379FAA434B693C15CA830B5B485FE7A30CC80D9FD5502CFED2FAE4
            503A4A22796688A5BF3E4E2007C8DCE04BC6FAE9A4CB118DD3D64EE3EC6A6FE5
            D7767698EF82ACB01947B2C2BC7B0BC5DF6A480A15C711A5FC6DDFA6D2D7FAF8
            A7ADF1399CB2D2BB3775D517575D8FDF97A7E5E5F51F55117F7CAADE83E90000
            000049454E44AE426082}
          WrapMode = vgImageFit
        end
      end
      object TvgLayout
        ResourceName = 'empty'
        Position.Point = '(304,341)'
        Width = 50.000000000000000000
        Height = 50.000000000000000000
        DesignHide = True
      end
    end
  2. #2
  3. Lord of the Dance
    Devshed Specialist (4000 - 4499 posts)

    Join Date
    Oct 2003
    Posts
    4,131
    Rep Power
    2011
    Could be VB or similar.
    Any reason you have this code?
  4. #3
  5. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jun 2015
    Posts
    3
    Rep Power
    0
    Thanks MrFujin
    I just wanted to know which program so that I can research it a bit further.
    There are a pair of files that determine the screen color choice, both have many similar code lines.
    I would like to introduce some new colors which I have already done and is easy enough.
    I would also like to introduce my own logo onto the sheet so that my sheets can be easily identified.
    I will have a look at VB, thanks for your help
    David
  6. #4
  7. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jun 2015
    Posts
    3
    Rep Power
    0
    Also, one of the files has a .vgstyle extension and the other has a .xstyle extension
    David
  8. #5
  9. Lord of the Dance
    Devshed Specialist (4000 - 4499 posts)

    Join Date
    Oct 2003
    Posts
    4,131
    Rep Power
    2011
    Tried a search on the extension, which lead to delphi/pascal.
    It has one difference when looking at the sign used for assignment: = vs :=.
  10. #6
  11. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Feb 2014
    Location
    India
    Posts
    200
    Rep Power
    4
    I think the given code is Delphi/Free Pascal (both are Object-Pascal dialects). Those end blocks look similar.

    But as MrFujin said the '=' symbol is for the conditional equality operator, the ':=' operator is used for assignments. Also, iirc, pascal uses begin...end blocks, there is only the end keyword in the whole code. So my best bet would be that its VB.NET code.

    If you could tell the origin of the code then I could've given you some more useful information but without knowing what application produced this code I really can't tell anything.

    The code looks like some kind of definition to draw a GUI but it doesn't look handwritten (except for the hex-values in the Bitmap, those numbers Width = 658.000000 don't look like they're written by a human) and it does look like it was written by some automated program.
    Last edited by hexman; June 9th, 2015 at 05:02 AM.

IMN logo majestic logo threadwatch logo seochat tools logo