VPF::Часть строки Hint'a выделить жирным

Delphist

Дата 6.4.2006, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

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

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Snowy

Дата 6.4.2006, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Самому рисовать. Через OnShowHint.
Штатных средств нет.

Delphist

Дата 6.4.2006, 17:15 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Snowy @ 6.4.2006, 15:25)

Самому рисовать. Через OnShowHint.
Штатных средств нет.

Примерчик не мог дать.

--------------------

Snowy

Дата 6.4.2006, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Выбирай: http://forum.vingrad.ru/index.php?act=modu...amp;section=664

Snowy

Дата 6.4.2006, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Вот набросал небольшой пример.
Чтобы долго не возиться, реализовал только однострочные хинты.
Включить жирный - *. Отключить аналогично.
Hint = 'Этот *хинт*, местами *жирный*';

Код

unit SHint;

interface

uses
  Windows, Messages, SysUtils, Classes,
  Graphics, Controls, Forms;

type
  TSHint = class(THintWindow)
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;
  end;

implementation

constructor TSHint.Create(AOwner: TComponent);
begin
  inherited;
  Canvas.Font.Name := 'Courier New';
end;

function TSHint.CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect;
begin
  result := inherited CalcHintRect(MaxWidth,
            StringReplace(AHint, '*', '', [rfReplaceAll]), AData);
end;

procedure TSHint.Paint;
var
  s: string;
  i, x: integer;
  b: boolean;
begin
  s := Caption; b := false; x := 1;
  for i := 1 to length(s) do
  begin
    if s[i] = '*' then b := not b
    else begin
      if b then Canvas.Font.Style := [fsBold]
      else Canvas.Font.Style := [];
      Canvas.TextOut(x, 1, s[i]);
      x := x + Canvas.TextWidth(s[i]) + 1;
    end;
  end;
  SendMessage(Handle, WM_NCPAINT, 0, 0);
end;

initialization
  HintWindowClass := TSHint;
end.

Для использования, просто подключить модуль к своей программе.

Delphist

Дата 7.4.2006, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3

Цитата(Snowy @ 6.4.2006, 23:07

)

Вот набросал небольшой пример.

А как сделать для многострочного hint'a
Добавлено @ 12:49

Цитата(Snowy @ 6.4.2006, 23:07

)

x := x + Canvas.TextWidth(s[i]) + 1;

Не совсем красиво получается расположение букв.

--------------------

Snowy

Дата 7.4.2006, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Уж как набросал.
Переделай, как тебе больше нравится.
Мне лениво дорабатывать.
Я всего лишь показал куда копать.
Дальше сам...

Sunvas

Дата 9.4.2006, 01:26 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

button1.Hint:='Первая строка'+#13+'вторая строка';

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »