pascal
/
galfar.imaginglib
огледало од https://github.com/galfar/imaginglib.git


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325
							object FormMain: TFormMain
  Left = 510
  Top = 270
  Caption = 'FireMonkeyDemo'
  ClientHeight = 756
  ClientWidth = 975
  Position = ScreenCenter
  StyleBook = StyleBook
  Visible = True
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop, iPhone, iPad]
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Left = 510
  Top = 270
  DesignerMasterStyle = 0
  object StyleBook: TStyleBook
    Styles = <
      item
        ResourcesBin = {
          464D585F5354594C4520322E3501060D546F6F6C626172427574746F6E03CD08
          0607496D674F70656E03A5030607496D67536176650313020608496D6741626F
          757403DC03060B4C697374426F784974656D03F703005450463007544C61796F
          757400095374796C654E616D65060D546F6F6C626172427574746F6E0A506F73
          6974696F6E2E580500000000000000EB07400A506F736974696F6E2E59050000
          0000000080F007400A53697A652E576964746805000000000000009206400B53
          697A652E4865696768740500000000000000B804401453697A652E506C617466
          6F726D44656661756C74080756697369626C6508085461624F72646572020000
          0A5452656374616E676C6500095374796C654E616D65060A6261636B67726F75
          6E6405416C69676E0708436F6E74656E7473074869745465737408074F706163
          69747905000000000017B7D1F13F0A53697A652E576964746805000000000000
          009206400B53697A652E4865696768740500000000000000B804401453697A65
          2E506C6174666F726D44656661756C74080B5374726F6B652E4B696E6407044E
          6F6E650758526164697573050000000000000080004007595261646975730500
          000000000000800040000A5452656374616E676C650005416C69676E0708436F
          6E74656E74730946696C6C2E4B696E6407084772616469656E741446696C6C2E
          4772616469656E742E506F696E74730E0105436F6C6F72070978323446344634
          4634064F66667365740500000000000000000000000105436F6C6F7207097832
          34454145414541064F6666736574050000000000EE7CFFFD3F000105436F6C6F
          720709783445383638363836064F6666736574050000000000000080FE3F0000
          0748697454657374080A53697A652E576964746805000000000000009206400B
          53697A652E4865696768740500000000000000B804401453697A652E506C6174
          666F726D44656661756C74080C5374726F6B652E436F6C6F7207097834383446
          3446344607585261646975730500000000000000800040075952616469757305
          0000000000000080004000000F54466C6F6174416E696D6174696F6E00084475
          726174696F6E050000000000CDCCCCFC3F0C50726F70657274794E616D650607
          4F7061636974790A537461727456616C75650500000000000000000000095374
          6F7056616C7565050000000000000080FF3F0754726967676572061049734D6F
          7573654F7665723D747275650E54726967676572496E7665727365061149734D
          6F7573654F7665723D66616C736500000F54436F6C6F72416E696D6174696F6E
          00084475726174696F6E050000000000CDCCCCFC3F0C50726F70657274794E61
          6D65060A46696C6C2E436F6C6F720A537461727456616C756507097846464546
          454645460953746F7056616C7565070978464646464435343107547269676765
          72062049734D6F7573654F7665723D747275653B4973507265737365643D6661
          6C736500000F54436F6C6F72416E696D6174696F6E00084475726174696F6E05
          0000000000CDCCCCFC3F0C50726F70657274794E616D65060A46696C6C2E436F
          6C6F720A537461727456616C756507097846464646443534310953746F705661
          6C756507097846464546454645460754726967676572062149734D6F7573654F
          7665723D66616C73653B4973507265737365643D66616C736500000F54436F6C
          6F72416E696D6174696F6E00084475726174696F6E050000000000CDCCCCFC3F
          07496E7665727365090C50726F70657274794E616D65060A46696C6C2E436F6C
          6F720A537461727456616C756507097846464443414530440953746F7056616C
          756507097846464646443534310754726967676572062049734D6F7573654F76
          65723D66616C73653B4973507265737365643D7472756500000F54436F6C6F72
          416E696D6174696F6E00084475726174696F6E050000000000CDCCCCFC3F0C50
          726F70657274794E616D65060A46696C6C2E436F6C6F720A537461727456616C
          756507097846464443414530440953746F7056616C7565070978464646464435
          34310754726967676572061F49734D6F7573654F7665723D747275653B497350
          7265737365643D7472756500000A5452656374616E676C650005416C69676E07
          06436C69656E740946696C6C2E4B696E6407044E6F6E65064C6F636B65640907
          48697454657374080C50616464696E672E4C656674050000000000000080FF3F
          0B50616464696E672E546F70050000000000000080FF3F0D50616464696E672E
          5269676874050000000000000080FF3F0E50616464696E672E426F74746F6D05
          0000000000000080FF3F0A53697A652E57696474680500000000000000920640
          0B53697A652E4865696768740500000000000000B804401453697A652E506C61
          74666F726D44656661756C74080C5374726F6B652E436F6C6F72070978393646
          4346434643075852616469757305000000000000008000400759526164697573
          050000000000000080004000000005545465787400095374796C654E616D6506
          047465787405416C69676E0706436C69656E74064C6F636B6564090748697454
          657374080C50616464696E672E4C6566740500000000000000C001400B506164
          64696E672E546F7005000000000000008000400D50616464696E672E52696768
          740500000000000000C001400E50616464696E672E426F74746F6D0500000000
          0000008000400A53697A652E57696474680500000000001886D905400B53697A
          652E4865696768740500000000000000B804401453697A652E506C6174666F72
          6D44656661756C740804546578740606627574746F6E16546578745365747469
          6E67732E486F727A416C69676E07074C656164696E6700000654496D61676500
          095374796C654E616D65060469636F6E0E4D756C74695265734269746D61700E
          01000005416C69676E07074669744C6566740748697454657374080C50616464
          696E672E4C65667405000000000000008000400B50616464696E672E546F7005
          000000000000008000400D50616464696E672E52696768740500000000000000
          8000400E50616464696E672E426F74746F6D05000000000000008000400A5369
          7A652E5769647468050000000000D0F39404400B53697A652E48656967687405
          00000000000000B804401453697A652E506C6174666F726D44656661756C7408
          000000545046300654496D61676500095374796C654E616D650607496D674F70
          656E0E4D756C74695265734269746D61700E0105576964746802100648656967
          6874021003504E470ADF02000089504E470D0A1A0A0000000D49484452000000
          100000001008060000001FF3FF61000000017352474200AECE1CE90000000467
          414D410000B18F0BFC61050000028949444154384F95525D489351187EF6EDC7
          E95C263A271536909AA9D082A28B0897ABAB54A29BFE20CAAE822056E46D8997
          FDC8EE2228A88B84E8220BBC0A9B7533C56A114935302CB52D1DE2CC7D3FE7DB
          399D73BECF4960173DF07ECF7BBEF3BE0FEFCF71600354C59DDF0025E4AD7023
          18D88CE9D96C5AA1AE7E35613CB343CA70DAFC17488A25DCFB9DC384D29CB7C2
          13BD7022D6A813E364BE793964A6D8B01D26B1A1800019A759334593A45D1FD3
          8879AEE7C85EE4160B91E51DEA0773BCF4D90E8362F33FB19A2825D35333494D
          27381ADB83CA4AD7A07D25E1129F97773CDD0A733C977F6C5007EB397CC57861
          1FC7E672F96843B006DB9B0221EDF27CA498206971E1584B8EC655383024A305
          5E0DF6DA1EF0B8C0A075EC437DC08FCCF44F8C26A7FAD5417243DC29E5E4D223
          B012B1CC34B112BB88AE598AF35A35C67CB560BCD9A2A1C35BED415DBDEFFAA6
          3E2FAB882BEFAD19A8F7C188C12767801904300D74EF6CC5DDE3670106C43ADB
          51E5F7A028623C0CCD6D41F0ADA4BD941E923300D1441C524303D08BCBF297C0
          366E6728C3C391B738100DC344098BF915142667F0748B3BE253B02405A8A142
          2DE441194547EF2D3E192167BDB128B796F404AE8D0E23BCBB11D97759BC8E3F
          81DFE9C6F88363F61A750DB9CC24024DADBC7FDE06E173586B89DBE9B6086E1E
          EC4266228BDB913DA8F5B9B0901991A95280F10A16BE7F42C3D61630BDC84DE5
          A282D7FD53E15DF871A90FE1EA4AA054C2F49B7B72D59680AE43FDBD04BFBF0E
          D08ADC56C1385B267C55FA54E53EDF10F8A604C43B9102F9F9AFF0D704CB49D4
          4EB4D8F285B064DE62617E4A0A0848815F735F50DF1092E5AE976F31B55B110C
          836FCB24F8383220CB17B9E597280EFF83CEAB3A5F13F007A344696B90C45650
          0000000049454E44AE42608200000A506F736974696F6E2E5805000000000000
          808108400A506F736974696F6E2E590500000000000080EF07400A53697A652E
          57696474680500000000000000C804400B53697A652E48656967687405000000
          00000000C804401453697A652E506C6174666F726D44656661756C7408075669
          7369626C65080000545046300654496D61676500095374796C654E616D650607
          496D67536176650E4D756C74695265734269746D61700E010557696474680210
          06486569676874021003504E470A4D01000089504E470D0A1A0A0000000D4948
          4452000000100000001008060000001FF3FF61000000017352474200AECE1CE9
          0000000467414D410000B18F0BFC6105000000F749444154384F63A00E4803C3
          FF3F7FFE248841EAC0AAA180094ACF643086B2080188BA9960120818C124C854
          A0C4CF849F0C57AE5C010B61033A3A3A0CEC0BD81918CE0239B3207A310C2004
          081A407717C002916C80E2828DE61BC15C7CC0FFA43F6E2F100DF019F0CCF73D
          C3FFFFFF187EFDFCC1C0F0FF370333F37F0646464686F7EFBF31E84DD3626016
          6766F8FBF22FEE30F8F7EF2F8374A3308362873490F79F818D8D898185052403
          D4840560350006585898812423C3DFBF7F19FEFEF9031144031806202B6401DA
          FEEFEF3F863F7FFF800DC106606100CA1CE0F43DDB642B88C20A52CF7843590C
          E9C0309805655302181800E741859CFB8BF8550000000049454E44AE42608200
          000A506F736974696F6E2E5805000000000000808108400A506F736974696F6E
          2E590500000000000080EF07400A53697A652E57696474680500000000000000
          C804400B53697A652E4865696768740500000000000000C804401453697A652E
          506C6174666F726D44656661756C74080756697369626C650800005450463006
          54496D61676500095374796C654E616D650608496D6741626F75740E4D756C74
          695265734269746D61700E01055769647468021006486569676874021003504E
          470A1503000089504E470D0A1A0A0000000D4948445200000010000000100806
          0000001FF3FF61000000017352474200AECE1CE90000000467414D410000B18F
          0BFC6105000002BF49444154384FAD535D481451183DB333BBEEB83FAEEB2E66
          6C999622626860528F49562022BE063DFB120465454449F4FFA3524FBEF7D243
          D48BF8509109FA1011055264B9C1BAEEAEFBE3CCFECCCEEECCDC99E9CE245BD1
          631DB85CEEF09DF3DD7BBE33F85730DBFB2FB43EE8623CCE33A1E6D028E7F185
          AC4F952D41282472F366559E41E6EA8A5DB78D3F05DAA7C6DB7A764C8F8C1CAE
          EFD81741515221C90614E2C4EAD74DBC7BFA866436372E638B4C03D78845616D
          A2858E99F18347FA662F4E9C7076B587208932FA9A65447C2AA2C92A3C810684
          7BF63BA48A3154C8C6CB5016972DDA4F81EE87DD7BBB5A9F5F387794F3B85C88
          2534904A01A38702D81DE6F1FAA38858AA0AA2C8E07776A2B0111DAC96FBE7A0
          2DA61C169F3198D3C3C307DC4D7E27D2594AD67444332CA69E6570E3490ADF92
          80414CE4E9ADA4C2161A7A075986755EB2B8B6803F181C4B332D588BEB50551D
          A9AC84484087613A60529B5C9C01A1A8A2543121E44468AC823AAF77A826501F
          F4377D5837F1682E8F4D4141A54A408886B3638DB872328C061EC88854A0AC22
          99CDD23D0FD647BC350198063886201A9731FB42C0CABA8A572B0AE269059C43
          A79D0932B9223DA7A1564B80AE03C4B0A9B640359F13EB0C050CBD6A9E8E6EE9
          BD884F6B1235C784699A10C5324A991C344DB19B99BA014D72C93581F266719E
          29A6E1E7692C7495122D233518062DB6964E476ED24554B02C038636D1C4FC62
          4D40AD9299E4C25BB22BCCD94F8156819B31C0BB400D04BC4EBB888E4281DB13
          80125D374C4DBE6D717FE6A0F4322DE903B29B358E35B646A0282A4E0DB7A0B7
          CD0D5122F08682585E2D4277D4838965A07CFF7213B8F7D8A2FE16E5490E8D8E
          89E09EC02D5FE700E30BFBEC285B4FE19D2CC48400E973146A227607A8BB4EA3
          6C7BF0F7CFC44FF6732EEEBCC9FB8EC3A5780D6A982950C3B4FC02F5E03E7077
          69BBF27F00F8013A2C5A1BBC68CF690000000049454E44AE42608200000A506F
          736974696F6E2E580500000000000000EA07400A506F736974696F6E2E590500
          000000000080F207400A53697A652E57696474680500000000000000C804400B
          53697A652E4865696768740500000000000000C804401453697A652E506C6174
          666F726D44656661756C74080756697369626C650800005450463007544C6179
          6F757400095374796C654E616D65060B4C697374426F784974656D0C50616464
          696E672E4C65667405000000000000008000400B50616464696E672E546F7005
          000000000000008000400D50616464696E672E52696768740500000000000000
          8000400E50616464696E672E426F74746F6D05000000000000008000400A506F
          736974696F6E2E580500000000000000C707400A506F736974696F6E2E590500
          000000000000B407400A53697A652E576964746805000000000000009007400B
          53697A652E4865696768740500000000000000C005401453697A652E506C6174
          666F726D44656661756C7408085461624F726465720204000654496D61676500
          095374796C654E616D650608496D675468756D620E4D756C7469526573426974
          6D61700E01000005416C69676E07084D6F73744C656674074869745465737408
          0C50616464696E672E4C65667405000000000000008001400B50616464696E67
          2E546F700500000000000000C000400D50616464696E672E5269676874050000
          00000000008001400E50616464696E672E426F74746F6D0500000000000000C0
          00400D4D617267696E732E526967687405000000000000008000400A506F7369
          74696F6E2E5805000000000000008000400A506F736974696F6E2E5905000000
          000000008000400A53697A652E57696474680500000000000000D405400B5369
          7A652E4865696768740500000000000000B805401453697A652E506C6174666F
          726D44656661756C7408000005545465787400095374796C654E616D65060954
          6578745469746C6505416C69676E0703546F700748697454657374080A506F73
          6974696F6E2E580500000000000000DC05400A506F736974696F6E2E59050000
          00000000008000400A53697A652E57696474680500000000000000B006400B53
          697A652E486569676874050000000000F051B003401453697A652E506C617466
          6F726D44656661756C740804546578740609496D61676520312F321754657874
          53657474696E67732E466F6E742E5374796C650B066673426F6C640016546578
          7453657474696E67732E486F727A416C69676E07074C656164696E6700000554
          5465787400095374796C654E616D65060854657874496E666F05416C69676E07
          06436C69656E74084175746F53697A65090748697454657374080A53697A652E
          57696474680500000000000000B006400B53697A652E48656967687405000000
          000084EB8B05401453697A652E506C6174666F726D44656661756C7408045465
          7874060735313278363839165465787453657474696E67732E486F727A416C69
          676E07074C656164696E67165465787453657474696E67732E56657274416C69
          676E07074C656164696E67000000}
      end>
    Left = 122
    Top = 426
  end
  object PanelBack: TPanel
    Align = Client
    Size.Width = 975.000000000000000000
    Size.Height = 756.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 0
    object ToolBar: TToolBar
      ControlType = Platform
      Size.Width = 975.000000000000000000
      Size.Height = 36.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'toolbarstyle'
      TabOrder = 0
      object BtnOpenImage: TSpeedButton
        Align = Left
        ControlType = Platform
        Size.Width = 81.000000000000000000
        Size.Height = 36.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'toolbutton'
        Text = 'Open'
        OnClick = BtnOpenImageClick
      end
      object BtnSaveImage: TSpeedButton
        Align = Left
        ControlType = Platform
        Position.X = 81.000000000000000000
        Size.Width = 81.000000000000000000
        Size.Height = 36.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'toolbutton'
        Text = 'Save'
        OnClick = BtnSaveImageClick
      end
      object BtnAbout: TSpeedButton
        Align = MostRight
        ControlType = Platform
        Position.X = 894.000000000000000000
        Size.Width = 81.000000000000000000
        Size.Height = 36.000000000000000000
        Size.PlatformDefault = False
        StyleLookup = 'toolbutton'
        Text = 'About'
        OnClick = BtnAboutClick
      end
    end
    object Splitter: TSplitter
      Align = Left
      Cursor = crHSplit
      MinSize = 250.000000000000000000
      Position.X = 265.000000000000000000
      Position.Y = 36.000000000000000000
      Size.Width = 5.000000000000000000
      Size.Height = 720.000000000000000000
      Size.PlatformDefault = False
    end
    object ListImages: TListBox
      Align = Left
      Position.Y = 36.000000000000000000
      Size.Width = 265.000000000000000000
      Size.Height = 720.000000000000000000
      Size.PlatformDefault = False
      StyleLookup = 'listboxstyle'
      TabOrder = 2
      AlternatingRowBackground = True
      DisableFocusEffect = True
      ItemHeight = 96.000000000000000000
      DefaultItemStyles.ItemStyle = ''
      DefaultItemStyles.GroupHeaderStyle = ''
      DefaultItemStyles.GroupFooterStyle = ''
      OnChange = ListImagesChange
      Viewport.Width = 261.000000000000000000
      Viewport.Height = 716.000000000000000000
    end
    object ImageViewer: TImageViewer
      Align = Client
      Size.Width = 705.000000000000000000
      Size.Height = 720.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 3
      BackgroundFill.Bitmap.Bitmap.PNG = {
        89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
        61000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
        002E49444154384F636C6868F8CF800700E519A14CAC80094A930D460D180C06
        E08D631020944E4603711818C0C00000053F069EBF784F440000000049454E44
        AE426082}
      BackgroundFill.Bitmap.WrapMode = Tile
      BackgroundFill.Kind = Bitmap
      ShowBackground = True
      Viewport.Width = 701.000000000000000000
      Viewport.Height = 716.000000000000000000
    end
    object EmbossEffect: TEmbossEffect
      Enabled = False
      Amount = 0.100000001490116100
      Width = 1.000000000000000000
    end
  end
  object AniIndicator: TAniIndicator
    Align = Center
    Enabled = True
    HitTest = False
    Size.Width = 111.000000000000000000
    Size.Height = 104.000000000000000000
    Size.PlatformDefault = False
    Style = Circular
    Visible = False
  end
  object OpenDialog: TOpenDialog
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 56
    Top = 426
  end
  object SaveDialog: TSaveDialog
    Left = 56
    Top = 508
  end
end