Половину строки Hint a выделить жирным

← →
DelphiLexx © (2006-04-06 16:13) [0]

Есть Hint в котором хранится строка. Как часть слов выделить жирным, а часть осавить по умолчанию. Желательно это сделать без Application.OnShowHint :=

← →
Handle (2006-04-06 17:41) [1]

Насчёт

> Как часть слов выделить жирным, а часть осавить по умолчанию.

пока сам не знаю.

А весь hint выглядит так.

Name := "Arial";
Size := Size + 33;
Style := [fsBold];

ну и сответственно
Form.ShowHint:= true;
ТвойControl.Hint:= "бла бла бла";

без Application.OnShowHint :=

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMyHintWindow = class(THintWindow) constructor Create(AOwner: TComponent); override; end; type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} constructor TMyHintWindow.Create(AOwner: TComponent); begin inherited Create(AOwner); with Canvas.Font do begin Name := "Arial"; Size := Size + 10; Style := [fsBold]; end; end; procedure TForm1.FormCreate(Sender: TObject); begin HintWindowClass := TMyHintWindow; Application.ShowHint := False; Application.ShowHint := True; end; end.

← →
Handle (2006-04-06 17:43) [2]

Ну и типа для ума справку почитай.

F1

← →
DelphiLexx © (2006-04-06 18:41) [3]

> без Application.OnShowHint :=

твой код не позволяет выделять жирным часть содержимого hinta. При чем мне нужно выделения жирным делать не для всех компонент, а только для опреденных, например, для TImage.

← →
Германн © (2006-04-07 01:56) [4]

Имхо, стандартный хинт такой функциональности не имеет. Сторонних компонент для хинтов - море, может кто-то из них умеет. Наконец напиши свой. Что за проблема!

← →
GrayFace © (2006-04-07 07:35) [5]

> Handle (06.04.06 17:41) [1]

С таким же успехом можно настроить Screen.HintFont

> DelphiLexx

TMyHintWindow, в нем переопределяй Paint и CalcHintRect.

← →
DelphiLexx © (2006-04-07 12:13) [6]

> MyHintWindow, в нем переопределяй Paint и CalcHintRect

Каким образом, приведи пример.

← →
Amoeba © (2006-04-07 13:10) [7]

Может лучше не мучаться, а взять готовый компонент (бесплатно, но без исходников)?
http://www.tmssoftware.com/HtmlHint.ZIP
А здесь написано как форматировать текст:
http://www.tmssoftware.com/minihtml.htm
Drop a HTMLHint component on the main form of your application and you can start using HTML formatted hints everywhere in your application. Supports a subset of the HTML formatting tags (see the mini HTML reference).

Если надо, то всю библиотеку (с исходниками) можно взять здесь:
http://www.tdelphi.spb.ru/vcla/tms.zip

← →
DelphiLexx © (2006-04-07 17:22) [8]

> Если надо, то всю библиотеку (с исходниками) можно взять
> здесь:
> http://www.tdelphi.spb.ru/vcla/tms.zip

Под Delphi 2005 где можно взять эту библиотеку.

> Под Delphi 2005 где можно взять эту библиотеку.

На варезных сайтах.

А по этой ссылке один компонент под все версии Delphi, включая 2005
http://www.tmssoftware.com/HtmlHint.ZIP

> Под Delphi 2005 где можно взять эту библиотеку.

По случаю откопал в своих архивах. Выслал мылом.

> По случаю откопал в своих архивах. Выслал мылом.

Спасибо.

> Amoeba © (07.04.06 17:56) [10]

> По случаю откопал в своих архивах. Выслал мылом.

Зря, IMHO. бо поощрение кроспостеров, лентяев и др.

--
Regards, LVT.

Половину строки Hint a выделить жирным Найти похожие ветки