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

PngIcons:

Browse Source 
- Ban glyph data of all TSpeedButton's + TBitBtn's out of dfm files by converting them to TPngSpeedButtons and assign an image from PngImageListMain at runtime.
- Add "highlight" versions of "database" and "table" icons and use these on selected DBtree nodes.
- Remove no longer used BMP icons

Todo: Fill PngImageListMain at runtime.
Note 1: TBitBtn's are not Windows-theme-aware, even with a manifest in place, so we should avoid using them anywhere.
Note 2: T(Png)SpeedButton lacks a TabOrder property, so some of the other TabOrder's are automatically changed here.
This commit is contained in:
Ansgar Becker
2008-03-09 19:56:52 +00:00
parent 866146d4b7
commit e53db0a9b7
29 changed files with 387 additions and 389 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
res/arrow_dropdown.bmp
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 82 B

BIN
res/icons/arrow_down.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 379 B

BIN
res/icons/arrow_join_left.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 651 B

BIN
res/icons/arrow_join_right.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 658 B

BIN
res/icons/arrow_left.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 345 B

BIN
res/icons/arrow_right.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 349 B

BIN
res/icons/arrow_up.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 372 B

BIN
res/icons/bullet_arrow_down.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 201 B

BIN
res/icons/database_highlight.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 645 B

BIN
res/icons/table_highlight.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 609 B

BIN
res/icons/textfield_rename.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 273 B

BIN
res/icons8bit.bmp
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 26 KiB

12
source/childwin.dfm
View File

@ -962,7 +962,7 @@ object MDIChild: TMDIChild
DesignSize = (
496
31)
object btnColumnSelection: TSpeedButton
object btnColumnSelection: TPngSpeedButton
Left = 187
Top = 4
Width = 70
@ -976,10 +976,6 @@ object MDIChild: TMDIChild
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Glyph.Data = {
52000000424D52000000000000003E0000002800000009000000050000000100
010000000000140000000000000000000000020000000200000000000000FFFF
FF00F7806300E3805C00C18032008080300000004700}
Layout = blGlyphRight
ParentFont = False
OnClick = btnDataClick
@ -996,7 +992,7 @@ object MDIChild: TMDIChild
Layout = tlCenter
WordWrap = True
end
object btnDataSorting: TSpeedButton
object btnDataSorting: TPngSpeedButton
Left = 111
Top = 4
Width = 70
@ -1010,10 +1006,6 @@ object MDIChild: TMDIChild
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Glyph.Data = {
52000000424D52000000000000003E0000002800000009000000050000000100
010000000000140000000000000000000000020000000200000000000000FFFF
FF00F7806300E3805C00C18032008080300000004700}
Layout = blGlyphRight
ParentFont = False
OnClick = btnDataClick

14
source/childwin.pas
View File

@ -24,7 +24,7 @@ uses
SynCompletionProposal, HeidiComp, SynEditMiscClasses, MysqlQuery,
MysqlQueryThread, queryprogress, communication, MysqlConn, Tabs,
VirtualTrees, createdatabase, tbl_properties, createtable, TntDBGrids, TntClasses,
SynUnicode, SynRegExpr, EditVar;
SynUnicode, SynRegExpr, EditVar, PngSpeedButton;
type
TOrderCol = class(TObject)
@ -247,7 +247,7 @@ type
QF17: TMenuItem;
N21: TMenuItem;
btnUnsafeEdit: TToolButton;
btnColumnSelection: TSpeedButton;
btnColumnSelection: TPngSpeedButton;
pnlQueryHelpers: TPanel;
tabsetQueryHelpers: TTabSet;
lboxQueryHelpers: TListBox;
@ -265,7 +265,7 @@ type
MenuReplace: TMenuItem;
MenuItem2: TMenuItem;
lblDataTop: TLabel;
btnDataSorting: TSpeedButton;
btnDataSorting: TPngSpeedButton;
spltQueryHelpers: TSplitter;
menuRenameColumn: TMenuItem;
N22: TMenuItem;
@ -1338,7 +1338,7 @@ begin
begin
tnode := newTree.Items.AddChild( tnodehost, OnlyDBs2[i] );
tnode.ImageIndex := 5;
tnode.SelectedIndex := 5;
tnode.SelectedIndex := 70;
// Add dummy-node, will be replaced by real tables on expanding
newTree.Items.AddChild( tnode, DUMMY_NODE_TEXT );
if i = 0 then tnodehost.Expand(false);
@ -2056,7 +2056,7 @@ begin
with tmp do
begin
ImageIndex := 14;
selectedIndex := 14;
selectedIndex := 71;
if Text = find then select := tmp;
end;
// Add tables to syntax highlighter
@ -3394,6 +3394,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;

105
source/connections.dfm
View File

@ -18,6 +18,7 @@ object connform: Tconnform
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
DesignSize = (
462
@ -3059,7 +3060,7 @@ object connform: Tconnform
Height = 17
Anchors = [akLeft, akTop, akRight]
Caption = 'Sort databases alphabetically'
TabOrder = 14
TabOrder = 11
OnClick = Modified
end
object ButtonSaveAndConnect: TButton
@ -3069,130 +3070,48 @@ object connform: Tconnform
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Save + Connect'
TabOrder = 15
TabOrder = 12
OnClick = ButtonSaveAndConnectClick
end
object btnNew: TPngBitBtn
object btnNew: TPngSpeedButton
Left = 152
Top = 17
Width = 89
Height = 25
Caption = 'New'
TabOrder = 11
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: TPngBitBtn
object btnSave: TPngSpeedButton
Left = 258
Top = 17
Width = 89
Height = 25
Caption = 'Save'
TabOrder = 12
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: TPngBitBtn
object btnDelete: TPngSpeedButton
Left = 363
Top = 17
Width = 91
Height = 25
Caption = 'Delete'
TabOrder = 13
OnClick = ButtonDeleteClick
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000002544944415478DA95924D68D36018C79F7C746D92A6B5DD
86B2B5540FE2A111BC7A109908823741D4F939F5205E4451F4EC511041143C09
DE446FE2555BBFE7C9EDD04EBC48B77569BA43ED47DABC5992373E6F628BA5DB
612F24E125EFEFF73CF93FE17CDF87ED2C7BEEAA1C7DF1BCD7DF7343823BF772
788FC3C307E54DE14B57F2BEEB1CA58EBB20BF7EF96958C06041A8B0BD6FDB1A
FFF8D190C4BE78398FEF4B5C740C36EAEBAF50745F7DFBE66728F80743340A4C
E7773A4009D1C4674F0309B93097E778BE242454109349B057AB400CE326759C
27A1E0F6DD984F69172489E7541568BB0DB4D94489A561BBC0601EE148220964
AD0A76CDF0109652C577CEE013E88D5B31DFF34C4E92041E0F7AAD26B87F1AE0
A3404069249900525D63953D6C3F9E2ABE272321BAD7AEC7A8EB99BC2C0B626A
078047D1CC2E0F2B33B81EC21F0A64F3298461A1C4ED4AB9DD3CAC2CA3C403C8
4C4373619152D751D21F8BE4FFF323026BF63C06C69562D319804A25EC0005AD
A525703AA63631FFA5BCA5C03A732E0F088BB28281A908FB41FB4C42EA75B00C
03363A1D6DE7E28FF288A077FA6C5039841360D57406B1B4B9582ACD2B53BBA0
5733A0A7EB2831B5A95F4BE581A0776A3698B328CB08C7C1D20D20EB0C76E318
1AE0D394C6D3829ACD4057AF411703659D642ABFCB81C03C7172868F888588A2
806B76C14218C7171FFFF63908CCD87F0047EC9ACAE4A4C0CE986C228DC691EC
EA7271F009AD63C751122938ED16C58A0A863594B6BE775FF09F8CA9AAD08747
426C1C3A3C83F0FCC4F7AF43707F55737B98E460B6BA52DC728CDB5D7F01E142
7068B693C6920000000049454E44AE426082}
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object btnEditDesc: TPngBitBtn
object btnEditDesc: TPngSpeedButton
Left = 431
Top = 64
Width = 21
Height = 21
Hint = 'Edit description ...'
Anchors = [akTop, akRight]
Flat = True
ParentShowHint = False
ShowHint = True
TabOrder = 16
OnClick = ButtonEditDescClick
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000000C24944415478DA63FCFFFF3F03258071181870F2E449BC
262C5CB89041595999E1F9F3E70CA1A1A1D80D303636C66B4B7E7E3EC3C48913
31C4DFBC798330206FD231064646460606A097401403231831F4E75831A4A6A6
32CC9E3D9BB001EC9CE2A050616062FAC7C0CAC2C8F0EDF32B86BE6C6BE20DE0
E0011AC0F09781998901680003C3D74FAF197AB38834201FE4052688B3191921
DE6064F8CFD09365439C01F8005E035EBC7881371A2B2B2B194016DCBC7993A1
BABA1A331A073E250EB8010005397E54817371900000000049454E44AE426082}
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object TimerCloseFormReminder: TTimer
Enabled = False

25
source/connections.pas
View File

@ -10,7 +10,8 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Registry, Buttons, ExtCtrls, ZPlainMySqlDriver, PngBitBtn;
StdCtrls, Registry, Buttons, ExtCtrls, ZPlainMySqlDriver,
PngSpeedButton;
type
Tconnform = class(TForm)
@ -38,10 +39,11 @@ type
TimerCloseFormReminder: TTimer;
CheckBoxSorted: TCheckBox;
ButtonSaveAndConnect: TButton;
btnNew: TPngBitBtn;
btnSave: TPngBitBtn;
btnDelete: TPngBitBtn;
btnEditDesc: TPngBitBtn;
btnNew: TPngSpeedButton;
btnSave: TPngSpeedButton;
btnDelete: TPngSpeedButton;
btnEditDesc: TPngSpeedButton;
procedure FormCreate(Sender: TObject);
procedure ButtonSaveAndConnectClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ButtonCancelClick(Sender: TObject);
@ -81,6 +83,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;
// Cancel
procedure Tconnform.ButtonCancelClick(Sender: TObject);
begin

38
source/createtable.dfm
View File

@ -113,7 +113,7 @@ object CreateTableForm: TCreateTableForm
Default = True
Enabled = False
ModalResult = 1
TabOrder = 12
TabOrder = 11
OnClick = ButtonCreateClick
end
object GroupBox1: TGroupBox
@ -123,7 +123,7 @@ object CreateTableForm: TCreateTableForm
Height = 185
Anchors = [akLeft, akRight, akBottom]
Caption = 'Column-Properties:'
TabOrder = 11
TabOrder = 9
object lblFieldType: TLabel
Left = 16
Top = 24
@ -315,43 +315,23 @@ object CreateTableForm: TCreateTableForm
TabOrder = 5
OnClick = ListboxColumnsClick
end
object ButtonMoveUp: TBitBtn
object ButtonMoveUp: TPngSpeedButton
Left = 160
Top = 263
Top = 262
Width = 25
Height = 25
Anchors = [akLeft, akBottom]
Enabled = False
TabOrder = 9
Flat = True
OnClick = ButtonMoveUpClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000009410
00009C180000A5210000AD290000B5310000BD390000C6420000CE4A0000D652
00000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA00000AA
AAAAAAAAA04320AAAAAAA0000054300000AAAA09876543220AAAAAA098765430
AAAAAAAA0987650AAAAAAAAAA09870AAAAAAAAAAAA090AAAAAAAAAAAAAA0AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}
end
object ButtonMoveDown: TBitBtn
object ButtonMoveDown: TPngSpeedButton
Left = 160
Top = 287
Width = 25
Height = 25
Anchors = [akLeft, akBottom]
Enabled = False
TabOrder = 10
Flat = True
OnClick = ButtonMoveDownClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
040000000000800000000000000000000000100000001000000000000000A521
0000AD290000B5310000BD390000C6420000CE4A0000D6520000DE5A0000E763
00000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0AAAA
AAAAAAAAAA010AAAAAAAAAAAA03210AAAAAAAAAA0543210AAAAAAAA076543210
AAAAAA09876543210AAAA0000076500000AAAAAAA08760AAAAAAAAAAA00000AA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}
end
object ButtonAdd: TButton
Left = 160
@ -422,7 +402,7 @@ object CreateTableForm: TCreateTableForm
Style = csDropDownList
ItemHeight = 13
Sorted = True
TabOrder = 14
TabOrder = 10
OnChange = comboCharsetChange
end
object comboCollation: TComboBox
@ -433,6 +413,6 @@ object CreateTableForm: TCreateTableForm
Style = csDropDownList
ItemHeight = 13
Sorted = True
TabOrder = 15
TabOrder = 12
end
end

12
source/createtable.pas
View File

@ -11,7 +11,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons, ComCtrls, ImgList, ToolWin,
Menus, db;
Menus, db, PngSpeedButton;
type
TCreateTableForm = class(TForm)
@ -37,8 +37,8 @@ type
Label2: TLabel;
EditDescription: TEdit;
Label3: TLabel;
ButtonMoveUp: TBitBtn;
ButtonMoveDown: TBitBtn;
ButtonMoveUp: TPngSpeedButton;
ButtonMoveDown: TPngSpeedButton;
ButtonAdd: TButton;
ButtonDelete: TButton;
ButtonChange: TButton;
@ -113,6 +113,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
@ -551,6 +555,8 @@ begin
Editdescription.Text := '';
ButtonCreate.Enabled := false;
ButtonAdd.Enabled := true;
ButtonMoveUp.Enabled := False;
ButtonMoveDown.Enabled := False;
// Preselect charset item in pulldown
if comboCharset.Items.Count > 0 then

42
source/exportsql.dfm
View File

@ -15,6 +15,7 @@ object ExportSQLForm: TExportSQLForm
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
OnShow = FormShow
DesignSize = (
634
@ -153,23 +154,15 @@ object ExportSQLForm: TExportSQLForm
DesignSize = (
376
200)
object btnFileBrowse: TBitBtn
object btnFileBrowse: TPngSpeedButton
Left = 344
Top = 42
Width = 22
Height = 22
Anchors = [akTop, akRight]
TabOrder = 2
Flat = True
OnClick = btnFileBrowseClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDD00000000000DDDDD003333333330DDDD0B0333333333
0DDD0FB03333333330DD0BFB03333333330D0FBFB000000000000BFBFBFBFB0D
DDDD0FBFBFBFBF0DDDDD0BFB0000000DDDDDD000DDDDDDDD000DDDDDDDDDDDDD
D00DDDDDDDDD0DDD0D0DDDDDDDDDD000DDDDDDDDDDDDDDDDDDDD}
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object editFileName: TEdit
Left = 26
@ -188,7 +181,7 @@ object ExportSQLForm: TExportSQLForm
Width = 113
Height = 17
Caption = 'Another database:'
TabOrder = 6
TabOrder = 4
OnClick = radioOtherDatabaseClick
end
object radioFile: TRadioButton
@ -213,7 +206,7 @@ object ExportSQLForm: TExportSQLForm
Color = clBtnFace
Enabled = False
ItemHeight = 13
TabOrder = 7
TabOrder = 6
end
object radioOtherHost: TRadioButton
Left = 9
@ -233,7 +226,7 @@ object ExportSQLForm: TExportSQLForm
Color = clBtnFace
Enabled = False
ItemHeight = 13
TabOrder = 9
TabOrder = 5
OnSelect = comboOtherHostSelect
end
object comboOtherHostDatabase: TComboBox
@ -246,7 +239,7 @@ object ExportSQLForm: TExportSQLForm
Color = clBtnFace
Enabled = False
ItemHeight = 13
TabOrder = 10
TabOrder = 7
end
object radioDirectory: TRadioButton
Left = 9
@ -255,7 +248,7 @@ object ExportSQLForm: TExportSQLForm
Height = 17
Anchors = [akLeft, akTop, akRight]
Caption = 'Directory (one .sql-file per table)'
TabOrder = 3
TabOrder = 2
OnClick = radioFileOrDirClick
OnDblClick = btnDirectoryBrowseClick
end
@ -267,27 +260,18 @@ object ExportSQLForm: TExportSQLForm
Anchors = [akLeft, akTop, akRight]
Color = clBtnFace
Enabled = False
TabOrder = 4
TabOrder = 3
OnDblClick = btnDirectoryBrowseClick
end
object btnDirectoryBrowse: TBitBtn
object btnDirectoryBrowse: TPngSpeedButton
Left = 344
Top = 85
Width = 22
Height = 22
Anchors = [akTop, akRight]
Enabled = False
TabOrder = 5
Flat = True
OnClick = btnDirectoryBrowseClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDD00000000000DDDDD003333333330DDDD0B0333333333
0DDD0FB03333333330DD0BFB03333333330D0FBFB000000000000BFBFBFBFB0D
DDDD0FBFBFBFBF0DDDDD0BFB0000000DDDDDD000DDDDDDDD000DDDDDDDDDDDDD
D00DDDDDDDDD0DDD0D0DDDDDDDDDD000DDDDDDDDDDDDDDDDDDDD}
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
end
object groupExampleSql: TGroupBox

14
source/exportsql.pas
View File

@ -29,7 +29,7 @@ uses
SynEdit,
SynMemo,
ZDataSet,
FileCtrl;
FileCtrl, PngSpeedButton;
type
TExportSQLForm = class(TForm)
@ -48,7 +48,7 @@ type
ToolButton1: TToolButton;
ToolButton2: TToolButton;
groupOutput: TGroupBox;
btnFileBrowse: TBitBtn;
btnFileBrowse: TPngSpeedButton;
editFileName: TEdit;
radioOtherDatabase: TRadioButton;
radioFile: TRadioButton;
@ -70,7 +70,8 @@ type
comboTargetCompat: TComboBox;
radioDirectory: TRadioButton;
editDirectory: TEdit;
btnDirectoryBrowse: TBitBtn;
btnDirectoryBrowse: TPngSpeedButton;
procedure FormCreate(Sender: TObject);
procedure comboTargetCompatChange(Sender: TObject);
procedure comboOtherHostSelect(Sender: TObject);
procedure comboDataChange(Sender: TObject);
@ -162,6 +163,13 @@ begin
FreeAndNil (f);
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;
end;
procedure TExportSQLForm.btnCancelClick(Sender: TObject);
begin
close;

61
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
@ -276,57 +277,37 @@ object FieldEditForm: TFieldEditForm
OnClick = listClick
OnDblClick = AddField
end
object btnAddColumnToIndex: TBitBtn
object btnAddColumnToIndex: TPngSpeedButton
Tag = 1
Left = 133
Top = 152
Width = 25
Height = 25
Hint = 'Add field to index'
Enabled = False
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Marlett'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = AddField
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFF00FFFFFFFFFFFFF0E0F
FFFFFFFFFFF0EE0FFFFFFFFFFF0EEE0FFFFFFFFFF0EEEE0FFFFFFFFF0EEEEE0F
FFFFFFFFF0EEEE0FFFFFFFFFFF0EEE0FFFFFFFFFFFF0EE0FFFFFFFFFFFFF0E0F
FFFFFFFFFFFFF00FFFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFFF}
end
object btnDeleteColumnFromIndex: TBitBtn
object btnDeleteColumnFromIndex: TPngSpeedButton
Tag = 2
Left = 133
Top = 184
Width = 25
Height = 25
Hint = 'Remove field from index'
Enabled = False
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Marlett'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = RemoveField
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFFFFFF00FFFFFFFFFFFFFF0E0FFFF
FFFFFFFFF0EE0FFFFFFFFFFFF0EEE0FFFFFFFFFFF0EEEE0FFFFFFFFFF0EEEEE0
FFFFFFFFF0EEEE0FFFFFFFFFF0EEE0FFFFFFFFFFF0EE0FFFFFFFFFFFF0E0FFFF
FFFFFFFFF00FFFFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFFFFFFFFF}
end
object ButtonAddPrimary: TButton
Left = 72
@ -335,7 +316,7 @@ object FieldEditForm: TFieldEditForm
Height = 25
Caption = 'Add Primary'
Enabled = False
TabOrder = 8
TabOrder = 6
OnClick = ButtonAddPrimaryClick
end
object CheckBoxFulltext: TCheckBox
@ -344,46 +325,26 @@ object FieldEditForm: TFieldEditForm
Width = 97
Height = 17
Caption = 'Fulltext'
TabOrder = 9
TabOrder = 7
OnClick = CheckBoxFulltextClick
end
object btnAddAllColumnsToIndex: TBitBtn
object btnAddAllColumnsToIndex: TPngSpeedButton
Left = 133
Top = 120
Width = 25
Height = 25
Hint = 'Add all fields to index'
Enabled = False
TabOrder = 10
Flat = True
OnClick = btnAddAllColumnsToIndexClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF0FF0FFFFFFFFFFF00F00FFFFFFFFFF0C00E0
FFFFFFFFF0CC0EE0FFFFFFFF0CC0EEE0FFFFFFF0CC0EEEE0FFFFFF0CC0EEEEE0
FFFFFFF0CC0EEEE0FFFFFFFF0CC0EEE0FFFFFFFFF0CC0EE0FFFFFFFFFF0C00E0
FFFFFFFFFFF00F00FFFFFFFFFFFF0FF0FFFFFFFFFFFFFFFFFFFF}
end
object btnDeleteAllColumnsFromIndex: TBitBtn
object btnDeleteAllColumnsFromIndex: TPngSpeedButton
Left = 133
Top = 216
Width = 25
Height = 25
Hint = 'Remove all fields from index'
Enabled = False
TabOrder = 11
Flat = True
OnClick = btnDeleteAllColumnsFromIndexClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF0FF0FFFFFFFFFFFF00F00FFFFFFFFFFF0E00C0FF
FFFFFFFF0EE0CC0FFFFFFFFF0EEE0CC0FFFFFFFF0EEEE0CC0FFFFFFF0EEEEE0C
C0FFFFFF0EEEE0CC0FFFFFFF0EEE0CC0FFFFFFFF0EE0CC0FFFFFFFFF0E00C0FF
FFFFFFFF00F00FFFFFFFFFFF0FF0FFFFFFFFFFFFFFFFFFFFFFFF}
end
end
end

24
source/fieldeditor.pas
View File

@ -10,7 +10,8 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ImgList, ToolWin, ExtCtrls, Buttons, VirtualTrees;
StdCtrls, ComCtrls, ImgList, ToolWin, ExtCtrls, Buttons, VirtualTrees,
PngSpeedButton;
type
TFieldEditorMode = (femFieldAdd,femFieldUpdate,femIndexEditor);
@ -43,18 +44,19 @@ type
lblColumnsUsed: TLabel;
listColumnsUsed: TListBox;
listColumnsAvailable: TListBox;
btnAddColumnToIndex: TBitBtn;
btnDeleteColumnFromIndex: TBitBtn;
btnAddColumnToIndex: TPngSpeedButton;
btnDeleteColumnFromIndex: TPngSpeedButton;
lblColumnsAvailable: TLabel;
ButtonAddPrimary: TButton;
ComboBoxPosition: TComboBox;
lblPosition: TLabel;
CheckBoxFulltext: TCheckBox;
btnAddAllColumnsToIndex: TBitBtn;
btnDeleteAllColumnsFromIndex: TBitBtn;
btnAddAllColumnsToIndex: TPngSpeedButton;
btnDeleteAllColumnsFromIndex: TPngSpeedButton;
btnDatatypeHelp: TButton;
lblComment: TLabel;
EditComment: TEdit;
procedure FormCreate(Sender: TObject);
procedure btnDatatypeHelpClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBoxTypeChange(Sender: TObject);
@ -124,6 +126,18 @@ 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

44
source/loaddata.dfm
View File

@ -14,6 +14,7 @@ object loaddataform: Tloaddataform
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
OnShow = FormShow
DesignSize = (
423
@ -81,23 +82,14 @@ object loaddataform: Tloaddataform
OnChange = editFilenameChange
OnDblClick = btnOpenFileClick
end
object btnOpenFile: TBitBtn
object btnOpenFile: TPngSpeedButton
Left = 353
Top = 24
Width = 22
Height = 22
Anchors = [akTop, akRight]
TabOrder = 1
Flat = True
OnClick = btnOpenFileClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777777777777777777777000000000007777700333333333077770B033333333
307770FB03333333330770BFB0333333333070FBFB000000000070BFBFBFBFB0
777770FBFBFBFBF0777770BFB000000077777700077777777000777777777777
7700777777777077707077777777770007777777777777777777}
end
end
object grpFields: TGroupBox
@ -276,41 +268,23 @@ object loaddataform: Tloaddataform
ItemHeight = 13
TabOrder = 2
end
object btnColUp: TBitBtn
object btnColUp: TPngSpeedButton
Left = 150
Top = 117
Width = 25
Height = 25
Anchors = [akTop, akRight]
TabOrder = 3
Flat = True
OnClick = btnColUpClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000009410
00009C180000A5210000AD290000B5310000BD390000C6420000CE4A0000D652
00000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA00000AA
AAAAAAAAA04320AAAAAAA0000054300000AAAA09876543220AAAAAA098765430
AAAAAAAA0987650AAAAAAAAAA09870AAAAAAAAAAAA090AAAAAAAAAAAAAA0AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}
end
object btnColDown: TBitBtn
object btnColDown: TPngSpeedButton
Left = 150
Top = 141
Top = 142
Width = 25
Height = 25
Anchors = [akTop, akRight]
TabOrder = 4
Flat = True
OnClick = btnColDownClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
040000000000800000000000000000000000100000001000000000000000A521
0000AD290000B5310000BD390000C6420000CE4A0000D6520000DE5A0000E763
00000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0AAAA
AAAAAAAAAA010AAAAAAAAAAAA03210AAAAAAAAAA0543210AAAAAAAA076543210
AAAAAA09876543210AAAA0000076500000AAAAAAA08760AAAAAAAAAAA00000AA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}
end
object grpOptions: TGroupBox
Left = 196
@ -319,7 +293,7 @@ object loaddataform: Tloaddataform
Height = 105
Anchors = [akTop, akRight]
Caption = 'Options'
TabOrder = 5
TabOrder = 3
object lblDuplicates: TLabel
Left = 16
Top = 54

20
source/loaddata.pas
View File

@ -10,7 +10,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, comctrls, Buttons, CheckLst, Registry;
StdCtrls, ExtCtrls, comctrls, Buttons, CheckLst, Registry, PngSpeedButton;
type
Tloaddataform = class(TForm)
@ -26,8 +26,8 @@ type
comboTable: TComboBox;
lblColumns: TLabel;
chklistColumns: TCheckListBox;
btnColUp: TBitBtn;
btnColDown: TBitBtn;
btnColUp: TPngSpeedButton;
btnColDown: TPngSpeedButton;
grpOptions: TGroupBox;
chkLowPriority: TCheckBox;
chkReplace: TCheckBox;
@ -35,7 +35,7 @@ type
lblDuplicates: TLabel;
grpFilename: TGroupBox;
editFilename: TEdit;
btnOpenFile: TBitBtn;
btnOpenFile: TPngSpeedButton;
grpFields: TGroupBox;
lblFieldTerminater: TLabel;
lblFieldEncloser: TLabel;
@ -51,6 +51,7 @@ type
editLineTerminator: TEdit;
lblLineTerminator: TLabel;
lblIgnoreLines: TLabel;
procedure FormCreate(Sender: TObject);
procedure editFilenameChange(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -92,6 +93,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.btnCancelClick(Sender: TObject);
begin
close;

220
source/main.dfm
View File

@ -3111,6 +3111,226 @@ object MainForm: TMainForm
67A6B969C4CDA1940000000049454E44AE426082}
Name = 'PngImage69'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001874455874536F667477617265005061696E742E4E45542076332E31
3072B225920000026F4944415478DAA5934B4854511CC6BFA333737D106EBA62
8BC9B251A7415C85B41C5F9B1682A4D820A208B3312817BA50C2858BDAB40942
10716106669A39A6888F99828A2132B01A32311782E578CFE48319AF0EF3B8FD
EF11C2B94A9B0EFC39E7C2F97EF7FB7FE71CA6691AFE67B09380C54526D1670D
952B99849DE642AA24AD0334FFA07990CA5B5BAB254E0148ECA0E5486E6E4E69
5E5E17B2B3AF232BEB1A342D86FDFD570887BDD8D81802E77847FB6ED5D5693F
5300F3F3ECB5DDEE765AAD8FC198E54CBBF13847207009ABABEA938606AD3905
3037C714A7734DB6582EFE13B0BBFB8CDCDEE12E97969B02989D654A79F93779
6FEF053232AE42920A61365F102DA8EA1276769E6273730C365B0F7CBE5EDED8
6800CCCC30A5A2E2B37C70E017FD1E1DAD08713C1EA20C7E231A054C26A0A8A8
0B5EEF03DED464004C4FEB8025391A5D13625D68329D472CB68550680091C871
1B050577A98547BCA5C500989A624A65E57B59553FE1F0F0ABE8D762C927C02F
4A7E8C5C016969A016DAB0B0D0C75B5B0D80C949A65455BD912391B7D021BA03
49BA221C0483F3C2417A3A505CECA6C007B8DB6D004C4C30A5BA7A81427C2900
89C41E016C02B4B5F54138D03370389A29AF21DED666008C8FEB008FACA7AD03
9249159999A5A285603040411E3B2829A987C733C6DBDB0D80D151A69495D5CB
B27C9B04F729872F7F01DBDB01BA9580D5DA83F5F55EF8FDE09D9D06C0C808BB
41F7FCB9C361CECECF1F14FD3326D15146450EE1B00F2B2B7D585E46301E474D
77B7F6F1D4631A1E669709728FEA26259EA3FF9536D325021DAD100E27127848
62E5CCD77872F4F7B37324B0512563317CEFE8202B678C3F3ADA7DF021D33179
0000000049454E44AE426082}
Name = 'PngImage71'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001874455874536F667477617265005061696E742E4E45542076332E31
3072B225920000024E4944415478DAA5937F48535114C7BF6F03332A8430A218
E8CC18FDA08298FD31888D7E50081645E5CA2C8AB56ADAA230CB988C6654D00F
C4509098108561148C26B1357FF43B94FE5022A18C8DCAAC19F5C78AF6DE7DF7
DDEE7B6F380403C3038773EFFBF139DF73EF3902630CD331410578DBBED42B0C
2EA25013A5148402128F3251D70A241E45EE92CC9D101089F1E772FF60A3AD44
0378822363811DF9F9FF93794DED4BF17DB33D5703B85B3FB20BCEF968E8F340
A422CF22214D259E35ADC5B41A6589ABD2DFC5760F60A5F7093E0537081AE040
4B825DAE5880B973664C29FB8F9408CB916E8CDDDAAC03F6367D608DFB4D387F
FFF3940067B799507030825447990ED875F51D6B711568802BFB16E1F4CD615C
AC2C1EFFC1D73E8C8033BB4F245358EC8A8284B6EB802D9786D88DC3665C0B8F
C0A87E613040800203DFA87B8932E41805805F552EAFD2B12C0FD6EA2EB048B9
0E286D78C3DAAA8BD11C19857FA719818E387C3CFE4BC18BA1246C471F81F5EC
D101EBFC03ECF6310B823DA36AF20996C325FCFC4DF53517A1AE1C4B67C3EE8D
7240A50EB0D5BD66774F2EC19DE7DF70A2CC8CEB9D095495168E439A1EC451BE
7621E6E5E9B7F478F02BD6D7F582843325584FF5B150ED72DC7B95E4B54F3423
57F44B9CD8EE25453361AF51CF2053C28AE34FD943DF6A84FB93706F2A446B34
81431BB30AEADBE338E7CC9E89A6E04C1748670660F1F4B298DF0A99F7BD4894
4CCF336D06D45998CC1C353145895418354091BBFB99949657FD2174565A2210
B953911F1707F1C999BC9BBEA742EC6DD55661BAE3FC17255D45F09208A98F00
00000049454E44AE426082}
Name = 'PngImage70'
Background = clWindow
end
item
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}
Name = 'PngImage72'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000010000000100804000000B5FA37
EA0000000467414D410000AFC837058AE90000001974455874536F6674776172
650041646F626520496D616765526561647971C9653C000000664944415478DA
63FCCF801F300E290507FFFF62F8C9F083E13BC337866FDF0BB93014ECF8CACC
C5CAF00B085F323CBED06088A1608DC4F73B6CDC9C0C2F181E7EFFAEDD771F8B
1BA6487CBBCFCDF1E8FB778D498F7038B25AE2FBE51FC6D390A4075940E10200
4C6934019470C4260000000049454E44AE426082}
Name = 'PngImage73'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000001654944415478DA63FCFFFF3F032580119F01C5C7D24FFE
FDF3EFF704BBD936241B507434EDA2189B84DEDF7F7F191EBF7F746186C76243
A20C283991C1F6EFCFBFABA2EC622A0A3C4A0CFFFEFD63B8F1FA3AC3C3378F6E
FDFEF55B7779D4865F780D283C9CBAFBEF9FBF36A2ECE21C0AFC8A0CFFFEFF63
78FAFE29C3A587977E000D38B836699B07515E48DD12FDDF4ADE9AE12FD00527
6F9F6478FBE18DE5BA94ED27880E83F8B561FFAD956D812EF8CBB0E3F40E860D
693B18490AC4C86501FF6DD4EDC0066C3FB69D615BDE3ED20C089EE7F5DF4ED7
81E12FD080AD07B632EC2D3B429A013E535DFF3B18030D0046E3963D5B180ED7
9D22CD00B75EFBFF8E164EC068FCCBB071FB6686536DE74933C0BED5F2BFB3AD
0B380C366CDCC870A1EF2A690658D61AFF777576031BB07ECD0686AB536F9166
8071A9EE7F770F77867F40B86EC506865BB3EF9166806E9EC6FF3FBFFF32FCF9
FD8701983219EE2D78449A01C40200E3CDD6E1230A89BB0000000049454E44AE
426082}
Name = 'PngImage75'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000001654944415478DA63FCFFFF3F032580119701252732FEFF
FFF79FE1EF9F7F40FC9761B2D33C46920C283A9AF6DF52C486E1DFFF7F0CFB1F
EC6598E1B1983403F20F24FFB710B766F8F7EF1FC3BEBB7B19E6FA2D27CD80AC
DDF1FF2DA5ACC12ED8736D37C3E2B0B5A41990BA25FABF95BC35C35FA00B765F
DCC5B0326E136906C4AF0DFB6FAD6C0B74C15F861DA777306C48DB419A0191CB
02FEDBA8DB810DD87E6C3BC3B6BC7DA419103CCFEBBF9DAE03C35FA0015B0F6C
65D85B768434037CA6BAFE7730061AF0EF2FC3963D5B180ED79D22DE00EF29CE
165C6CDCC78DB48D81D1F89761E3F6CD0CA7DACE136780D724A71DBF7FFDB657
57D4E01013950087C1858B1719EEDCBEF3E3CFEFBF476ECCB8E38AD700E72E1B
B6DF3FFF5C961493545357D7001B70FEDC05863B37EFDEF9F3E7AFF6DD790F7E
111506C6A5BAE7A5A4A40DFEFEFD0BD27CE9D6EC7BFA240522086866AA1EF9F3
FB0FEBED39F7CD71A961A4343B0300ACFAD2E11B8572350000000049454E44AE
426082}
Name = 'PngImage74'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000000F54944415478DA63FCFFFF3F032580719819507222830D
486DEDB198E14AAE01B7FFFEFE2BD36F3B9B936403809A2F8AB349E8FDF9F387
E1E1BB870CBF7EFE66F8F503847F31FC046230FD1DC106C95D9C708D116C0050
F34931567133451E65863FFFFEC0F1EFBF7F81F837C3EF7F40FC1728F6F70F84
06F257AF5CCB707DFA6D88018587538F88B28959CBF32A42348314820DF80DA1
FF400D80CAFDF9FF8761CDB2F50C77E6DE67847B216347EC79613611030E664E
86872F1F32BC7EFF06ABB3415EFBFD0B68C8EF3F0C0F163D664409C49895C137
810AE5801A1C37A6EF3C41722C842DF465036ADE04D4EC31300969681A00002A
EDDDE1EE0C96E70000000049454E44AE426082}
Name = 'PngImage79'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000000FD4944415478DA63FCFFFF3F032580718419E03FD37DF7
AF1FBFBCB7E7EFFF4596019E131DBFFFFCFEEBC9BE8AA3AA2806949CC8009BF2
F7F75F863FBFFF30FCFEF587E1D7CFDF0CBF7E80F02F869F400CA2258524197E
FDFACD70F3F6AD4BA73B2EEAA31860256CCBF0F71FD0807F7FE0F8F7DFBF40FC
9BE1F73F20FE0B14FBFB074C9F3B7F96E1E68DDBA7AE4FBF6D0E36A0F070EA7F
0B516B84669042B001BF21F41FA80150B973E7CE33DCBA7EE7E89DB9F76DC006
E4EE4BFC8FCBD9403F83D95C1C5C0C9292520CAF5FBD66B87DE3EE05A0664392
0251BF40CB0268C17EA0458F809AD5C98A059564C51DC040F67BB0E83179D148
71421A9C060000DB7FEAE1DBB736010000000049454E44AE426082}
Name = 'PngImage76'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001874455874536F667477617265005061696E742E4E45542076332E31
3072B22592000002274944415478DAA5D35F4853511800F06F2CEFD06D64732B
EFFC43C2DA4B26D1A288961122155162294952EE2956BE4A20850F3E06F51AA3
D062617FE8A13604B7118E25B93D883899FF46F75E560F091384E6C3EE39E7DE
BE7BD362246DD007E7E13B707E7CDFF9CE31A8AA0AFF13864A81C3836E23A5AC
8151068C29203ECFE52A068E0D1DE9A18406AA38CEC6080288147E6C81F82267
280B9C1AF1B8A8CC32C73D1EAED6560B5461A0E07AFF260C5FC6A452E0DAD825
8ECA34F4C11FB9B0B37766F4E4B8ABC5E56B6A6A06A650602AD391D0DB30AC3D
154A81EBC12BAB08341342CF85FCD164E7A3762FE6F10E6F8791300299A52510
0411E422D1DB587E92FD030CBCEB9DE7ADCEA366CE0CE27709F29BF9A2C56435
F1761E1C75FB21BD9C0641141E233E3CF7302D974CE1F664FF4CBDD979DAED70
6379542F51663296CCF47C3DBF0EC9F954347E7FF6FCAE63BC13B995AAAFE14F
1CAA4340458069000145557E011B082C24A31FEFCDEC0E68E19FBAB9C0D7F06D
386B90F21250C28A16CE623AB09707FB3E3B2C661741FA2AE92D241E24E5BF80
6D248B071B9F5D9EA8D6F2BE975D5E9C7FBCBDF5AC7E892BC20A88DF24BC4419
1082D9D1B9D2290CC67C1C563019B818ECDCD9EB0B768D1FB4B7F87887135BA3
BFD7D474043E8DA4CA3FA4FED7575D5845A6B5B18DB35AAC40B681682202D3C3
9FCB033AF2AABB074B0EEC812A1B6240640A85AD02C4861295015ADC98E836E2
E106AD777C5C10BE1BABFC33FD2B7E02A38E58F0529AE0B50000000049454E44
AE426082}
Name = 'PngImage77'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001874455874536F667477617265005061696E742E4E45542076332E31
3072B22592000002284944415478DA63FCFFFF3F032580116680EF3457391636
160656561606165696A7CBA2D6FF25DA00D71EBBFF3CDC3C0CAC6C60CD0C7F18
7EBF031A94BE3472FD1AA20C706CB7FAEF66E7CEC0C20C7401107FFEF299E1CA
934BBF8086692F8D587787A001B64DE6FF3D1C2106C0F0F3D7CF181EBCB9BF60
45ECC64498E2F4EDB1BB595898BDA7BA2EF8856280659DF17F90DFD9D8D91814
651418349434802E61653874E5E05FA02B1C56C46C3C02529CB239EA3B0B2BF3
93191E8B5531021104EC5A2CD88006B52BC82A14E9AAEA32BC79FF86E1E5C7E7
0C5F7E7DF909D4C8AE20A2C0007401C3F36FCF2F010DD1C73000069CBB6C765A
E85BB8890B8B33B030B13030313231B0015DC4C2CCCCC0C2C8C270FBED2D8617
DF9E9F9AEEBEC81CAB010EAD963B2D0CCDDDC4452006303331030D6003B299C1
FC5BAF81067C7D767496F7521B14038CCBF4C05E5052542AD2D3D46378FDF615
C3F337402FFCFCFC534440845D514281E1EBAFAF0CCF3F3FBBB03064B521DC0B
9A99AAFF99817E6363676550525264D0D6D20207E2DE237BFF021397C3EEE243
47FC66B859000DDF0FE43F5A19BB491D2510D55295FEFB85F9829DC8CC08C440
673E7EFC88E1CEFD3B0B0ED79D8447A3FF0CF71D4003FCD6266D458D46E52485
FF01E1BE0C4C603F32337C78F781E1CCD9B3BF58D898B58F379D259C9014E3E5
FEF3F0723380BCC1CCCACCF0FBD7AF77C0F84F3FD77399B8A40C028A097272CC
CC4C60438071FDF4EAD45BC467264A00000AF7DBE129230F2A0000000049454E
44AE426082}
Name = 'PngImage78'
Background = clWindow
end>
Left = 8
Top = 120

78
source/optimizetables.dfm
View File

@ -77,7 +77,7 @@ object optimize: Toptimize
Caption = 'Quick'
TabOrder = 5
end
object BitBtn1: TBitBtn
object btnOptimize: TButton
Left = 248
Top = 56
Width = 99
@ -85,51 +85,8 @@ object optimize: Toptimize
Caption = 'Optimze'
TabOrder = 3
OnClick = Optimze
Glyph.Data = {
36050000424D3605000000000000360400002800000010000000100000000100
0800000000000001000000000000000000000001000000010000000000000000
330000006600000099000000CC000000FF000033000000333300003366000033
99000033CC000033FF00006600000066330000666600006699000066CC000066
FF00009900000099330000996600009999000099CC000099FF0000CC000000CC
330000CC660000CC990000CCCC0000CCFF0000FF000000FF330000FF660000FF
990000FFCC0000FFFF00330000003300330033006600330099003300CC003300
FF00333300003333330033336600333399003333CC003333FF00336600003366
330033666600336699003366CC003366FF003399000033993300339966003399
99003399CC003399FF0033CC000033CC330033CC660033CC990033CCCC0033CC
FF0033FF000033FF330033FF660033FF990033FFCC0033FFFF00660000006600
330066006600660099006600CC006600FF006633000066333300663366006633
99006633CC006633FF00666600006666330066666600666699006666CC006666
FF00669900006699330066996600669999006699CC006699FF0066CC000066CC
330066CC660066CC990066CCCC0066CCFF0066FF000066FF330066FF660066FF
990066FFCC0066FFFF00990000009900330099006600990099009900CC009900
FF00993300009933330099336600993399009933CC009933FF00996600009966
330099666600996699009966CC009966FF009999000099993300999966009999
99009999CC009999FF0099CC000099CC330099CC660099CC990099CCCC0099CC
FF0099FF000099FF330099FF660099FF990099FFCC0099FFFF00CC000000CC00
3300CC006600CC009900CC00CC00CC00FF00CC330000CC333300CC336600CC33
9900CC33CC00CC33FF00CC660000CC663300CC666600CC669900CC66CC00CC66
FF00CC990000CC993300CC996600CC999900CC99CC00CC99FF00CCCC0000CCCC
3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF3300CCFF6600CCFF
9900CCFFCC00CCFFFF00FF000000FF003300FF006600FF009900FF00CC00FF00
FF00FF330000FF333300FF336600FF339900FF33CC00FF33FF00FF660000FF66
3300FF666600FF669900FF66CC00FF66FF00FF990000FF993300FF996600FF99
9900FF99CC00FF99FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCC
FF00FFFF0000FFFF3300FFFF6600FFFF9900FFFFCC00FFFFFF00000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000001E1E1E1E1E1E
1E1E0E071E1E1E1E1E1E1E1E1E1E0E071E1E0E001E1E0E151E1E5656560E0E07
0E0E0E00010E0E151E1E81D7D70ED7150E01D764010E15D7001E81D7B30E0ED7
158FD78F6415D7000E1E81D7B30E070E8F640E0E648F150E0E1E81D7B3078F8F
8F0E64150E8F8FD70E1E81D7B3B30E150E0E8F150E0E150E1E1E81D7B3B30ED7
150E8F150E15D70E1E1E81D7AC810707810E8F150E1E15151E1E81D7AC008181
810ED7D70E1E1E1E1E1E81D7AC00D7D781B30E0E2B1E1E1E1E1E81D7AC00D7D7
81B3B3B32B1E1E1E1E1E81D7AC00000081B3D7B32B1E1E1E1E1E81D7B3B3B3B3
B3B3B3B32B1E1E1E1E1E81818181818181818181811E1E1E1E1E}
end
object BitBtn2: TBitBtn
object btnCheck: TButton
Left = 248
Top = 96
Width = 99
@ -137,17 +94,8 @@ object optimize: Toptimize
Caption = 'Check'
TabOrder = 4
OnClick = Check
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
AAAAAAAAAAAAA08AAAAAAAAAAAAA008AAAAAAAAAAAA0408AAAAAAAAAAA04408A
AAAAAAAA004448088AAAAA804444448008AAA87444F74444808AA8444FFF4444
408A8744FF4FF444470A87444447F744440A87444444FF44470AA87444447F74
488AA8774444444478AAAA88744444788AAAAAAA8888888AAAAA}
end
object BitBtn3: TBitBtn
object btnAnalyze: TButton
Left = 248
Top = 136
Width = 99
@ -155,17 +103,8 @@ object optimize: Toptimize
Caption = 'Analyze'
TabOrder = 7
OnClick = Analyze
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AA0000000000
0000AA0FFFFFFFFFFFF0AA0FFFFFFFFFFFF0AA0FFF7FF7FF7FF0AA0FFFFFFFFF
FFF0A80000FFFFFFFFF08B03330FF7FF7FF00BB03330FFFFFFF0A0BB0000FFFF
FFF0AA0BBB0444444444AA4888EEEEEEEEE4AA4EEE0000EEEEE4AA4440999004
4444AAAA0999010AAAAAAAAA000010AAAAAAAAAAA0990AAAAAAA}
end
object BitBtn4: TBitBtn
object btnRepair: TButton
Left = 248
Top = 176
Width = 99
@ -173,15 +112,6 @@ object optimize: Toptimize
Caption = 'Repair'
TabOrder = 8
OnClick = Repair
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
AAAAAAAA0AAAAAAA0AAAAA0060000000300AAA06EE0FFF0BB30AA06EE0888880
BB30AA0E077777770B0AAA8087777777800AAA8F877787778F0AAA8F87780877
8F0AAA8F878050878F0AAA8F880DD5088F0AAA8FFFF0DD50FF0AAA8888880D08
888AAAAAAAAAA0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}
end
object ListViewResults: TListView
Left = 16

16
source/optimizetables.pas
View File

@ -20,10 +20,10 @@ type
Button3: TButton;
CheckBoxQuickRepair: TCheckBox;
CheckBoxQuickCheck: TCheckBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
btnOptimize: TButton;
btnCheck: TButton;
btnAnalyze: TButton;
btnRepair: TButton;
Label3: TLabel;
ListViewResults: TListView;
ToolBar1: TToolBar;
@ -236,10 +236,10 @@ begin
end;
end;
// en-/disable buttons/checkboxes:
BitBtn1.Enabled := somechecked;
BitBtn2.Enabled := somechecked;
BitBtn3.Enabled := somechecked;
BitBtn4.Enabled := somechecked;
btnOptimize.Enabled := somechecked;
btnCheck.Enabled := somechecked;
btnAnalyze.Enabled := somechecked;
btnRepair.Enabled := somechecked;
end;
end.

36
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
@ -206,47 +207,14 @@ object frmSQLhelp: TfrmSQLhelp
TabOrder = 1
OnClick = ButtonCloseClick
end
object btnSearchOnline: TPngBitBtn
object btnSearchOnline: TPngSpeedButton
Left = 207
Top = 128
Width = 103
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Search online'
TabOrder = 2
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
end
end

15
source/sqlhelp.pas
View File

@ -5,7 +5,7 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, ShellApi, Buttons, Registry,
childwin, PngBitBtn;
childwin, PngSpeedButton;
type
TfrmSQLhelp = class(TForm)
@ -24,7 +24,8 @@ type
lblExample: TLabel;
MemoExample: TMemo;
ButtonClose: TButton;
btnSearchOnline: TPngBitBtn;
btnSearchOnline: TPngSpeedButton;
procedure FormCreate(Sender: TObject);
procedure treeTopicsExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure treeTopicsChange(Sender: TObject; Node: TTreeNode);
@ -79,6 +80,16 @@ begin
end;
{**
FormCreate
}
procedure TfrmSQLhelp.FormCreate(Sender: TObject);
begin
// Assign images from main imagelist to speedbuttons
btnSearchOnline.PngImage := Mainform.PngImageListMain.PngImages[69].PngImage;
end;
{***
Startup
}