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

Display rowcount statistics in a wordwrapped TLabel. Makes room for coming buttons "ORDER" (and "GROUP").

Browse Source
This commit is contained in:
Ansgar Becker
2007-07-08 19:10:21 +00:00
parent 067cf4bf21
commit 37f0b45363
2 changed files with 25 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
source/childwin.dfm
View File

@ -607,12 +607,11 @@ object MDIChild: TMDIChild
Left = 0 Left = 0
Top = 0 Top = 0
Width = 496 Width = 496
Height = 23 Height = 31
Align = alTop Align = alTop
Alignment = taLeftJustify Alignment = taLeftJustify
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 1 BorderWidth = 1
Caption = 'Data'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
@ -622,10 +621,10 @@ object MDIChild: TMDIChild
TabOrder = 0 TabOrder = 0
DesignSize = ( DesignSize = (
496 496
23) 31)
object btnColumnSelection: TSpeedButton object btnColumnSelection: TSpeedButton
Left = 168 Left = 168
Top = 0 Top = 4
Width = 79 Width = 79
Height = 21 Height = 21
AllowAllUp = True AllowAllUp = True
@ -645,9 +644,21 @@ object MDIChild: TMDIChild
ParentFont = False ParentFont = False
OnClick = btnColumnSelectionClick OnClick = btnColumnSelectionClick
end end
object lblDataTop: TLabel
Left = 1
Top = 1
Width = 161
Height = 29
Align = alLeft
Anchors = [akLeft, akTop, akRight, akBottom]
AutoSize = False
Caption = 'lblDataTop'
Layout = tlCenter
WordWrap = True
end
object EditDataSearch: TEdit object EditDataSearch: TEdit
Left = 317 Left = 317
Top = 0 Top = 4
Width = 121 Width = 121
Height = 21 Height = 21
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -664,7 +675,7 @@ object MDIChild: TMDIChild
end end
object ButtonDataSearch: TButton object ButtonDataSearch: TButton
Left = 440 Left = 440
Top = 0 Top = 4
Width = 51 Width = 51
Height = 21 Height = 21
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -680,7 +691,7 @@ object MDIChild: TMDIChild
end end
object CheckBoxDataSearch: TCheckBox object CheckBoxDataSearch: TCheckBox
Left = 264 Left = 264
Top = 2 Top = 6
Width = 49 Width = 49
Height = 17 Height = 17
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -696,9 +707,9 @@ object MDIChild: TMDIChild
end end
object gridData: TSMDBGrid object gridData: TSMDBGrid
Left = 0 Left = 0
Top = 23 Top = 31
Width = 496 Width = 496
Height = 197 Height = 189
Align = alClient Align = alClient
DataSource = DataSource1 DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET

9
source/childwin.pas
View File

@ -284,6 +284,7 @@ type
MenuFind: TMenuItem; MenuFind: TMenuItem;
MenuReplace: TMenuItem; MenuReplace: TMenuItem;
MenuItem2: TMenuItem; MenuItem2: TMenuItem;
lblDataTop: TLabel;
procedure menuclearClick(Sender: TObject); procedure menuclearClick(Sender: TObject);
procedure popupQueryPopup(Sender: TObject); procedure popupQueryPopup(Sender: TObject);
procedure lboxQueryHelpersClick(Sender: TObject); procedure lboxQueryHelpersClick(Sender: TObject);
@ -1724,7 +1725,7 @@ begin
rows_total := StrToInt64( GetVar( 'SELECT COUNT(*) FROM ' + rows_total := StrToInt64( GetVar( 'SELECT COUNT(*) FROM ' +
mask( ActualTable ), 0 ) ); mask( ActualTable ), 0 ) );
pnlDataTop.Caption := ActualDatabase + '.' + ActualTable + ': ' + lblDataTop.Caption := ActualDatabase + '.' + ActualTable + ': ' +
FormatNumber( rows_total ) + ' records total'; FormatNumber( rows_total ) + ' records total';
{*** {***
@ -1763,7 +1764,7 @@ begin
( Trim( SynMemoFilter.Text ) <> '' ) ( Trim( SynMemoFilter.Text ) <> '' )
) then ) then
begin begin
pnlDataTop.Caption := pnlDataTop.Caption + ', ' + FormatNumber(rows_matching) + lblDataTop.Caption := lblDataTop.Caption + ', ' + FormatNumber(rows_matching) +
' matching to filter'; ' matching to filter';
end; end;
@ -1772,7 +1773,7 @@ begin
( Trim( SynMemoFilter.Text ) <> '') ( Trim( SynMemoFilter.Text ) <> '')
) then ) then
begin begin
pnlDataTop.Caption := pnlDataTop.Caption + ', filter matches all records'; lblDataTop.Caption := lblDataTop.Caption + ', filter matches all records';
end; end;
if ( if (
@ -1780,7 +1781,7 @@ begin
( rows_matching > StrToIntDef( mainform.EditLimitEnd.Text, 0 ) ) ( rows_matching > StrToIntDef( mainform.EditLimitEnd.Text, 0 ) )
) then ) then
begin begin
pnlDataTop.Caption := pnlDataTop.Caption + ', limited to ' + lblDataTop.Caption := lblDataTop.Caption + ', limited to ' +
FormatNumber( ds.RecordCount ); FormatNumber( ds.RecordCount );
end; end;
end; end;