opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix one critical AV, part of bug #580 . Loading a PNGImage from a TPNGImagelist onto a TSpeedbuttons seems buggy. Instead, assign icons at designtime. Ugly fix as we now have redundant icons, anyway, we should look after not using TPNGSpeedbutton in too many places.

Browse Source
This commit is contained in:
Ansgar Becker
2008-07-02 22:21:04 +00:00
parent 450edab57c
commit 94822c33fa
14 changed files with 448 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/childwin.dfm
View File

@ -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

4
source/childwin.pas
View File

@ -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;

106
source/connections.dfm
View File

@ -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

14
source/connections.pas
View File

@ -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

32
source/createtable.dfm
View File

@ -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

4
source/createtable.pas
View File

@ -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

50
source/exportsql.dfm
View File

@ -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

3
source/exportsql.pas
View File

@ -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;

69
source/fieldeditor.dfm
View File

@ -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

14
source/fieldeditor.pas
View File

@ -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
}

146
source/loaddata.dfm
View File

@ -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

12
source/loaddata.pas
View File

@ -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

33
source/sqlhelp.dfm
View File

@ -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

11
source/sqlhelp.pas
View File

@ -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
}