Solved

THTMLTreeview Text Left Position

Posted on 2002-03-31
1
413 Views
Last Modified: 2010-04-04
//THTMLTreeview Text Left Position

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, htmltv;

type
  TForm1 = class(TForm)
    HTMLTreeview1: THTMLTreeview;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
HTMLTreeview1.Items.Clear;
HTMLTreeview1.Items.Add(nil,'<FONT face="Arial" size="7" color="clblack"><B>SomeText1</B> SomeText2</FONT>');
HTMLTreeview1.Items.AddChild(HTMLTreeview1.Items[0],'<FONT face="Arial" size="7" color="clblack"><B>SomeText3</B> SomeText4</FONT>');
HTMLTreeview1.Items.AddChild(HTMLTreeview1.Items[1],'<FONT face="Arial" size="7" color="clblack"><B>SomeText5</B> SomeText6</FONT>');
HTMLTreeview1.ItemHeight:=18;
HTMLTreeview1.FullExpand;
// I need to know on wich position (Left) is SomeText2 (Its first word S) and
// I need to know on wich position (Left) is SomeText6 (Its first word S)
// 1st - in screen
// 2nd - in control
// Thanks.
end;

end.
0
Comment
Question by:ghjlk
1 Comment
 
LVL 2

Accepted Solution

by:
vbmn earned 300 total points
Comment Utility
That is not recomanded. Use some special object for obtain informations.

Thanks.
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now