Minor: Change format of "123,456,789 Characters" above querymemo to a better readable "123,4 MB"

This commit is contained in:
Ansgar Becker
2007-07-26 06:07:01 +00:00
parent 021d56e0bc
commit 5cecd6a91e
2 changed files with 3 additions and 4 deletions

View File

@@ -911,15 +911,14 @@ object MDIChild: TMDIChild
end
end
object PanelCharsInQueryWindow: TPanel
Left = 156
Left = 200
Top = 1
Width = 116
Width = 72
Height = 27
Align = alRight
Alignment = taRightJustify
BevelOuter = bvNone
BorderWidth = 2
Caption = '0 Characters'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11

View File

@@ -3193,7 +3193,7 @@ end;
procedure TMDIChild.SynMemoQueryChange(Sender: TObject);
var somechars : Boolean;
begin
PanelCharsInQueryWindow.Caption := FormatNumber( Length(SynMemoQuery.Text) ) + ' Characters';
PanelCharsInQueryWindow.Caption := FormatByteNumber( SynMemoQuery.GetTextLen );
somechars := Length(SynMemoQuery.Text) > 0;
Mainform.ExecuteQuery.Enabled := somechars;
Mainform.ExecuteSelection.Enabled := SynMemoQuery.SelAvail;