Board index » delphi » length of Non-proportional text in TEdit

Charles B. Olson

Delphi Developer
Tue, 27 Jun 2000 03:00:00 GMT

length of Non-proportional text in TEdit

Is there a way to tell whether a particular string
in a NONproportional font will fit in a Edit box?
There is no "ActualLengthInPixels" property for TEdits.
Thanks,
Charly Olson

 
Charles B. Olso

Delphi Developer
Tue, 27 Jun 2000 03:00:00 GMT

Re:length of Non-proportional text in TEdit


-- Is there a way to tell whether a particular string
in a NONproportional font will fit in a Edit box?
There is no "ActualLengthInPixels" property for TEdits.
Thanks,
Charly Olson
*** Charles B. Olson ***
seuss...@compuserve.com

Rick Rogers (Tea

Delphi Developer
Tue, 27 Jun 2000 03:00:00 GMT

Re:length of Non-proportional text in TEdit


On 9 Jan 1998 11:47:58 GMT, "Charles B. Olson"

Quote
<seuss...@compuserve.com> wrote:
> Is there a way to tell whether a particular string
> in a NONproportional font will fit in a Edit box?

Use the TCanvas TextWidth function. Since the TEdit Canvas property is
proected, you normally cannot access it. So do something like this:

procedure TForm1.Button1Click(Sender: TObject);
var
  W : Integer;
  Canvas : TControlCanvas;
begin
  Canvas := TControlCanvas.Create;
  Canvas.Control := Edit1;
  W := Canvas.TextWidth(Edit1.Text);
  ShowMessage(IntToStr(W));
end;

--
Rick Rogers (TeamB) | Fenestra Technologies

Rick Rogers (Tea

Delphi Developer
Tue, 27 Jun 2000 03:00:00 GMT

Re:length of Non-proportional text in TEdit


On 9 Jan 1998 12:38:18 GMT, "Charles B. Olson"

Quote
<seuss...@compuserve.com> wrote:
> Is there a way to tell whether a particular string

Your first post came through and was already answered <g>.

--
Rick Rogers (TeamB) | Fenestra Technologies

Rick Rogers (Tea

Delphi Developer
Tue, 27 Jun 2000 03:00:00 GMT

Re:length of Non-proportional text in TEdit


On Fri, 09 Jan 1998 13:15:33 GMT, r...@fenestra.com (Rick Rogers

Quote
(TeamB)) wrote:
> So do something like this

Sorry, the code I posted leaks memory. Here's the corrected version:

procedure TForm1.Button1Click(Sender: TObject);
var
  W : Integer;
  Canvas : TControlCanvas;
begin
  Canvas := TControlCanvas.Create;
  try
    Canvas.Control := Edit1;
    W := Canvas.TextWidth(Edit1.Text);
    ShowMessage(IntToStr(W));
  finally
     Canvas.Free;
  end;
end;

--
Rick Rogers (TeamB) | Fenestra Technologies

Other Threads

1. set length (not # of chars) in TEdit

2. Converting Non-Text File to Text File

3. Replacing text in an HTML document (do not want it to replace non-visible text)

4. ASCII files - non-CSV, fixed length

5. TEdit question: why doesn't Edit1->Text->Delete(1, Edit1->Text->Length()) work?

6. Tabs in text; how to make it? (using non proportional fonts)

7. mdi forms and non mdi forms mixed, problems with TEdit

8. Fixed length field text database conversion?

9. How to overcome limitation in SQL text length?

10. Fixed-Length Text Import (to .DB)