| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

DelphiLexx ©   (2006-04-06 16:13:00) 

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

---

Leonid Troyanovsky   (2006-04-07 21:02:00) [1]

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

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


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

--
Regards, LVT.

---

DelphiLexx   (2006-04-07 19:25:00) [2]

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

Спасибо.

---

Amoeba   (2006-04-07 17:56:00) [3]

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

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

---

Amoeba   (2006-04-07 17:51:00) [4]

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

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

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

---

DelphiLexx   (2006-04-07 17:22:00) [5]

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

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

---

Amoeba   (2006-04-07 13:10:00) [6]

Может лучше не мучаться, а взять готовый компонент (бесплатно, но без исходников)?
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 12:13:00) [7]

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

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

---

GrayFace   (2006-04-07 07:35:00) [8]

> Handle   (06.04.06 17:41) [1]

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

> DelphiLexx

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

---

Германн   (2006-04-07 01:56:00) [9]

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

---

DelphiLexx   (2006-04-06 18:41:00) [10]

> без  Application.OnShowHint :=

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

---

Handle   (2006-04-06 17:43:00) [11]

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

F1

---

Handle   (2006-04-06 17:41:00) [12]

Насчёт

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

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

А весь 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.

---

Наверх