opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 10:02:10 +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
Top = 0
Width = 496
Height = 23
Height = 31
Align = alTop
Alignment = taLeftJustify
BevelOuter = bvNone
BorderWidth = 1
Caption = 'Data'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
@ -622,10 +621,10 @@ object MDIChild: TMDIChild
TabOrder = 0
DesignSize = (
496
23)
31)
object btnColumnSelection: TSpeedButton
Left = 168
Top = 0
Top = 4
Width = 79
Height = 21
AllowAllUp = True
@ -645,9 +644,21 @@ object MDIChild: TMDIChild
ParentFont = False
OnClick = btnColumnSelectionClick
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
Left = 317
Top = 0
Top = 4
Width = 121
Height = 21
Anchors = [akTop, akRight]
@ -664,7 +675,7 @@ object MDIChild: TMDIChild
end
object ButtonDataSearch: TButton
Left = 440
Top = 0
Top = 4
Width = 51
Height = 21
Anchors = [akTop, akRight]
@ -680,7 +691,7 @@ object MDIChild: TMDIChild
end
object CheckBoxDataSearch: TCheckBox
Left = 264
Top = 2
Top = 6
Width = 49
Height = 17
Anchors = [akTop, akRight]
@ -696,9 +707,9 @@ object MDIChild: TMDIChild
end
object gridData: TSMDBGrid
Left = 0
Top = 23
Top = 31
Width = 496
Height = 197
Height = 189
Align = alClient
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET

9
source/childwin.pas
View File

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