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

Revert broken r1561. Worse than before - more AVs, even when pressing a speedbutton which has loaded its icon correctly. Weird.

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

16
source/childwin.dfm
View File

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

4
source/childwin.pas
View File

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

106
source/connections.dfm
View File

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

14
source/connections.pas
View File

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

32
source/createtable.dfm
View File

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

4
source/createtable.pas
View File

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

50
source/exportsql.dfm
View File

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

3
source/exportsql.pas
View File

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

69
source/fieldeditor.dfm
View File

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

14
source/fieldeditor.pas
View File

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

146
source/loaddata.dfm
View File

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

12
source/loaddata.pas
View File

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

33
source/sqlhelp.dfm
View File

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

11
source/sqlhelp.pas
View File

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