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

Sanitize component names located in main pagecontrol.

Browse Source
This commit is contained in:
Ansgar Becker
2007-07-01 19:33:31 +00:00
parent c79febe7b4
commit 134f23e82c
2 changed files with 40 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
source/childwin.dfm
View File

@ -268,7 +268,7 @@ object MDIChild: TMDIChild
DesignSize = ( DesignSize = (
496 496
220) 220)
object Panel2: TPanel object pnlDatabaseTop: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 496 Width = 496
@ -352,13 +352,13 @@ object MDIChild: TMDIChild
ImageIndexSortAsc = 95 ImageIndexSortAsc = 95
ImageIndexSortDesc = 94 ImageIndexSortDesc = 94
end end
object ToolBar1: TToolBar object tlbDataLeft1: TToolBar
Left = 3 Left = 3
Top = 20 Top = 20
Width = 26 Width = 26
Height = 146 Height = 146
Align = alNone Align = alNone
Caption = 'ToolBar1' Caption = 'tlbDataLeft1'
Color = clBtnFace Color = clBtnFace
EdgeInner = esNone EdgeInner = esNone
EdgeOuter = esNone EdgeOuter = esNone
@ -411,13 +411,13 @@ object MDIChild: TMDIChild
Wrap = True Wrap = True
end end
end end
object ToolBar5: TToolBar object tlbDataLeft2: TToolBar
Left = 3 Left = 3
Top = 153 Top = 153
Width = 23 Width = 23
Height = 29 Height = 29
Align = alNone Align = alNone
Caption = 'ToolBar5' Caption = 'tlbDataLeft2'
EdgeInner = esNone EdgeInner = esNone
EdgeOuter = esNone EdgeOuter = esNone
Images = MainForm.ImageList1 Images = MainForm.ImageList1
@ -442,7 +442,7 @@ object MDIChild: TMDIChild
DesignSize = ( DesignSize = (
496 496
220) 220)
object Panel3: TPanel object pnlTableTop: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 496 Width = 496
@ -460,14 +460,14 @@ object MDIChild: TMDIChild
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
end end
object ToolBar2: TToolBar object tlbTableLeft1: TToolBar
Left = 3 Left = 3
Top = 20 Top = 20
Width = 26 Width = 26
Height = 146 Height = 146
Align = alNone Align = alNone
ButtonHeight = 23 ButtonHeight = 23
Caption = 'ToolBar2' Caption = 'tlbTableLeft1'
EdgeInner = esNone EdgeInner = esNone
EdgeOuter = esNone EdgeOuter = esNone
Images = MainForm.ImageList1 Images = MainForm.ImageList1
@ -521,7 +521,7 @@ object MDIChild: TMDIChild
OnClick = ManageIndexes1Click OnClick = ManageIndexes1Click
end end
end end
object Panel9: TPanel object pnlTableList: TPanel
Left = 32 Left = 32
Top = 17 Top = 17
Width = 465 Width = 465
@ -573,7 +573,7 @@ object MDIChild: TMDIChild
ImageIndexSortDesc = 94 ImageIndexSortDesc = 94
end end
end end
object ToolBar6: TToolBar object tlbTableLeft2: TToolBar
Left = 2 Left = 2
Top = 143 Top = 143
Width = 23 Width = 23
@ -603,7 +603,7 @@ object MDIChild: TMDIChild
object tabData: TTabSheet object tabData: TTabSheet
Caption = 'Data' Caption = 'Data'
ImageIndex = 39 ImageIndex = 39
object Panel5: TPanel object pnlDataTop: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 496 Width = 496
@ -742,7 +742,7 @@ object MDIChild: TMDIChild
Font.Style = [] Font.Style = []
ImageIndex = 57 ImageIndex = 57
ParentFont = False ParentFont = False
object Splitter3: TSplitter object spltQuery: TSplitter
Left = 0 Left = 0
Top = 125 Top = 125
Width = 496 Width = 496
@ -759,7 +759,7 @@ object MDIChild: TMDIChild
Height = 13 Height = 13
Align = alTop Align = alTop
end end
object Panel6: TPanel object pnlQueryTop: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 496 Width = 496
@ -776,7 +776,7 @@ object MDIChild: TMDIChild
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
object Panel8: TPanel object pnlQueryToolbar: TPanel
Left = 272 Left = 272
Top = 1 Top = 1
Width = 223 Width = 223
@ -896,7 +896,7 @@ object MDIChild: TMDIChild
TabOrder = 1 TabOrder = 1
end end
end end
object Panel7: TPanel object pnlQueryMemo: TPanel
Left = 0 Left = 0
Top = 29 Top = 29
Width = 496 Width = 496

50
source/childwin.pas
View File

@ -37,9 +37,9 @@ type
tabQuery: TTabSheet; tabQuery: TTabSheet;
popupTreeView: TPopupMenu; popupTreeView: TPopupMenu;
Drop1: TMenuItem; Drop1: TMenuItem;
Panel2: TPanel; pnlDatabaseTop: TPanel;
tabTable: TTabSheet; tabTable: TTabSheet;
Panel3: TPanel; pnlTableTop: TPanel;
popupDbGrid: TPopupMenu; popupDbGrid: TPopupMenu;
menuviewdata: TMenuItem; menuviewdata: TMenuItem;
menuproperties: TMenuItem; menuproperties: TMenuItem;
@ -58,22 +58,22 @@ type
ListTables: TSortListView; ListTables: TSortListView;
Refresh1: TMenuItem; Refresh1: TMenuItem;
Panel4: TPanel; Panel4: TPanel;
Panel5: TPanel; pnlDataTop: TPanel;
Panel6: TPanel; pnlQueryTop: TPanel;
ToolBar1: TToolBar; tlbDataLeft1: TToolBar;
btnDbViewData: TToolButton; btnDbViewData: TToolButton;
btnDbProperties: TToolButton; btnDbProperties: TToolButton;
btnDbInsertRecord: TToolButton; btnDbInsertRecord: TToolButton;
btnDbEmptyTable: TToolButton; btnDbEmptyTable: TToolButton;
ToolBar2: TToolBar; tlbTableLeft1: TToolBar;
menurefresh: TMenuItem; menurefresh: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
Panel7: TPanel; pnlQueryMemo: TPanel;
btnTableDropField: TToolButton; btnTableDropField: TToolButton;
btnTableViewData: TToolButton; btnTableViewData: TToolButton;
SynSQLSyn1: TSynSQLSyn; SynSQLSyn1: TSynSQLSyn;
SynMemoQuery: TSynMemo; SynMemoQuery: TSynMemo;
Splitter3: TSplitter; spltQuery: TSplitter;
menucreatetable: TMenuItem; menucreatetable: TMenuItem;
OpenDialog1: TOpenDialog; OpenDialog1: TOpenDialog;
TimerHostUptime: TTimer; TimerHostUptime: TTimer;
@ -118,7 +118,7 @@ type
TimerConnectErrorCloseWindow: TTimer; TimerConnectErrorCloseWindow: TTimer;
PopupMenuDropTable: TMenuItem; PopupMenuDropTable: TMenuItem;
N17: TMenuItem; N17: TMenuItem;
Panel9: TPanel; pnlTableList: TPanel;
ListColumns: TSortListView; ListColumns: TSortListView;
CopycontentsasHTML1: TMenuItem; CopycontentsasHTML1: TMenuItem;
CopycontentsasHTML2: TMenuItem; CopycontentsasHTML2: TMenuItem;
@ -184,7 +184,7 @@ type
QF7: TMenuItem; QF7: TMenuItem;
QF5: TMenuItem; QF5: TMenuItem;
QF6: TMenuItem; QF6: TMenuItem;
Panel8: TPanel; pnlQueryToolbar: TPanel;
ToolBarQuery: TToolBar; ToolBarQuery: TToolBar;
btnQueryRun: TToolButton; btnQueryRun: TToolButton;
btnQueryRunSelected: TToolButton; btnQueryRunSelected: TToolButton;
@ -835,7 +835,7 @@ begin
// Other values: // Other values:
if ( ValueExists( 'querymemoheight' ) ) then if ( ValueExists( 'querymemoheight' ) ) then
begin begin
panel7.Height := ReadInteger('querymemoheight'); pnlQueryMemo.Height := ReadInteger('querymemoheight');
end; end;
if ( ValueExists( 'dbtreewidth' ) ) then if ( ValueExists( 'dbtreewidth' ) ) then
@ -978,7 +978,7 @@ begin
WriteInteger( 'childwinwidth', width ); WriteInteger( 'childwinwidth', width );
WriteInteger( 'childwinheight', height ); WriteInteger( 'childwinheight', height );
WriteInteger( 'querymemoheight', panel7.Height ); WriteInteger( 'querymemoheight', pnlQueryMemo.Height );
WriteInteger( 'dbtreewidth', dbtree.width ); WriteInteger( 'dbtreewidth', dbtree.width );
WriteInteger( 'sqloutheight', PageControlBottom.Height ); WriteInteger( 'sqloutheight', PageControlBottom.Height );
@ -1172,7 +1172,7 @@ begin
end; end;
ListTables.Items.Clear(); ListTables.Items.Clear();
ListColumns.Items.Clear(); ListColumns.Items.Clear();
Panel3.Caption := 'Table-Properties'; pnlTableTop.Caption := 'Table-Properties';
Caption := Description + ' - /' + ActualDatabase; Caption := Description + ' - /' + ActualDatabase;
ActualDatabase := db; ActualDatabase := db;
ActualTable := ''; ActualTable := '';
@ -1659,7 +1659,7 @@ begin
rows_total := StrToInt64( GetVar( 'SELECT COUNT(*) FROM ' + rows_total := StrToInt64( GetVar( 'SELECT COUNT(*) FROM ' +
mask( ActualTable ), 0 ) ); mask( ActualTable ), 0 ) );
Panel5.Caption := ActualDatabase + '.' + ActualTable + ': ' + pnlDataTop.Caption := ActualDatabase + '.' + ActualTable + ': ' +
FormatNumber( rows_total ) + ' records total'; FormatNumber( rows_total ) + ' records total';
{*** {***
@ -1694,7 +1694,7 @@ begin
( Trim( SynMemoFilter.Text ) <> '' ) ( Trim( SynMemoFilter.Text ) <> '' )
) then ) then
begin begin
Panel5.Caption := Panel5.Caption + ', ' + FormatNumber(rows_matching) + pnlDataTop.Caption := pnlDataTop.Caption + ', ' + FormatNumber(rows_matching) +
' matching to filter'; ' matching to filter';
end; end;
@ -1704,7 +1704,7 @@ begin
( Trim( SynMemoFilter.Text ) <> '') ( Trim( SynMemoFilter.Text ) <> '')
) then ) then
begin begin
Panel5.Caption := Panel5.Caption + ', filter matches all records'; pnlDataTop.Caption := pnlDataTop.Caption + ', filter matches all records';
end; end;
if ( if (
@ -1712,7 +1712,7 @@ begin
( rows_matching > StrToIntDef( mainform.EditLimitEnd.Text, 0 ) ) ( rows_matching > StrToIntDef( mainform.EditLimitEnd.Text, 0 ) )
) then ) then
begin begin
Panel5.Caption := Panel5.Caption + ', limited to ' + pnlDataTop.Caption := pnlDataTop.Caption + ', limited to ' +
FormatNumber( ds.RecordCount ); FormatNumber( ds.RecordCount );
end; end;
end; end;
@ -1740,9 +1740,9 @@ begin
viewdata(self); viewdata(self);
if PageControlMain.ActivePage = tabQuery then if PageControlMain.ActivePage = tabQuery then
if ActualDatabase <> '' then if ActualDatabase <> '' then
Panel6.Caption := 'SQL-Query on Database ' + ActualDatabase + ':' pnlQueryTop.Caption := 'SQL-Query on Database ' + ActualDatabase + ':'
else else
Panel6.Caption := 'SQL-Query on Host ' + FConn.MysqlParams.Host + ':'; pnlQueryTop.Caption := 'SQL-Query on Host ' + FConn.MysqlParams.Host + ':';
// Move focus to relevant controls in order for them to receive keyboard events. // Move focus to relevant controls in order for them to receive keyboard events.
if PageControlMain.ActivePage = tabDatabase then ListTables.SetFocus; if PageControlMain.ActivePage = tabDatabase then ListTables.SetFocus;
@ -2033,7 +2033,7 @@ begin
end; end;
Screen.Cursor := crHourglass; Screen.Cursor := crHourglass;
Panel2.Caption := 'Database ' + ActualDatabase + ': ' + IntToStr(ListTables.Items.Count) + ' table(s)'; pnlDatabaseTop.Caption := 'Database ' + ActualDatabase + ': ' + IntToStr(ListTables.Items.Count) + ' table(s)';
MainForm.ShowStatus( STATUS_MSG_READY, 2 ); MainForm.ShowStatus( STATUS_MSG_READY, 2 );
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
end; end;
@ -2055,7 +2055,7 @@ begin
if (PageControlMain.ActivePage <> tabData) and (not DBTree.Dragging) then if (PageControlMain.ActivePage <> tabData) and (not DBTree.Dragging) then
PageControlMain.ActivePage := tabTable; PageControlMain.ActivePage := tabTable;
Panel3.Caption := 'Table-Properties for ' + ActualDatabase + ': ' + ActualTable; pnlTableTop.Caption := 'Table-Properties for ' + ActualDatabase + ': ' + ActualTable;
// set current node in DBTree to ActualTable: // set current node in DBTree to ActualTable:
with DBTree do begin with DBTree do begin
@ -5099,10 +5099,10 @@ end;
procedure TMDIChild.FormResize(Sender: TObject); procedure TMDIChild.FormResize(Sender: TObject);
begin begin
ListTables.Width := tabDatabase.Width - Toolbar1.Width - Toolbar1.Left; ListTables.Width := tabDatabase.Width - tlbDataLeft1.Width - tlbDataLeft1.Left;
ListTables.Height := tabDatabase.Height - Panel2.Height; ListTables.Height := tabDatabase.Height - pnlDatabaseTop.Height;
Panel9.Width := tabTable.Width - Toolbar2.Width - Toolbar2.Left; pnlTableList.Width := tabTable.Width - tlbTableLeft1.Width - tlbTableLeft1.Left;
Panel9.Height := tabTable.Height - Panel3.Height; pnlTableList.Height := tabTable.Height - pnlTableTop.Height;
end; end;