diff --git a/source/childwin.dfm b/source/childwin.dfm index 9c454ca0..e7a7184c 100644 --- a/source/childwin.dfm +++ b/source/childwin.dfm @@ -782,14 +782,6 @@ object MDIChild: TMDIChild Caption = 'Columns' Layout = blGlyphRight OnClick = btnDataClick - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000010000000100804000000B5FA37 - EA0000000467414D410000AFC837058AE90000001974455874536F6674776172 - 650041646F626520496D616765526561647971C9653C000000664944415478DA - 63FCCF801F300E290507FFFF62F8C9F083E13BC337866FDF0BB93014ECF8CACC - C5CAF00B085F323CBED06088A1608DC4F73B6CDC9C0C2F181E7EFFAEDD771F8B - 1BA6487CBBCFCDF1E8FB778D498F7038B25AE2FBE51FC6D390A4075940E10200 - 4C6934019470C4260000000049454E44AE426082} end object lblDataTop: TLabel Left = 1 @@ -820,14 +812,6 @@ object MDIChild: TMDIChild Caption = 'Sorting' Layout = blGlyphRight OnClick = btnDataClick - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000010000000100804000000B5FA37 - EA0000000467414D410000AFC837058AE90000001974455874536F6674776172 - 650041646F626520496D616765526561647971C9653C000000664944415478DA - 63FCCF801F300E290507FFFF62F8C9F083E13BC337866FDF0BB93014ECF8CACC - C5CAF00B085F323CBED06088A1608DC4F73B6CDC9C0C2F181E7EFFAEDD771F8B - 1BA6487CBBCFCDF1E8FB778D498F7038B25AE2FBE51FC6D390A4075940E10200 - 4C6934019470C4260000000049454E44AE426082} end object EditDataSearch: TEdit Left = 317 diff --git a/source/childwin.pas b/source/childwin.pas index c7db2924..09ea1f41 100644 --- a/source/childwin.pas +++ b/source/childwin.pas @@ -2850,6 +2850,10 @@ begin MessageDLG('File could not be opened: ' + paramstr(1), mtError, [mbOK], 0); end; + // Assign images from main imagelist to speedbuttons + btnDataSorting.PngImage := Mainform.PngImageListMain.PngImages[73].PngImage; + btnColumnSelection.PngImage := Mainform.PngImageListMain.PngImages[73].PngImage; + //TODO: //ds.DisableControls; end; diff --git a/source/connections.dfm b/source/connections.dfm index 13531a42..e7c6114f 100644 --- a/source/connections.dfm +++ b/source/connections.dfm @@ -18,6 +18,7 @@ object connform: Tconnform OldCreateOrder = False Position = poOwnerFormCenter OnClose = FormClose + OnCreate = FormCreate OnShow = FormShow DesignSize = ( 462 @@ -112,31 +113,6 @@ object connform: Tconnform Height = 25 Caption = 'New' OnClick = ButtonNewClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000002904944415478DAA5935F48537114C7BFD3C2708833166C - 5946131F9A2C48A324F2210413FFB0827C287B8851200AD98B60B084C44842F3 - C9088C121F6284B025CCAC494CB29136D6A61284C5869BC8B2627AE7BC6EBBFB - 757E97D4E8F610F483C3E1DE73BF9FF3E7FE8E8A3186FF39AA3F013E9FEF493A - 9DBE9C4C267791472A95928D9EB9B73536365EFC2B201008E493E09146A3B990 - 93938B4D122193811CA56F0A0A34181F1F435353934A01F0FBFD355CACD56A0B - D56A3582A125CA96263D43866508C4A0D3EFC3DBA949582C1625C0EBF5B2A2A2 - 22F985286E623112C55CC04B80CCB6559FADC5A47B02CDCDCD4A80C7E36146A3 - 116B6B6BE07D47965678D5945802A3EC12010AF7EBE07A3586B6B63625C0ED76 - 3393C984783C4E0009E1C85704FC33945992B34B9284BAFA7318733E477B7BBB - 12E072B9585959190441A069A7E40A78EFECD70CB83F50A883C33102ABD5AA04 - 389D4E56515121B7C0017C065CC4632BF9418C861CB096F660E4D95374757529 - 0176BB9D555656CA00514C22BC14DDCEDE1BBD8575218D964316F84293D848AD - 4348AC0AB1F88F7B2F7A66BB6580CD6663555555720B890D519E01E3D3A718F7 - 9FBEBFC77AEE02CA8DC771706F095ECF3BF06EFE0D429FBFF5C980E1E1616636 - 9B118BC5A88A3816C35401DB0250851FEFE37C7D0D909D05F391EBE89DB8866C - 64C1661F1565C0E0E0E0B44EA73B613018A056E7E14B308C44428444BF94AE11 - 1ECF74A0E5522B6A4BAF6EF73E3A37803B0FBB77AE727F7F7F1DDDF5DB7ABDBE - FCB0A1181A8D56DE011EBF31D48086BA33E0B89BD543B8FBF20AF664E7EC54F0 - FBE9ECECAC26612F99696B99C29979EC2E8EE2D4D1D328D11FC3C2F2077866A7 - 1009AEF6A9FE759D4FB6EA7BC8B590E59109640FA607963B7E0270DBAE9CA9CB - A1C30000000049454E44AE426082} PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object btnSave: TPngSpeedButton @@ -146,31 +122,6 @@ object connform: Tconnform Height = 25 Caption = 'Save' OnClick = ButtonSaveClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000002A04944415478DA8D924B4894611486DF6FC699B10BA6A6 - 74752A17BA8816DE6D0CDA0546102D8B16455AA99578CB16A545178A042D3349 - 87891645814952C6384A174A94F19E894269E122B3209C1975749CFF3F9DEF53 - 8236E2371CCE59FCEF732EEF8894DCD60200DB38F670C472AC052884B300413D - A341C0C041A443D7316536E1AB7F7EE15657EDFE06C1807AFBF98C2CF97DFC16 - 8BD2904E0804391674255E6531400860DAAF637A4EA3D18969ED9173D433FCFD - 77A9048CD84B32E21BDD3E941E8A96729CBDD385DBA79310D481509380D964C0 - 3CC33CB31A67C2D8E42C8CD071E561EFBC044CD59764AC7BDEE945F1C1283572 - 614D376E9C4C84C9C8DDCD061E1DF0FA35CCCCC915088EB65FC84C0A43617507 - 4940A0B6C8666A727B9197B95E012ED9FB702D2B01AB438D30F10AFE002F3EA3 - F144EA060C9844C2760B2A9EF482012EFD5EA14DBCE415B2F7452A006BB0C662 - E4EE02418DBBF3E8B3014D89897F0ED74FECB29A51F5AC4F01E86EBE0DCDDD5E - 4CFC18E76309053085F0E11816E491837C8C2543D40B0F8FC44EAB05350D030C - C87151657E3A5E7779D4AE52A5FC530A02EBB9330348D6A46A033789DB2850F7 - 6270115071261DCE1E8FA2FF335F401D4C0A97FC579964C1DFC4460B385E7D5E - 04DCCC49455BBF77694062AD50599300D95D4EA2CBD0D47F842B5823098F9DC3 - 12D042D74FA5E2ED800FE547B66225AFB86E08311184A7AD2310697CC4CB5929 - 783FE845F9E11854B59F58569C6FB3A3E8C1276C0E2734BEF9C2803C17951D4F - C6C7211FCA18E01E7FB72C2025662F0AEEF7635318A1E9030352735BF48BC792 - 45C7B004585734C1B9EA1E6C604073FB2889E49C96B10B471377480F0FA445AD - E806571D6E756067E7B73FF288956C551C5F7D374322D83C651DA465A4FF9741 - 8BB6AA02E483300CFE058C4769232FDE7CCE0000000049454E44AE426082} PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object btnDelete: TPngSpeedButton @@ -180,31 +131,6 @@ object connform: Tconnform Height = 25 Caption = 'Delete' OnClick = ButtonDeleteClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000002954944415478DAA593ED4B536118C6AF33DBD636734C13 - 7599914E320B3243C9425351316C516964122E2A08C5FD0581627F4120414484 - 1A884403732A4A6AA010256192F992DB7CD964BE8496DACE1967E7799E8E130D - 6B7EA9EBD3CD03D78FFBB9EFEBE61863F81F717F023C566B1223B44202A96462 - 20968282316991803653465A4E3C6F75ED0998AFB1964A9434441C37C5E9D2D2 - C019F4805F4060D18BD5DE5E7C5F5D59208C584FBF68B3FD05D83413429A220B - 7275BAB45320AE3160C9038822B87003B8230958B177C133EBF4512259325ABB - 6D3B00774D4DA2DCF660544E96519B910ED2DF0E5EF0832301A8554A70948189 - 7E20351DDFBADF607EC9ED254CCA3EFFF2ED74103057555DAB3546D5475EBB0A - FABE0F84DF802008D82F0ABBE6437C02949979986C7C8A3525EA725E0D3C0C02 - 66AAEF3B620A734C4AC90F7E6E0AD2A80BA1A48AD543119300DF9A80F12F03CE - 5CDBBBE420C059758F4FB852A2E1A646C0AFAF41FFE05148C0F24D33940603C2 - CE9CC5C7F64621FFF590360870DCB5F0878BF3359CE313A8DC85A6F6C99E00EE - 801EEACC7318EA782614B40D6F0126EFDC72C4A4269B344A02C93D03DEFB2374 - 6A140AA8534E62DD2F6262A4C759D4F979EB0B63B7CB6BD5FC46FDA1EB3720F6 - 74802A24043602BB07B8B96E850AFA8B660CDB1EE3A7C8D715778D6F0D71D452 - 9648146CF0A036C21899970BC16E87BC6B304240C0C96E2A23F621E2D265B8FB - BB30B73CEE251CCB2EE99C98DE09D27085B99432A9293A3C4A179D570871D605 - D1E5021529D4C74C50C51F85A7CF8E9995291FE5A84536FF0ED2B63E9417C969 - 941AD4448C8B4FC992D7660CBEF35E379C6303E0897F41365BB7CD218F69B0EC - 42129302155218AD6494C4CA0705B95E94EB662A492D25DD5FF73EA67FD12FCA - BE71F0E82977BB0000000049454E44AE426082} PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object btnEditDesc: TPngSpeedButton @@ -218,36 +144,6 @@ object connform: Tconnform ParentShowHint = False ShowHint = True OnClick = ButtonEditDescClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000003304944415478DA55936B48145114C7FF77B69D6635DDD2 - 5A7B87955498F4707A5056F662B38C88A03E14F4F8103D2D2B23B08784810641 - 11F4A2A2AC5CBF0415158AD562BA5606256A9AA116D592AE8F56F735BB3B3BB7 - 3B339BD1857BEFCC87F33BFF7BCEFF104A29569DAADA618A17B67204E90004B6 - 09103D293BA8025989B4BB7BE94B32F03BAFE6DAFA10A28BA880AC7335D5F773 - C4191C478653C0008AC145B56F8A6E6F180FDEBBD1F93DE86F6E6A49705C5B1F - 1C04AC2B72B8CA0ECD4FF8E482812344CBCC92425633CB1481B08CE529B17857 - FF1C49AD25300C4B83AFA70A44726ED700D9C5B5FED283A2A9ADCFC062A92640 - 614744511064002914C1C2B80AF8BFBC8569D4129893E7C2FDB5169F2B6E76E9 - 0A8A6B03B683A2D0A102880A20FF0178F733A4080D888D9F83BEB65698474E01 - 1F6741CBAB126910507A40147E0C18A275638008654FA030F4BFC644D8619E6C - 45F0571902BD04AECF7EF4FB09E582BDD335C0DA2206600A3A3D46ED01345A3C - E2B6634CE405CC533740725E05C7CB087B27A1AFAE05677E6E0BDDC9DF3454EF - 02033C60806EAF51AF3CDBBEF6C718C7BF8165E646167C059C5146C8930C574D - 3DE2AD45D85AE2912A4F2F3269006B21537058145C3EA3F6045FFB53C478AA31 - 6D6936425D77410C2148FDE3B5E0BEA5373079C2686CB9F05E7A551005AC3EEB - 08D87299021F8FCE0F3624A10932B12031D18111169E054F404F5D2BBC199720 - C78EC50C0B905DF84EAA2A5CAC03561430C01151E8F5F268BAB70A9BF7DD46AB - ED289CDF6A3174E22C44BC14C3AC9721C7276BC69C3586C3CAFC6AC9717E990E - C83C5913B0E589424E3541DA937938B16B37C045505FF9086D3F9CB0673E444F - 4C0A94A83B6D6B8CC8CC7B2DD55D5AAE03324E5405CA8E2F10CE37F1E82A188B - D99312316F7A320296A9F8957A0CE1B8F15A57D4DDD025E3E22220E3905DFA78 - 7DB50E58986BF795E52F3015350A84320729513321EA48D59DEA4DD9B4714CC6 - D54CA2887B2AFD8D37AD711A207DEF8B8EF2E225237D611ACBFE39B58F7FE59A - 4D430687CA64E4A07ACCC4739E993BCB9DCD77B2523580B8AF72BF1CA61B0921 - 7358EE987FA3A87B82FE1D4FFD921445F9C001A50DB7B36EFD017239AC084E0A - BBC10000000049454E44AE426082} PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object EditHost: TEdit diff --git a/source/connections.pas b/source/connections.pas index 302df8d8..29a2905f 100644 --- a/source/connections.pas +++ b/source/connections.pas @@ -43,6 +43,7 @@ type btnSave: TPngSpeedButton; btnDelete: TPngSpeedButton; btnEditDesc: TPngSpeedButton; + procedure FormCreate(Sender: TObject); procedure ButtonSaveAndConnectClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure ButtonConnectClick(Sender: TObject); @@ -81,6 +82,19 @@ begin end; +{** + FormCreate +} +procedure Tconnform.FormCreate(Sender: TObject); +begin + // Assign images from main imagelist to speedbuttons + btnNew.PngImage := Mainform.PngImageListMain.PngImages[72].PngImage; + btnSave.PngImage := Mainform.PngImageListMain.PngImages[10].PngImage; + btnDelete.PngImage := Mainform.PngImageListMain.PngImages[26].PngImage; + btnEditDesc.PngImage := Mainform.PngImageListMain.PngImages[33].PngImage; +end; + + // Connect procedure Tconnform.ButtonConnectClick(Sender: TObject); var diff --git a/source/createtable.dfm b/source/createtable.dfm index 0c23ec2e..373e1d88 100644 --- a/source/createtable.dfm +++ b/source/createtable.dfm @@ -100,22 +100,6 @@ object CreateTableForm: TCreateTableForm Anchors = [akLeft, akBottom] Flat = True OnClick = ButtonMoveUpClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000001654944415478DA63FCFFFF3F032580119F01C5C7D24FFE - FDF3EFF704BBD936241B507434EDA2189B84DEDF7F7F191EBF7F746186C76243 - A20C283991C1F6EFCFBFABA2EC622A0A3C4A0CFFFEFD63B8F1FA3AC3C3378F6E - FDFEF55B7779D4865F780D283C9CBAFBEF9FBF36A2ECE21C0AFC8A0CFFFEFF63 - 78FAFE29C3A587977E000D38B836699B07515E48DD12FDDF4ADE9AE12FD00527 - 6F9F6478FBE18DE5BA94ED27880E83F8B561FFAD956D812EF8CBB0E3F40E860D - 693B18490AC4C86501FF6DD4EDC0066C3FB69D615BDE3ED20C089EE7F5DF4ED7 - 81E12FD080AD07B632EC2D3B429A013E535DFF3B18030D0046E3963D5B180ED7 - 9D22CD00B75EFBFF8E164EC068FCCBB071FB6686536DE74933C0BED5F2BFB3AD - 0B380C366CDCC870A1EF2A690658D61AFF777576031BB07ECD0686AB536F9166 - 8071A9EE7F770F77867F40B86EC506865BB3EF9166806E9EC6FF3FBFFF32FCF9 - FD8701983219EE2D78449A01C40200E3CDD6E1230A89BB0000000049454E44AE - 426082} end object ButtonMoveDown: TPngSpeedButton Left = 160 @@ -125,22 +109,6 @@ object CreateTableForm: TCreateTableForm Anchors = [akLeft, akBottom] Flat = True OnClick = ButtonMoveDownClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000001654944415478DA63FCFFFF3F032580119701252732FEFF - FFF79FE1EF9F7F40FC9761B2D33C46920C283A9AF6DF52C486E1DFFF7F0CFB1F - EC6598E1B1983403F20F24FFB710B766F8F7EF1FC3BEBB7B19E6FA2D27CD80AC - DDF1FF2DA5ACC12ED8736D37C3E2B0B5A41990BA25FABF95BC35C35FA00B765F - DCC5B0326E136906C4AF0DFB6FAD6C0B74C15F861DA777306C48DB419A0191CB - 02FEDBA8DB810DD87E6C3BC3B6BC7DA419103CCFEBBF9DAE03C35FA0015B0F6C - 65D85B768434037CA6BAFE7730061AF0EF2FC3963D5B180ED79D22DE00EF29CE - 165C6CDCC78DB48D81D1F89761E3F6CD0CA7DACE136780D724A71DBF7FFDB657 - 57D4E01013950087C1858B1719EEDCBEF3E3CFEFBF476ECCB8E38AD700E72E1B - B6DF3FFF5C961493545357D7001B70FEDC05863B37EFDEF9F3E7AFF6DD790F7E - 111506C6A5BAE7A5A4A40DFEFEFD0BD27CE9D6EC7BFA240522086866AA1EF9F3 - FB0FEBED39F7CD71A961A4343B0300ACFAD2E11B8572350000000049454E44AE - 426082} end object ButtonCancel: TButton Left = 408 diff --git a/source/createtable.pas b/source/createtable.pas index 6297e631..6bf0eed2 100644 --- a/source/createtable.pas +++ b/source/createtable.pas @@ -112,6 +112,10 @@ procedure TCreateTableForm.FormCreate(Sender: TObject); var charset : String; begin + // Assign images from main imagelist to speedbuttons + ButtonMoveUp.PngImage := Mainform.PngImageListMain.PngImages[74].PngImage; + ButtonMoveDown.PngImage := Mainform.PngImageListMain.PngImages[75].PngImage; + try dsCollations := Mainform.Childwin.GetResults('SHOW COLLATION'); // Detect servers default charset diff --git a/source/exportsql.dfm b/source/exportsql.dfm index 486fd8e1..e62d39ad 100644 --- a/source/exportsql.dfm +++ b/source/exportsql.dfm @@ -162,31 +162,6 @@ object ExportSQLForm: TExportSQLForm Anchors = [akTop, akRight] Flat = True OnClick = btnFileBrowseClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000002A04944415478DA8D924B4894611486DF6FC699B10BA6A6 - 74752A17BA8816DE6D0CDA0546102D8B16455AA99578CB16A545178A042D3349 - 87891645814952C6384A174A94F19E894269E122B3209C1975749CFF3F9DEF53 - 8236E2371CCE59FCEF732EEF8894DCD60200DB38F670C472AC052884B300413D - A341C0C041A443D7316536E1AB7F7EE15657EDFE06C1807AFBF98C2CF97DFC16 - 8BD2904E0804391674255E6531400860DAAF637A4EA3D18969ED9173D433FCFD - 77A9048CD84B32E21BDD3E941E8A96729CBDD385DBA79310D481509380D964C0 - 3CC33CB31A67C2D8E42C8CD071E561EFBC044CD59764AC7BDEE945F1C1283572 - 614D376E9C4C84C9C8DDCD061E1DF0FA35CCCCC915088EB65FC84C0A43617507 - 4940A0B6C8666A727B9197B95E012ED9FB702D2B01AB438D30F10AFE002F3EA3 - F144EA060C9844C2760B2A9EF482012EFD5EA14DBCE415B2F7452A006BB0C662 - E4EE02418DBBF3E8B3014D89897F0ED74FECB29A51F5AC4F01E86EBE0DCDDD5E - 4CFC18E76309053085F0E11816E491837C8C2543D40B0F8FC44EAB05350D030C - C87151657E3A5E7779D4AE52A5FC530A02EBB9330348D6A46A033789DB2850F7 - 6270115071261DCE1E8FA2FF335F401D4C0A97FC579964C1DFC4460B385E7D5E - 04DCCC49455BBF77694062AD50599300D95D4EA2CBD0D47F842B5823098F9DC3 - 12D042D74FA5E2ED800FE547B66225AFB86E08311184A7AD2310697CC4CB5929 - 783FE845F9E11854B59F58569C6FB3A3E8C1276C0E2734BEF9C2803C17951D4F - C6C7211FCA18E01E7FB72C2025662F0AEEF7635318A1E9030352735BF48BC792 - 45C7B004585734C1B9EA1E6C604073FB2889E49C96B10B471377480F0FA445AD - E806571D6E756067E7B73FF288956C551C5F7D374322D83C651DA465A4FF9741 - 8BB6AA02E483300CFE058C4769232FDE7CCE0000000049454E44AE426082} PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object btnDirectoryBrowse: TPngSpeedButton @@ -197,31 +172,6 @@ object ExportSQLForm: TExportSQLForm Anchors = [akTop, akRight] Flat = True OnClick = btnDirectoryBrowseClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C0000028F4944415478DAA5935D48935118C7FF67DBBB4DDBAB13 - 1336BDB0A9F3332DCA1911E58D50981A06918644521974551741109404DD04DD - 2404DD441F04A510986284267DDCC8C83011CDA69656CBA9B9CD6DBAF7F374DE - BD13EC26B01E38EF799EC3F9FFDEFF733887504AF13F41267B768F58D34A4B09 - 316C58A61022D3DF1439B49715C29F8AC43756543F2627CACFCF3DF182BA210B - 2144D325C460B91C5F4260A45DA4C9552D8CE6344A156921EA1FBC5478E443A7 - 0E7856192A6878972ECEDF81221A01431AD3F3B066D7B09C63724DAFB2594DC0 - 89C126FABAF7F9DC8DDEED3AE0A96725BF71808F7F7FC8F650A8C232A458000A - 6B89B33A9946627A917134C732F8E2CBF8D2571B751F7DCFEB80CE4AD155D7CB - 4567BA40C528A49545F025C761CD2C4936BCEE80EA0E4C76F8BAF6C4DDC7BC29 - 3AE07195E83E31C4697F59DFC87CB0F207E4D000A696B76226BC0D8B6B0EA458 - 3864DA14E44C9C11CA9A5F5A75C07D8F50D0F2C6ACAE8E822A213622A07208AA - 14C454D081AFD2411467DB60E28C58088B588E0810E7FA9586FA66930EB8EB89 - E7B7BEB22891D74C1866807002A0E53D3F2FA23C97475436425269A29974AB11 - 63BE79341DC8253AA0A372ADE05CBF550A762785A124248C277357515DE14020 - 2283E921C81419A91CC66796D0529DA303266FEDF2BB4E77A68ABFBC3CD43503 - A57176146CB0B977E91476E4D9B110A39055FD3AD8B770181E9D455B6DA10EF8 - 74A3EC020CA48AF9AB6187CE6FBC74534557B8AC8AC346CE6286A050980C043F - 8312FC1F0769AEEF76EBA1EB030FC8DFDE4247DFACCB62C2C90C9BB95D33B012 - 135439304EF667F9496CFA6D647A62B88D6CF631755FAB3DEB743A6E66B976DA - 27BC2F56370DD0E2D1F9A226675EF93D559553FE09B0317E035C7D448FD2E97A - 180000000049454E44AE426082} PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object editFileName: TEdit diff --git a/source/exportsql.pas b/source/exportsql.pas index bffd1b0c..11180c34 100644 --- a/source/exportsql.pas +++ b/source/exportsql.pas @@ -164,6 +164,9 @@ end; procedure TExportSQLForm.FormCreate(Sender: TObject); begin + // Assign images from main imagelist to speedbuttons + btnFileBrowse.PngImage := Mainform.PngImageListMain.PngImages[10].PngImage; + btnDirectoryBrowse.PngImage := Mainform.PngImageListMain.PngImages[51].PngImage; SetWindowSizeGrip( Self.Handle, True ); end; diff --git a/source/fieldeditor.dfm b/source/fieldeditor.dfm index 01ae3611..e357a3b7 100644 --- a/source/fieldeditor.dfm +++ b/source/fieldeditor.dfm @@ -14,6 +14,7 @@ object FieldEditForm: TFieldEditForm Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter + OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 @@ -225,18 +226,6 @@ object FieldEditForm: TFieldEditForm Hint = 'Add field to index' Flat = True OnClick = AddField - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000000F54944415478DA63FCFFFF3F032580719819507222830D - 486DEDB198E14AAE01B7FFFEFE2BD36F3B9B936403809A2F8AB349E8FDF9F387 - E1E1BB870CBF7EFE66F8F503847F31FC046230FD1DC106C95D9C708D116C0050 - F34931567133451E65863FFFFEC0F1EFBF7F81F837C3EF7F40FC1728F6F70F84 - 06F257AF5CCB707DFA6D88018587538F88B28959CBF32A42348314820DF80DA1 - FF400D80CAFDF9FF8761CDB2F50C77E6DE67847B216347EC79613611030E664E - 86872F1F32BC7EFF06ABB3415EFBFD0B68C8EF3F0C0F163D664409C49895C137 - 810AE5801A1C37A6EF3C41722C842DF465036ADE04D4EC31300969681A00002A - EDDDE1EE0C96E70000000049454E44AE426082} end object btnDeleteColumnFromIndex: TPngSpeedButton Tag = 2 @@ -247,18 +236,6 @@ object FieldEditForm: TFieldEditForm Hint = 'Remove field from index' Flat = True OnClick = RemoveField - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000000FD4944415478DA63FCFFFF3F032580718419E03FD37DF7 - AF1FBFBCB7E7EFFF4596019E131DBFFFFCFEEBC9BE8AA3AA2806949CC8009BF2 - F7F75F863FBFFF30FCFEF587E1D7CFDF0CBF7E80F02F869F400CA2258524197E - FDFACD70F3F6AD4BA73B2EEAA31860256CCBF0F71FD0807F7FE0F8F7DFBF40FC - 9BE1F73F20FE0B14FBFB074C9F3B7F96E1E68DDBA7AE4FBF6D0E36A0F070EA7F - 0B516B84669042B001BF21F41FA80150B973E7CE33DCBA7EE7E89DB9F76DC006 - E4EE4BFC8FCBD9403F83D95C1C5C0C9292520CAF5FBD66B87DE3EE05A0664392 - 0251BF40CB0268C17EA0458F809AD5C98A059564C51DC040F67BB0E83179D148 - 71421A9C060000DB7FEAE1DBB736010000000049454E44AE426082} end object btnAddAllColumnsToIndex: TPngSpeedButton Left = 133 @@ -268,28 +245,6 @@ object FieldEditForm: TFieldEditForm Hint = 'Add all fields to index' Flat = True OnClick = btnAddAllColumnsToIndexClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001874455874536F667477617265005061696E742E4E45542076332E31 - 3072B22592000002274944415478DAA5D35F4853511800F06F2CEFD06D64732B - EFFC43C2DA4B26D1A288961122155162294952EE2956BE4A20850F3E06F51AA3 - D062617FE8A13604B7118E25B93D883899FF46F75E560F091384E6C3EE39E7DE - BE7BD362246DD007E7E13B707E7CDFF9CE31A8AA0AFF13864A81C3836E23A5AC - 8151068C29203ECFE52A068E0D1DE9A18406AA38CEC6080288147E6C81F82267 - 280B9C1AF1B8A8CC32C73D1EAED6560B5461A0E07AFF260C5FC6A452E0DAD825 - 8ECA34F4C11FB9B0B37766F4E4B8ABC5E56B6A6A06A650602AD391D0DB30AC3D - 154A81EBC12BAB08341342CF85FCD164E7A3762FE6F10E6F8791300299A52510 - 0411E422D1DB587E92FD030CBCEB9DE7ADCEA366CE0CE27709F29BF9A2C56435 - F1761E1C75FB21BD9C0641141E233E3CF7302D974CE1F664FF4CBDD979DAED70 - 6379542F51663296CCF47C3DBF0EC9F954347E7FF6FCAE63BC13B995AAAFE14F - 1CAA4340458069000145557E011B082C24A31FEFCDEC0E68E19FBAB9C0D7F06D - 386B90F21250C28A16CE623AB09707FB3E3B2C661741FA2AE92D241E24E5BF80 - 6D248B071B9F5D9EA8D6F2BE975D5E9C7FBCBDF5AC7E892BC20A88DF24BC4419 - 1082D9D1B9D2290CC67C1C563019B818ECDCD9EB0B768D1FB4B7F87887135BA3 - BFD7D474043E8DA4CA3FA4FED7575D5845A6B5B18DB35AAC40B681682202D3C3 - 9FCB033AF2AABB074B0EEC812A1B6240640A85AD02C4861295015ADC98E836E2 - E106AD777C5C10BE1BABFC33FD2B7E02A38E58F0529AE0B50000000049454E44 - AE426082} end object btnDeleteAllColumnsFromIndex: TPngSpeedButton Left = 133 @@ -299,28 +254,6 @@ object FieldEditForm: TFieldEditForm Hint = 'Remove all fields from index' Flat = True OnClick = btnDeleteAllColumnsFromIndexClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001874455874536F667477617265005061696E742E4E45542076332E31 - 3072B22592000002284944415478DA63FCFFFF3F032580116680EF3457391636 - 160656561606165696A7CBA2D6FF25DA00D71EBBFF3CDC3C0CAC6C60CD0C7F18 - 7EBF031A94BE3472FD1AA20C706CB7FAEF66E7CEC0C20C7401107FFEF299E1CA - 934BBF8086692F8D587787A001B64DE6FF3D1C2106C0F0F3D7CF181EBCB9BF60 - 45ECC64498E2F4EDB1BB595898BDA7BA2EF8856280659DF17F90DFD9D8D91814 - 651418349434802E61653874E5E05FA02B1C56C46C3C02529CB239EA3B0B2BF3 - 93191E8B5531021104EC5A2CD88006B52BC82A14E9AAEA32BC79FF86E1E5C7E7 - 0C5F7E7DF909D4C8AE20A2C0007401C3F36FCF2F010DD1C73000069CBB6C765A - E85BB8890B8B33B030B13030313231B0015DC4C2CCCCC0C2C8C270FBED2D8617 - DF9E9F9AEEBEC81CAB010EAD963B2D0CCDDDC4452006303331030D6003B299C1 - FC5BAF81067C7D767496F7521B14038CCBF4C05E5052542AD2D3D46378FDF615 - C3F337402FFCFCFC534440845D514281E1EBAFAF0CCF3F3FBBB03064B521DC0B - 9A99AAFF99817E6363676550525264D0D6D20207E2DE237BFF021397C3EEE243 - 47FC66B859000DDF0FE43F5A19BB491D2510D55295FEFB85F9829DC8CC08C440 - 673E7EFC88E1CEFD3B0B0ED79D8447A3FF0CF71D4003FCD6266D458D46E52485 - FF01E1BE0C4C603F32337C78F781E1CCD9B3BF58D898B58F379D259C9014E3E5 - FEF3F0723380BCC1CCCACCF0FBD7AF77C0F84F3FD77399B8A40C028A097272CC - CC4C60438071FDF4EAD45BC467264A00000AF7DBE129230F2A0000000049454E - 44AE426082} end object ComboBoxKeys: TComboBoxEx Left = 72 diff --git a/source/fieldeditor.pas b/source/fieldeditor.pas index 3c69474a..21ff9ce7 100644 --- a/source/fieldeditor.pas +++ b/source/fieldeditor.pas @@ -56,6 +56,7 @@ type btnDatatypeHelp: TButton; lblComment: TLabel; EditComment: TEdit; + procedure FormCreate(Sender: TObject); procedure btnDatatypeHelpClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure ComboBoxTypeChange(Sender: TObject); @@ -134,6 +135,19 @@ begin end; +{** + FormCreate +} +procedure TFieldEditForm.FormCreate(Sender: TObject); +begin + // Assign images from main imagelist to speedbuttons + btnAddAllColumnsToIndex.PngImage := Mainform.PngImageListMain.PngImages[78].PngImage; + btnAddColumnToIndex.PngImage := Mainform.PngImageListMain.PngImages[76].PngImage; + btnDeleteAllColumnsFromIndex.PngImage := Mainform.PngImageListMain.PngImages[79].PngImage; + btnDeleteColumnFromIndex.PngImage := Mainform.PngImageListMain.PngImages[77].PngImage; +end; + + {*** Init Field-Editor } diff --git a/source/loaddata.dfm b/source/loaddata.dfm index 43f64ede..cfc4ade2 100644 --- a/source/loaddata.dfm +++ b/source/loaddata.dfm @@ -14,6 +14,7 @@ object loaddataform: Tloaddataform Font.Style = [] OldCreateOrder = False Position = poMainFormCenter + OnCreate = FormCreate OnShow = FormShow DesignSize = ( 423 @@ -77,119 +78,6 @@ object loaddataform: Tloaddataform Anchors = [akTop, akRight] Flat = True OnClick = btnOpenFileClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 61000000097048597300000B1300000B1301009A9C1800000A4F694343505068 - 6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7 - DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1 - 114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1 - 7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E - 11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0 - 07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08 - 801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027 - 7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A - 450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00 - 305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078 - 99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279 - 99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA - BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225 - EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5 - E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D - 814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9 - 582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35 - 00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380 - 6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000 - 44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64 - 801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E - 3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8 - 21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C - 46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064 - 74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4 - 6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704 - 128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384 - 51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4 - 37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9 - DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853 - E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1 - B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11 - DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867 - 197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA - 0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353 - E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659 - C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD - D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C - 744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48 - AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7 - 53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E - 4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5 - 35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F - 8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B - 4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8 - 6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711 - A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217 - 67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A - DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767 - 1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5 - 9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5 - D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761 - EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43 - 7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65 - F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69 - 0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577 - D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F - C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B - 17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816 - 8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC - 91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD - 31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507 - C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E - 2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39 - B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D - 6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D - 1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF - 66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97 - CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5 - 61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49 - FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D - D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9 - F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B - 625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367 - F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B - E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB - 9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D - DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41 - D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43 - 058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB - AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6 - 1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553 - D0A7FB93199393FF040398F3FC63332DDB000003404944415478DA6593FD4B5B - 6714C7BFF726E6269162D21AAB89F1A533D56BAB4ED0457F59AD505B9D59E9C4 - C6D19F677FB350A8F40F28946D30363A94766C4D59AB166A14D18858990C747D - 2FAD685CCCB42F59516350935C9B979B7BF7DC07125A76E072E0B9E77C9EEFF9 - DE7399AEAE2E283138388874F4F4F414D7D4D4E458AD56F5C4C4C47113099665 - F7EBB49A7DAC5A63D0EAB22D1267C0EC33AF97713A9DB469686888E69696165B - 7777B7BBA0A0C02A4952323F3F5FB6D96C26E55D4848E0A53F00B01C3EABB2E0 - DB6BB7FF661C0E076D1C1B1BA3B9AEAEEEDCF4F4F46DA3D1880F239914E179BC - 0263AE09A59603306433B8F2C3AD7F98D6D6565AE0F17868B6DBED5D23232377 - CC66332BCB323D9352298442213C5B0BE1705525D4E48CD300DFFD74CBCF9C52 - 00A4707272921637343438DD6EF7401AC0300CE2F138829B9B04B0858A4F6B21 - 498096007EFCD9E5679A9B9BA156AB3135354501F5F5F5CED1D1D1018BC5C212 - 0F40CCA380AD60104F5683F8E4682D524411A751A1EFFA4D3F53595E8EC5E5E5 - CCACC4030A282C2CA480B40205F0702588E223B510933168390EFD378882F2B2 - 322CAFAC6400D5D5D59DE3E3E343454545AC725306B04500BE204C872A214B22 - 541A0ED77F211E54D86CF0FA7C19406363E359B21383252525AC288A9911140F - FEF4BE43DEA12AC82911E1941A7707EE7C0C68B0DB73DADBDB7FBBD4DBFB95E2 - 4BDAC4F77B7B44C12651F00E5C6E1922521622228BFB63772980F8094D2C164B - 91A7C2E5728D9F6C6B332BB72A1E28104589100963C1EBC3AA68C28E6C845697 - 8559CF3D0A3010C061D2C0C513096B5F7FFFF75F9E3E6D8E46A348EF01552144 - B1E05BC57C8085A8CB43AE418F3F3CC36B0A802535458964F2188128809E7687 - C3A400542A150528183995C4DBF52D0CCC6D20CA1AC0EAF57834ED7E4E3D20A1 - 4A2412674861EB4D97EBEB634D4DBA3D3277241C065185402090F8F7CDDAAB07 - 2F96B757C197FA655E140273AF65BDF162C64492B389079F7F73FEFC65B2DE36 - 41100CE1DDDD99D0F6F652FEC183F3D19DD04CDFAFBFF3EB795FDC8808E18DD4 - FAD3DEC05FC32FFFF7193B3B3A0A789ECF217FA3BE82E717DFC762F12CB50A27 - 5A4E826FEAA8DB11F517349270F5F5BC7B49A9FF0FF8D2935990210E17000000 - 0049454E44AE426082} end object editFilename: TEdit Left = 16 @@ -356,22 +244,6 @@ object loaddataform: Tloaddataform Anchors = [akTop, akRight] Flat = True OnClick = btnColUpClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000001654944415478DA63FCFFFF3F032580119F01C5C7D24FFE - FDF3EFF704BBD936241B507434EDA2189B84DEDF7F7F191EBF7F746186C76243 - A20C283991C1F6EFCFBFABA2EC622A0A3C4A0CFFFEFD63B8F1FA3AC3C3378F6E - FDFEF55B7779D4865F780D283C9CBAFBEF9FBF36A2ECE21C0AFC8A0CFFFEFF63 - 78FAFE29C3A587977E000D38B836699B07515E48DD12FDDF4ADE9AE12FD00527 - 6F9F6478FBE18DE5BA94ED27880E83F8B561FFAD956D812EF8CBB0E3F40E860D - 693B18490AC4C86501FF6DD4EDC0066C3FB69D615BDE3ED20C089EE7F5DF4ED7 - 81E12FD080AD07B632EC2D3B429A013E535DFF3B18030D0046E3963D5B180ED7 - 9D22CD00B75EFBFF8E164EC068FCCBB071FB6686536DE74933C0BED5F2BFB3AD - 0B380C366CDCC870A1EF2A690658D61AFF777576031BB07ECD0686AB536F9166 - 8071A9EE7F770F77867F40B86EC506865BB3EF9166806E9EC6FF3FBFFF32FCF9 - FD8701983219EE2D78449A01C40200E3CDD6E1230A89BB0000000049454E44AE - 426082} end object btnColDown: TPngSpeedButton Left = 150 @@ -381,22 +253,6 @@ object loaddataform: Tloaddataform Anchors = [akTop, akRight] Flat = True OnClick = btnColDownClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000001654944415478DA63FCFFFF3F032580119701252732FEFF - FFF79FE1EF9F7F40FC9761B2D33C46920C283A9AF6DF52C486E1DFFF7F0CFB1F - EC6598E1B1983403F20F24FFB710B766F8F7EF1FC3BEBB7B19E6FA2D27CD80AC - DDF1FF2DA5ACC12ED8736D37C3E2B0B5A41990BA25FABF95BC35C35FA00B765F - DCC5B0326E136906C4AF0DFB6FAD6C0B74C15F861DA777306C48DB419A0191CB - 02FEDBA8DB810DD87E6C3BC3B6BC7DA419103CCFEBBF9DAE03C35FA0015B0F6C - 65D85B768434037CA6BAFE7730061AF0EF2FC3963D5B180ED79D22DE00EF29CE - 165C6CDCC78DB48D81D1F89761E3F6CD0CA7DACE136780D724A71DBF7FFDB657 - 57D4E01013950087C1858B1719EEDCBEF3E3CFEFBF476ECCB8E38AD700E72E1B - B6DF3FFF5C961493545357D7001B70FEDC05863B37EFDEF9F3E7AFF6DD790F7E - 111506C6A5BAE7A5A4A40DFEFEFD0BD27CE9D6EC7BFA240522086866AA1EF9F3 - FB0FEBED39F7CD71A961A4343B0300ACFAD2E11B8572350000000049454E44AE - 426082} end object comboDatabase: TComboBox Left = 10 diff --git a/source/loaddata.pas b/source/loaddata.pas index 6e2922f5..f2949871 100644 --- a/source/loaddata.pas +++ b/source/loaddata.pas @@ -51,6 +51,7 @@ type editLineTerminator: TEdit; lblLineTerminator: TLabel; lblIgnoreLines: TLabel; + procedure FormCreate(Sender: TObject); procedure editFilenameChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure comboDatabaseChange(Sender: TObject); @@ -91,6 +92,17 @@ begin end; +{** + FormCreat +} +procedure Tloaddataform.FormCreate(Sender: TObject); +begin + // Assign images from main imagelist to speedbuttons + btnOpenFile.PngImage := Mainform.PngImageListMain.PngImages[52].PngImage; + btnColUp.PngImage := Mainform.PngImageListMain.PngImages[74].PngImage; + btnColDown.PngImage := Mainform.PngImageListMain.PngImages[75].PngImage; +end; + procedure Tloaddataform.FormShow(Sender: TObject); begin // read dbs and Tables from treeview diff --git a/source/sqlhelp.dfm b/source/sqlhelp.dfm index 03d0d655..f3ae8877 100644 --- a/source/sqlhelp.dfm +++ b/source/sqlhelp.dfm @@ -12,6 +12,7 @@ object frmSQLhelp: TfrmSQLhelp Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False + OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 @@ -176,38 +177,6 @@ object frmSQLhelp: TfrmSQLhelp Anchors = [akRight, akBottom] Caption = 'Search online' OnClick = ButtonOnlinehelpClick - PngImage.Data = { - 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF - 610000001974455874536F6674776172650041646F626520496D616765526561 - 647971C9653C000003764944415478DA55936D6C535518C7FFB7EDA55DD7EEA5 - 69479BAE2373B8C0C690340803E60C084C9630612A44E31842982F71BE46FC62 - A209066362FC22C1C444191F0431F261E240948D652D939139DEC6325760525B - DA6EC2D6BBF5EEF6DEF3E2D9E2089EE49F7372F23CBFE725CF2371CEF1F07933 - FCF213E26A157A5CC82364114A0BF571C60F7F59DBF6CBC3F6D23C4038CE1AB6 - 093DB7B564A3D595E3415ACD85AA03846A2048A1F3EE194209FD8D10BAE3DBFA - 13D30F00C25916EFF32B3D95EBEA021BA0685664A123A24858C0ADB8A73270A2 - 23071924B221F4C7FBAF1183D41EDFD19E9E077C177497BFF8A47F0D34D8C069 - 1E74DDC0902243365B119FE0300C02B3A6A0D43385A8D2899EC89533279B4ED7 - 4BADA1DD35227AD7FB2B9AE5AB24034D0272A90350DD886764640D09C377A600 - A663A1EF1E8ADCA35869F3E3A3535F5191C5B3B3809375FED58D5E6700231602 - 13F7A194D8108A5BC0880591E43424DB7DD8FDB761B225C19886E0F44248DA0C - 8EF476FC3A0B88EE5BDA18B8AC26316E33A1C25C8D424A706C8043D328F27D1C - 8AEB07DC6593220B8E02624569C28A8DA5417CF8E3A1C42C20F3565593FD5832 - 8431B38A2AFBD370EA79387D9121DF338345252A6EB0FBB00D1C06D532180F2C - 41F1841D7BD73E83D7BF393023BDD1D3ACBE53B52BE748B40313082098BF0CDD - BDA207390E64520AFC6580A32885B12B9F2350B80843F10114E406F1EAFA9D68 - F9FA634D7AADAB29D652D9E8EF1EBF0EDD56036DC282C1213B7CE6B745BD143A - 33A01302BF6B3196076A7069B40BD7627DD85FFF19F61FFD2225ED3BFBC24F5B - 4AAAB7CAD63C9C4BC4047D316E0E0690CFDEC5A665CDA09C810A909804242763 - 287414E1F75BE770F9EF300CE5D16E69F7A9E7371383767C50B3C7D276F56750 - 4906C96E839A7A0FF58FEDC59D7F22301801119918D480C9B40045CE62846F9F - 45DFE8053237483BBF6F685FE55DD250EE2DC31FC9BFC04C4FE1D69FAD6858F1 - 8A70A46294E95C268974142E875744EF45E7F0795523BA7B0ED078748BD3D069 - 784D71C5F20DC15A0C8FB9D01EDE034DD7450F7468C440997B29AA1FD98CFE68 - 2FBA477AB2765A5C3E78F066F4C132D51D5AEF1493754294B369D73AB158D40B - CEED904C12DC050A0E74BC844ADF6A84462E4CE5F240C5F58391D8FFB671FEAC - FD64D576B1712D94B22A4659E17FDFE949F30D376190671895C73FE564DEFE5F - 67A6B969C4CDA1940000000049454E44AE426082} end object MemoExample: TMemo AlignWithMargins = True diff --git a/source/sqlhelp.pas b/source/sqlhelp.pas index 1dbc364d..e51ed441 100644 --- a/source/sqlhelp.pas +++ b/source/sqlhelp.pas @@ -25,6 +25,7 @@ type MemoExample: TMemo; ButtonClose: TButton; btnSearchOnline: TPngSpeedButton; + procedure FormCreate(Sender: TObject); procedure treeTopicsExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean); procedure treeTopicsChange(Sender: TObject; Node: TTreeNode); @@ -60,6 +61,16 @@ uses ZDataset, helpers, main, db; {$R *.dfm} +{** + FormCreate +} +procedure TfrmSQLhelp.FormCreate(Sender: TObject); +begin + // Assign images from main imagelist to speedbuttons + btnSearchOnline.PngImage := Mainform.PngImageListMain.PngImages[69].PngImage; +end; + + {*** Startup }