diff --git a/source/childwin.dfm b/source/childwin.dfm index e7a7184c..9c454ca0 100644 --- a/source/childwin.dfm +++ b/source/childwin.dfm @@ -782,6 +782,14 @@ object MDIChild: TMDIChild Caption = 'Columns' Layout = blGlyphRight OnClick = btnDataClick + PngImage.Data = { + 89504E470D0A1A0A0000000D4948445200000010000000100804000000B5FA37 + EA0000000467414D410000AFC837058AE90000001974455874536F6674776172 + 650041646F626520496D616765526561647971C9653C000000664944415478DA + 63FCCF801F300E290507FFFF62F8C9F083E13BC337866FDF0BB93014ECF8CACC + C5CAF00B085F323CBED06088A1608DC4F73B6CDC9C0C2F181E7EFFAEDD771F8B + 1BA6487CBBCFCDF1E8FB778D498F7038B25AE2FBE51FC6D390A4075940E10200 + 4C6934019470C4260000000049454E44AE426082} end object lblDataTop: TLabel Left = 1 @@ -812,6 +820,14 @@ 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 09ea1f41..c7db2924 100644 --- a/source/childwin.pas +++ b/source/childwin.pas @@ -2850,10 +2850,6 @@ 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 e7c6114f..13531a42 100644 --- a/source/connections.dfm +++ b/source/connections.dfm @@ -18,7 +18,6 @@ object connform: Tconnform OldCreateOrder = False Position = poOwnerFormCenter OnClose = FormClose - OnCreate = FormCreate OnShow = FormShow DesignSize = ( 462 @@ -113,6 +112,31 @@ 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 @@ -122,6 +146,31 @@ 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 @@ -131,6 +180,31 @@ 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 @@ -144,6 +218,36 @@ 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 29a2905f..302df8d8 100644 --- a/source/connections.pas +++ b/source/connections.pas @@ -43,7 +43,6 @@ 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); @@ -82,19 +81,6 @@ 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 373e1d88..0c23ec2e 100644 --- a/source/createtable.dfm +++ b/source/createtable.dfm @@ -100,6 +100,22 @@ 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 @@ -109,6 +125,22 @@ 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 6bf0eed2..6297e631 100644 --- a/source/createtable.pas +++ b/source/createtable.pas @@ -112,10 +112,6 @@ 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 e62d39ad..486fd8e1 100644 --- a/source/exportsql.dfm +++ b/source/exportsql.dfm @@ -162,6 +162,31 @@ 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 @@ -172,6 +197,31 @@ 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 11180c34..bffd1b0c 100644 --- a/source/exportsql.pas +++ b/source/exportsql.pas @@ -164,9 +164,6 @@ 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 e357a3b7..01ae3611 100644 --- a/source/fieldeditor.dfm +++ b/source/fieldeditor.dfm @@ -14,7 +14,6 @@ object FieldEditForm: TFieldEditForm Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter - OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 @@ -226,6 +225,18 @@ 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 @@ -236,6 +247,18 @@ 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 @@ -245,6 +268,28 @@ 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 @@ -254,6 +299,28 @@ 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 21ff9ce7..3c69474a 100644 --- a/source/fieldeditor.pas +++ b/source/fieldeditor.pas @@ -56,7 +56,6 @@ type btnDatatypeHelp: TButton; lblComment: TLabel; EditComment: TEdit; - procedure FormCreate(Sender: TObject); procedure btnDatatypeHelpClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure ComboBoxTypeChange(Sender: TObject); @@ -135,19 +134,6 @@ 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 cfc4ade2..43f64ede 100644 --- a/source/loaddata.dfm +++ b/source/loaddata.dfm @@ -14,7 +14,6 @@ object loaddataform: Tloaddataform Font.Style = [] OldCreateOrder = False Position = poMainFormCenter - OnCreate = FormCreate OnShow = FormShow DesignSize = ( 423 @@ -78,6 +77,119 @@ 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 @@ -244,6 +356,22 @@ 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 @@ -253,6 +381,22 @@ 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 f2949871..6e2922f5 100644 --- a/source/loaddata.pas +++ b/source/loaddata.pas @@ -51,7 +51,6 @@ type editLineTerminator: TEdit; lblLineTerminator: TLabel; lblIgnoreLines: TLabel; - procedure FormCreate(Sender: TObject); procedure editFilenameChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure comboDatabaseChange(Sender: TObject); @@ -92,17 +91,6 @@ 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 f3ae8877..03d0d655 100644 --- a/source/sqlhelp.dfm +++ b/source/sqlhelp.dfm @@ -12,7 +12,6 @@ object frmSQLhelp: TfrmSQLhelp Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False - OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 @@ -177,6 +176,38 @@ 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 e51ed441..1dbc364d 100644 --- a/source/sqlhelp.pas +++ b/source/sqlhelp.pas @@ -25,7 +25,6 @@ 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); @@ -61,16 +60,6 @@ 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 }